1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Fonctions path_win_to_msdos et path_msdos_to_win meme pour les fichiers/repertoires en reseau!!!

Fonctions path_win_to_msdos et path_msdos_to_win meme pour les fichiers/repertoires en reseau!!!

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 427 fois - Téléchargée 33 fois

Commenter

Contenu du snippet

2 fonctions qui vous permettent de convertir des chemins (de fichiers ou de repertoires) du format MS-DOS (8 caracteres max. pour le nom et 3 pour l' extension) vers le format win32 et vis versa!
Fonctionne même avec les unités reseau.
Cette fois, le code est bien de moi même si je me suis basé sur diverses exemples ...

Source / Exemple : 


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;

Conclusion :


C' est une amelioration des 2 fonctions que j' ai mis en commentaire sur une source du meme objectif.
Cette fois, le code est bien de moi même si je me suis basé sur diverses exemples ...

A voir également

Ajouter un commentaire Commentaires
mustas33 Messages postés 1 Date d'inscription samedi 9 juin 2007 Statut Membre Dernière intervention 1 septembre 2010
1 sept. 2010 à 15:24
merci
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
10 nov. 2004 à 19:26
n.c.
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
10 nov. 2004 à 19:19
ShlObj ou ShellApi, ouais... j'ai lu après ton msg sur l'autre page qui précisait ShellApi. Je n'ai pas vérifié.
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
10 nov. 2004 à 17:37
Les uses à ajouter sont shellAPI et c tout je crois ...
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.
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
10 nov. 2004 à 12:55
Merci Julio, malheureusement je n' ai pas le temps de poster mes sources sur plusieurs sites.
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?
Afficher les 6 commentaires
S'inscrire maintenant

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.

Du même auteur (cs_MAURICIO)