Discussion :

[micatt]

Bonjour à tous
Dans une application je fais la liste des dossiers contenus dans le répertoire de l'utilsateur. Je voudrai, en face de cette liste, pour chaque fichier selectionné, mettre en face les propriétés du fichier (les mêmes que celles que l'on obtient en cliquant sur le bouton droit, puis "propriétés", lorsque nous sommes dans l'explorateur.
Quelqu'un peut il me dire ou sont ses données, je n'y arrive pas
Merci par avance

[philnext]

par là :
http://delphi.developpez.com/faq/?pa...tributsfichier

[Gilbert Geyer]

Voiçi une suggestion qui est davantage une parade.
Elle consiste a afficher uniquement la liste des fichiers puis, par un click-souris sur l'un des noms-fichier, de provoquer l'affichage de la boite de propriétés du fichier en question.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Uses ShellApi;
 
procedure VoirBoiteProprietes(nomFichier: string); 
var info:   TShellExecuteInfo; 
begin 
               FillChar(info, SizeOf(info),0); 
               info.cbSize := SizeOf(info); 
               info.lpFile := PChar(nomFichier);
               info.lpVerb := 'properties'; 
               info.fMask := SEE_MASK_INVOKEIDLIST;
               ShellExecuteEx(@info); 
end;

Reste plus qu'à placer l'instruction d'appel (ex : VoirBoiteProprietes('c:\Chemin\tagada.doc'); ) dans la routine actionnée par l'événement le plus approprié (onClick, onMouseDown ou onMouseUp) du contrôle utilisé pour l'affichage de la liste des fichiers.

Cela pourrait dépanner en attendant de trouver comment on peut accéder directement aux propriétes elles-mêmes pour n'afficher que celles qu'on veut.

Il pourrait aussi être utile de suivre l'évolution de la discussion intitulée "comment modifier les propriétés.." qui figurait tout à l'heure à la page 13 du Forum.

[micatt]

Effectivement c'est mieux que rien !
Mais j'ai besoin d'avoir toutes les infos de cette boite afin de les traiter (en fait leur affichage seul ne suffit pas).

Il se trouve qu'avec les fonctions Getfilexxxx, j'arrive à récupérer pas mal de ces infos, mais il y en a une que je n'arrive pas à avoir c'est la "description du fichier" (2eme info lorsque l'on ouvre les propriétés d'un fichier)

[Gilbert Geyer]

Bizarre : Il n'apparaît dans ma boîte "propriétés" aucune info nommée "description du fichier" par contre la "2eme info lorsque l'on ouvre les propriétés d'un fichier" s'appelle chez moi "Type : " et ce type varie en fonction de l'extension du fichier.

Exemples :
Type = Image File si l'extension du fichier correspond à l'un des nombreux formats-image ex : *.bmp, *.gif, *j.pg, *.wmf .......

Type = Document Microsoft Word pour les fichiers texte *.doc
Type = Document texte si extension = .txt
Type = Format RTF pour les fichiers texte au format *.rtf

Donc, si "description du fichier" = "Type" alors reste plus qu'à restituer tout ceci, voir exemple de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Procedure TraitementProprietes(nomFichier : string); 
var          extension,types : shortString;
begin       .......................
              extension:=extractFileExt(nomFichier);
              if ((extension='.BMP') or (extension='.WMF') or (extension='.JPG') or (...) 
              then begin types:='Fichier image'; ........... end; else
              if extension='.ICO' 
              then begin types:='Icône'; ..............end; 
             ................
end;

[Okaryn]

La description du type de fichier n'est pas lié physiquement au fichier lui-même mais aux programmes installés sur le PC et qui eux sont associés à des extensions de fichier.

Avec l'extension, recherche la valeur par défaut dans HKEY_CLASSES_ROOT :

HKEY_CLASSES_ROOT\.docx va te donner Word.Document.12

recherche ensuite la valeur par défaut de HKEY_CLASSES_ROOT\Word.Document.12 qui va te donner Document Microsoft Office Word

Autre exemple : .bmp => paint.picture => Bitmap Image

[Gilbert Geyer]

Okaryn : L'affirmation "La description du type de fichier n'est pas lié physiquement au fichier lui-même" est à mon avis un peu trop catégorique.
Le "Type" (2eme info qui apparaît lorsque l'on ouvre la boîte des propriétés d'un fichier) est forcément lié à l'extension du nom du fichier sinon le système ne reconnaîtrait plus ses petits. Pour s'en convaincre il suffit par exemple sur un fichier monTexte.doc d'en remplacer l'extension .doc par .exe puis d'ouvrir sur lui la boîte des propriétes de Windows et celle-ci affiche allègrement "Type : Application" ... et si l'on supprime carrément l'extension elle affiche "Type : Fichier".
En conséquence le type indiqué par cette boîte pour un fichier est toujours, mais pas uniquement, lié à l'extension du nom porté par le fichier ... et dans pas mal de cas ce type se réduit au rappel de l'extension (Ex : Type fichier DCU, Type Fichier CFG, Type Fichier DOF) ce qui n'apporte guère plus d'information que le nom complet du fichier lui-même.