Astuces
- Divers - Convertir
un nom de fichier long un nom de fichier court en Delphi
function
GetShortFileName(Const FileName : string) : string;
var p: array[0..255] of Char; begin if GetShortPathName(PChar(FileName),p,Sizeof(p)-1)=0
then
Result:= FileName; else
Result:=StrPas(p); end;