Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 427 fois - Téléchargée 33 fois
function PATH_WIN_TO_MSDOS(PathComprido : String) : String; var aTmp: array[0..MAX_PATH] of char; // MAX_PATH = 260 ... begin if GetShortPathName(PChar(PathComprido),aTmp,Sizeof(aTmp)-1)=0 then Result:= '' else Result:=StrPas(aTmp); end; function PATH_MSDOS_TO_WIN(PathCurto : String) : String; var aInfo: TSHFileInfo; FileDrive: ShortString; begin RESULT := ''; if PathCurto <> '' then begin FileDrive := ExtractFileDrive(PathCurto) + '\'; // Retirer la barre à la fin : if PathCurto[length(PathCurto)] = '\' then PathCurto := Copy(PathCurto, 1, length(PathCurto) - 1); While (Length(PathCurto) > Length(FileDrive)) And (SHGetFileInfo(PChar(PathCurto),0,aInfo,Sizeof(aInfo),SHGFI_DISPLAYNAME)<>0) do begin if RESULT = '' then Result := String(aInfo.szDisplayName) else Result := String(aInfo.szDisplayName) + '\' + RESULT; PathCurto := ExtractFileDir(PathCurto); // Rechercher le nom long du repertoire contenant le fichier/repertoire actuel ... end; RESULT := FileDrive + RESULT; end; end;
1 sept. 2010 à 15:24
10 nov. 2004 à 19:26
10 nov. 2004 à 19:19
10 nov. 2004 à 17:37
En fait, j' ai déposé ce source à la suite de la source de Grandvizir qui apporte une solution plus 'complexe' (avec plus de lignes) mais sans ShellAPI je crois, mais, qui ne fonctionne que dans un sens.
Merci en tout cas à lui, parce que je n' avais pas vu que l' ancienne version de mes fonctions (qui se trouve en commentaire dans sa source) ne renvoyait pas tout le path.
10 nov. 2004 à 12:55
Je les poste ici donc, mais si tu veux, tu peux toi meme les poster sur ton site: il y a aucun probleme.
En tout cas, merci de l' interet que tu portes à mes sources.
PS: j' ai encore amelioré ton nain, tu as vu?
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.