Discussion :

[SergioMaster]

Bonjour
Tout est dans le titre . S'il est 'facile' d'obtenir l'icone associé d'un fichier comment obtenir celui d'un répertoire ?
sous windows XP il y avait un '.Folder' générique

Code :

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

1
2
3
 
IconFile:='.Folder';
HICON:=ExtractAssociatedIcon(Application.Handle, PChar(IconFile), lpiIcon);

mais sous Vista (et je présume Seven) celui-ci n'existe plus ou alors je suis sur une mauvaise piste ?

[abdelghani_k]

Essaie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  MyIcon: TIcon;
  Filter: Word;
begin
  Filter:=0;
  MyIcon:=TIcon.Create;
  MyIcon.Handle:=ExtractAssociatedIcon(
    hInstance,
    PChar(Edit1.Text),
    Filter);
  Image1.Canvas.Draw(0, 0, MyIcon);
end;

[SergioMaster]

Plouf , a coté , ma question , mal exprimée peut être était de savoir quel était l'équivalent de '.folder' sous Vista , voire Seven .
En fait depuis j'ai résolu mon problème et 'oublié' le post .
Le hic c'est que je ne rappelle déjà plus de la solution
dés que je retrouve ce bout de code je le poste

[Edit] il faut utiliser SHGetFileInfo

[Jipété]

Salut,

[Edit] il faut utiliser SHGetFileInfo

Jamais eu de souci avec cette fonction ?
Essaye donc de créer un dossier de test, avec dedans un dossier compressé, un dossier partagé, et un raccourci vers un autre dossier, ensuite "regarde" ce dossier de test avec l'Explorateur puis avec ton programme, et merci de nous donner le résultat, car en ce qui me concerne, ça fait des mois que je m'arrache les cheveux avec ça...
Pour les raccourcis, j'avais trouvé une fonction (chez Torry ?) qui rajoutait l'option "LinkOverlay" et au final, il n'y en a pas besoin, par exemple.

Désolé de ne pouvoir poster de code, je ne suis pas chez moi cette semaine.

Bonnes fêtes,