Vollständigen Dateinamen ermitteln aus "%ProgramFiles%\..."

[shmia]

Delphi-Quellcode:

var
  mailprog : string;
begin
  mailprog := '%ProgramFiles%\Windows Mail\WinMail.exe';
  ExpandEnvironmentVar(mailprog);

PS: Procedure vergessen

Delphi-Quellcode:

function ExpandEnvironmentVar(var Value: string): Boolean;  // kopiert aus der JCL
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;