WinAPI Funktion GetShortPathName

[PeterKiers]

Ich habe es schon

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var d:TOpendialog;
begin
  d:=TOpendialog.Create(self);
  d.Execute;
  Caption := GetShortName(d.FileName);
  d.free;
end;

Danke fur die Hilfe.

Peter Kiers

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]