Kurze in lange Dateinamen umwandeln

[HLukas]

Siehe die Hilfe zu TSearchRec und das folgende Beispiel.

Typ: TSearchRec;
FindData: TWin32FindData;
FindData enthält zusätzliche Informationen wie Erstellungszeit, Zeit des letzten Zugriffs und den langen sowie kurzen Dateinamen.

procedure TForm1.Button1Click(Sender: TObject);
var SR : TSearchRec;
begin
FindFirst('c:\Dieser Name ist lang.txt',faAnyFile,SR);
edit1.Text := SR.Name;
edit2.Text := SR.FindData.cFileName;
edit3.Text := SR.FindData.cAlternateFileName;
FindClose(SR);
end;