No hay respuestas en este tema

[sir.dev.a.lot]

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

delphi

function GetShortFileName(Const aFileName: String): String;
Var
  aTmp: array[0..255] Of char;
begin
  If GetShortPathName(PChar(aFileName), aTmp, Sizeof(aTmp) - 1) = 0 Then
    Result := aFileName
  Else
    Result := StrPas(aTmp);
end;

Saludos!