%systemdrive% in echte Path-Angabe umwandeln

[Bummi]

Delphi-Quellcode:

function GetEnvVarValue(const VarName: string): string;
var
  BufSize: Integer;
begin
  BufSize := GetEnvironmentVariable(
    PChar(VarName), nil, 0);
  if BufSize > 0 then
  begin
    SetLength(Result, BufSize - 1);
    GetEnvironmentVariable(PChar(VarName),
      PChar(Result), BufSize);
  end
  else
    Result := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Caption:= GetEnvVarValue('systemdrive');
end;