この発言は
#00423　らせん企画      さんの環境変数を取得します
に対するコメントです




環境変数を取得します。


　デルファイ１でも可能なバージョンと、個々の変数を取得するものです。

procedure EnvToStrings( S:TStrings );
var
  WP: PChar;
begin
  (*$IFDEF WIN32 *)
  WP := GetEnvironmentStrings;
  (*$ELSE        *)
  WP := GetDosEnvironment;
  (*$ENDIF        *)
  While WP^ <> #0 Do
  begin
    S.Add(StrPas(WP));
    Inc(WP, Length(StrPas(WP)) + 1);
  end;
end;



function GetEnv( const EnvName:string ):String;
var
  S:TStrings;
begin
  S := TStringList.Create;
  try
    EnvToStrings(S);
    result := S.Values[ EnvName ];
  finally ; S.Free ; end;
end;


                              98/4/23(Thu) GGB03124 熊谷秀武

Original document by 熊谷秀武        氏 ID:(GGB03124)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。