Ir al contenido



Foto

[TRUCO DELPHI] Nombres de archivos cortos a largos.


  • 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:07

[TRUCO DELPHI] Nombres de archivos cortos a largos.


delphi
  1. Uses
  2. ShellApi;
  3.  
  4. function GetLongFileName(Const aFileName: String): String;
  5. Var
  6. aInfo: TSHFileInfo;
  7. begin
  8. If SHGetFileInfo(PChar(aFileName), 0, aInfo, SizeOf(aInfo), SHGFI_DISPLAYNAME) <> 0 Then
  9. Result := String(aInfo.szDisplayName)
  10. Else
  11. Result := aFileName;
  12. end;

Saludos!


  • 1