Советы по Delphi
         

Как мне преобразовать "Long File Name.pas" в "longfi~1.pas"?


Попробуйте эти процедуры:

    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;



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;
[000086]



Содержание раздела