Convertir Nombres de ficheros Largos -> Cortos  

Enviado Por: Q3 Team
Web : www.q3.nu
Email: dlib@q3.nu
Fecha: 13/02/00

Truco accedido 92 veces

 


Es decir, convertir un nombre de fichero largo como : 'NombreDeFicheroLargo.pas' a 'NombreD~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;





Lord Trancos me comentaba:
Si usas Delphi 4 o superior, tienes algo parecido a esta función ya integrada en la unit SysUtils: ExtractShortPathName