Nombre de archivo largo a 8.3

Nombre de archivo largo a 8.3

Nombre de archivo largo a 8.3 : Multi-millones de consejos para hacer su vida mas facil.

Convertir los nombres largos de archivos al formato 8.3.
Colaborador: ANDRE V. D MERWE

> alguien Ha tenido alguna suerte de hacer GetShortPathName
> para el trabajo? Se supone convertir un archivo largo/ruta
> el nombre de una DOS 8.3 estructura... pero volviendo
> el mismo nombre de archivo largo paso.
prueba esto, a mi me funciono....
funcion ToShortPath( sPath : string ) : string
var
& nbsp & nbsp & nbsp iLen : integer
& nbsp & nbsp & nbsp sShort : string
& nbsp & nbsp & nbsp szShort : PChar
begin
& nbsp & nbsp & nbsp iLen := Largo( sPath )
& nbsp & nbsp & nbsp szShort := StrAlloc( iLen )
& nbsp & nbsp & nbsp GetShortPathName( PChar(sPath), szShort, iLen )
& nbsp & nbsp & nbsp sShort := szShort
& nbsp & nbsp & nbsp StrDispose( szShort )
& nbsp & nbsp & nbsp Resultado := sShort
fin