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

2381 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