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

[shadowman]

Hallo,
wenn ich aus der Registry sowas auslese:

Delphi-Quellcode:

"%ProgramFiles%\Windows Mail\WinMail.exe" /mailurl:"%1"

wie komme ich zu dem eigentlichen vollständigen Pfad?

Parameter hinten werden bereits durch eine selbstgebastelte Funktion herausgefiltert (btw.: gibt es dafür irgendeine Standardfunktion?)

Es bleibt also:

Delphi-Quellcode:

"%ProgramFiles%\Windows Mail\WinMail.exe"

In diesem Fall könnte man bestimmt was mit SpecialFolder für Programmdateien machen oder sowas, denke ich, aber gibt es da eine Funktion, die solche "Platzhalter", sage ich mal, (wie "%ProgramFiles%") umwandelt und den eigentlichen Pfad zurückgibt?

Meine Suche war bisher leider nicht von Erfolg gekrönt.

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

[DeddyH]

Versuch es mal mit GetEnvironmentVariable.

[Christian Seehase]

Moin Shadowman,

das sollte mit ExpandEnvironmentStrings gehen.

Was das Abschneiden von Parametern angeht:
Fängt der Pfad mit einem " an, gehört alles, was zwischen dem ersten " und dem nächsten " steht zum Pfad.
Fängt der Pfad nicht mit einem " an, gehört alles bis zum ersten Leerzeichen zum Pfad.
Sollte kein Leerzeichen enthalten sein, ist der gesamte String der Pfad.

[Sir Rufo]

Zitat:

Zitat von Christian Seehase

Moin Shadowman,

das sollte mit ExpandEnvironmentStrings gehen.

Was das Abschneiden von Parametern angeht:
Fängt der Pfad mit einem " an, gehört alles, was zwischen dem ersten " und dem nächsten " steht zum Pfad.
Fängt der Pfad nicht mit einem " an, gehört alles bis zum ersten Leerzeichen zum Pfad.
Sollte kein Leerzeichen enthalten sein, ist der gesamte String der Pfad.

Im Prinzip ja, aber es gibt Ausnahmen http://www.delphipraxis.net/internal...t.php?t=148093

[shadowman]

Hallo zusammen,
vielen Dank für Eure Antworten. So funktioniert es!

War scheinbar nah dran (habe nach "expandpath" etc. gesucht), aber die Kombination aus einem brauchbaren Funktionnamen und der Unit hat wohl nicht gestimmt :)

Zitat:

Zitat von Sir Rufo

Zitat:

Zitat von Christian Seehase

Moin Shadowman,

das sollte mit ExpandEnvironmentStrings gehen.

Was das Abschneiden von Parametern angeht:
Fängt der Pfad mit einem " an, gehört alles, was zwischen dem ersten " und dem nächsten " steht zum Pfad.
Fängt der Pfad nicht mit einem " an, gehört alles bis zum ersten Leerzeichen zum Pfad.
Sollte kein Leerzeichen enthalten sein, ist der gesamte String der Pfad.

Im Prinzip ja, aber es gibt Ausnahmen http://www.delphipraxis.net/internal...t.php?t=148093

So ähnlich hatte ich das auch gemacht, ja. Das mit den Ausnahmen werde ich mir dann noch anschauen.

Danke noch mal!