No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Nombres de archivos cortos a largos.

delphi

Uses
  ShellApi;
 
function GetLongFileName(Const aFileName: String): String;
Var
  aInfo: TSHFileInfo;
begin
  If SHGetFileInfo(PChar(aFileName), 0, aInfo, SizeOf(aInfo), SHGFI_DISPLAYNAME) <> 0 Then
    Result := String(aInfo.szDisplayName)
  Else
    Result := aFileName;
end;

Saludos!