WinAPI Funktion GetShortPathName

[sirius]

Funktioniert doch.
Ist die Frage was du bei edit1.text drinn hast. Ich hab edit1 so gefüllt:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var d:TOpendialog;
begin
  d:=TOpendialog.Create(self);
  d.Execute;
  edit1.Text:=d.FileName;
  d.free;
end;