WinAPI Funktion GetShortPathName

[MrKnogge]

Hi,
ich würde d.Execute nicht einfach so aufrufen, besser wäre:

Delphi-Quellcode:

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

Gruß