[code lang=”delphi”]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;[/code]
[tags]Delphi, File[/tags]
0 Kommentare zu “GetShortFileName”