Funktion zum auflösen von Pfaden mit Umgebungsvariablen?

[shmia]

Die JCL macht das so (Unit JclSysInfo).
Auch keine schlechte Lösung; über den boolschen Resultwert erfährt man ob etwas expandiert wurde.

Delphi-Quellcode:

function ExpandEnvironmentVar(var Value: string): Boolean;
var
  R: Integer;
  Expanded: string;
begin
  SetLength(Expanded, 1);
  R := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), 0);
  SetLength(Expanded, R);
  Result := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), R) <> 0;
  if Result then
  begin
    StrResetLength(Expanded);
    Value := Expanded;
  end;
end;