Umgebungsvariablen in Delphi nutzen

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  SetLength(s,MAX_PATH); //evtl. großzügiger sein
  GetTempPath(Length(s) - 1,PChar(s));
  SetLength(s,StrLen(Pchar(s)));
  ShowMessage(s);
end;