Nom de fichier Long à 8,3

Nom de fichier Long a 8,3

Nom de fichier Long a 8,3 : Plusieurs milliers de conseils pour vous faciliter la vie.

Convertir les longs noms de fichiers au format 8.3.
Intervenant: ANDRE V. D MERWE

> quelqu'un avait une chance de faire GetShortPathName
> pour travailler? Il est cense convertir en un long fichier/chemin d'acces
> nom d'un DOS 8.3 structure... mais il conserve son retour
> sur le meme nom de fichier long je passe.
Essayez cela, il a travaille pour moi....
fonction de 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 := Longueur( 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 Resultat := sShort
fin