Delphi 5: sysutils.GetEnvironmentVariable?

[hincapie]

Hallo,

ich habe hier ein Delphi-Projekt (offenbar D7?) mit folgendem Code-Ausschnitt:
..if fileexists(sysutils.GetEnvironmentVariable('temp')+'\registry_bak.REG') then.. Beim Kompilieren mit D5 erscheint der Fehler 'Undefinierter Bezeichner: GetEnvironmentVariable'.
In der Hilfe ist auch in der Unit sysutils dazu nichts zu finden.

Meine Frage ist nun, wie kann ich ohne diese Funktion an den benötigten Pfad kommen?

[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

[hincapie]

Super!!!

Danke, es funktioniert!!