Category: Files
Title: Convert Short filenames to Long filenames
Date added: 15.03.2006
Hits: 2501

uses Shellapi;


function GetLongFileName(const sFileName: string): string;
var
  SHFileInfo: TSHFileInfo;
begin
  if SHGetFileInfo(PChar(sFileName),
                   0,
                   SHFileInfo,
                   SizeOf(SHFileInfo),
                   SHGFI_DISPLAYNAME) <> 0 then
    Result := string(SHFileInfo.szDisplayName)
  else
    Result := sFileName;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetLongFileName('C:\Program Files\test_l~1.txt');
end;

//The result is test_longfilename.txt

1. How to get all information about file? (5180 Hits)

2. How to get the last access from a file? (2601 Hits)

3. How to shred and Delete files without any trace? (5192 Hits)

4. How to convert long filenames in short filenames? (2914 Hits)

5. How to set or change file attributes? (6770 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.