Delphi 5: sysutils.GetEnvironmentVariable?

[marabu]

Hallo,

du kannst die Windows API Funktion auch selbst kapseln:

Delphi-Quellcode:

function GetEnvVar(const varName: string): string;
var
  nSize: DWORD;
begin
  nSize := GetEnvironmentVariable(PChar(varName), @Result[1], 0);
  SetLength(Result, nSize);
  GetEnvironmentVariable(PChar(varName), @Result[1], nSize);
end;

Grüße vom marabu