[Gelöst] Relativen Pfad in absoluten umwandeln

[ringli]

Wie wäre es damit?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ShortName,
  LongName: string;
begin
  ShortName:= 'system32\dateiname.exe';
  LongName := FileSearch(ShortName, GetEnvironmentVariable('Path'));
  showmessage(LongName);
end;

[Dalai]

@ringli: Ah, dankeschön! FileSearch kann tatsächlich mit relativen Pfaden arbeiten. Allerdings ist dein Code so nicht verwendbar, da GetEnvironmentVariable ein DWORD zurückgibt und den Inhalt der Umgebungsvariable in einem der Parameter. Aber das Prinzip zählt .

MfG Dalai

[ringli]

Zitat von Dalai:

Allerdings ist dein Code so nicht verwendbar, ...

Bei mir läuft der genau so wie ich ihn gepostet habe, allerdings kann sich da zwischen Delphi 5 und Delphi XE4 auch was im Aufruf geändert haben.

[SMO]

Ringli nutzt System.SysUtils.GetEnvironmentVariable.
Dalai denkt wohl an die gleichnamige WinAPI.

[Dalai]

Zitat von SMO:

Ringli nutzt System.SysUtils.GetEnvironmentVariable.
Dalai denkt wohl an die gleichnamige WinAPI.

In der Tat. Wusste nicht, dass es da einen Wrapper gibt (offenbar seit Delphi 6 oder 7).

MfG Dalai

[Dejan Vu]

Zitat von ringli:

Wie wäre es damit