Ir al contenido



Foto

[TRUCO DELPHI] Nombres de archivos largos a Archivos cortos.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 10 diciembre 2016 - 04:04

[TRUCO DELPHI] Nombres de archivos largos a Archivos cortos.


delphi
  1. function GetShortFileName(Const aFileName: String): String;
  2. Var
  3. aTmp: array[0..255] Of char;
  4. begin
  5. If GetShortPathName(PChar(aFileName), aTmp, Sizeof(aTmp) - 1) = 0 Then
  6. Result := aFileName
  7. Else
  8. Result := StrPas(aTmp);
  9. end;

Saludos!


  • 1