%systemdrive% in echte Path-Angabe umwandeln

[RaSoWa1]

Hallo,

ich benötige schon wieder eure Hilfe.
Die Suchfunktion hilft mir im Moment nicht weiter. Gefundene Threads lassen sich nicht öffnen (z.B. %systemdrive% in delphi ansprechen??)

Wie kann ich die Windows-Path-Variablen (ist das der richtige Begriff?) in echte Path-Angaben umwandeln?

Gruß Klaus

[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;

[RaSoWa1]

Danke für die schnelle Hilfe.

Gruß Klaus

[himitsu]

eventuell auch Windows.ExpandEnvironmentStrings (ExpandEnvironmentStrings).

Bei GetEnvironmentVariable muß der String ohne % vorliegen (kann man notfalls auch vorher entfernen),
wobei ExpandEnvironmentStrings auch genutzt werden kann, wenn man diese "Variable" innerhalb eines Pfades vorliegen hat.