Az alábbi függvényekkel a hosszú fájlneveket alakíthatod át rövid fájlnévvé, 
valamint a rövid fájlnevet vissza a hosszú fájlnév módba. Pl.: "Long File Name.pas" <--> "longfi~1.pas"

Hosszú fájlnévből rövid fájlnév:
Function GetShortFileName(Const FileName : String) : String;
var
    aTmp: array[0..255] of char;
begin
    if GetShortPathName(PChar(FileName),aTmp,Sizeof(aTmp)-1)=0 then
       Result:= FileName
    else
       Result:=StrPas(aTmp);
end;

Rövid fájlnévből hosszú fájlnév:
Function GetLongFileName(Const FileName : String) : String;
var
    aInfo: TSHFileInfo;
begin
    if SHGetFileInfo(PChar(FileName),0,aInfo,Sizeof(aInfo),SHGFI_DISPLAYNAME)<>0 then
       Result:= String(aInfo.szDisplayName)
    else
       Result:= FileName;
end;