Obtener el nombre corto de una ruta a partir de su nombre largo

Artículo por Club Developers · 16 marzo 2006

2498 vistas

Para conseguir el nombre corto de un archivo, es decir, un nombre que no tenga más de 8 carácteres + extensión de 3, podemos usar la siguiente función



delphi
  1. function GetShortFileName(Const FileName : String) : String;
  2. var 
  3.   aTmp: array[0..255] of char;
  4. begin 
  5.   if GetShortPathName(PChar(FileName),aTmp,Sizeof(aTmp)-1)=0 then 
  6.     Result:= FileName
  7.   else 
  8.     Result:=StrPas(aTmp);
  9. end;



o bien, a partir de la versión 4 de Delphi, usar la función ExtractShortPathName definida en la unidad SysUtils