Mega Code Archive

 
Categories / Delphi / Files
 

Convert long filename to DOS filename

Title: Convert long filename to DOS filename Use API function GetShortPathName: procedure TForm1.Button1Click(Sender: TObject); var FileName: string; ATmp: array[0..255] of Char; begin FileName:=FileListBox1.FileName; Label1.Caption:=FileName; if GetShortPathName(PChar(FileName),ATmp,SizeOf(ATmp)-1)=0 then Label2.Caption:=FileName else Label2.Caption:=StrPas(ATmp); end;