사공엽 wrote:

> 환경변수의 설정값을 읽어올 수 있는 함수가 있나요?

> 예를들면, temp의 경로를 읽어올 수 있는 함수같은거요...

> 부탁합니다.



마침 제가 예전에 받아 놓았던 소스가 있네요.



참고 하세요.





implementation



{$R *.DFM}

const

cnMaxVarValueSize = 250;



function GetEnvVar(

const csVarName : string ) : string;



var

pc1,

pc2 : PChar;

begin

pc1 :=

StrAlloc( Length( csVarName )+1 );

pc2 :=

StrAlloc( cnMaxVarValueSize + 1 );



StrPCopy( pc1, csVarName );



GetEnvironmentVariableA(

pc1, pc2, cnMaxVarValueSize );



Result := StrPas( pc2 );



StrDispose( pc1 );

StrDispose( pc2 );



end;





procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text :=GetEnvVar( 'PATH' );

end;

정말 감사합니다.

많은 도움이 되네요.

앞으로도 잘 부탁드려요. ^^