Returncode von WinRar

[Niko]

Hi,

da ich eben gemerkt habe, dass mein Delphi mit der Funktion noch gar nichts anzufangen weiß, hier ein anderer Weg:

Delphi-Quellcode:

function GetEnvVar(name: String): String;
var
  pc: PChar;
  l: Integer;
begin
  l := GetEnvironmentVariable(PChar(name), nil, 0);
  GetMem(pc, l);
  try
    GetEnvironmentVariable(PChar(name), pc, l);
    result := pc;
  finally
    FreeMem(pc, l);
  end;
end;

Aufruf mit:
Label1.Caption := GetEnvVar('PATH');