Umgebungsvariablen auflösen

[TKC]

In der JCL wirds so gemacht:

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
    SetLength(Expanded, StrLen(PChar(Expanded)));
    Value := Expanded;
  end;
end;