Discussion :

[ouiouioui]

bonjour, j'ai un listview que j'utilise pour afficher des fichiers et dossiers, mais je cherche à afficher leur icône à gauche, celle qui leur est associé et qu'on voit dans l'explorateur windows c'est ou qu'on trouve l'icone associé à l'exe et celle associé aux fichiers inconnu?

merci

[Linkin]

Cette source convient-elle?
http://delphi.developpez.com/sources...cupereIconeExe

[Cl@udius]

Salut

En supplément du lien donné par Linkin, je regarderais également l'API ExtractAssociatedIcon qui correspond à ce que tu cherches.

@+ Claudius

[ouiouioui]

merci beaucoup c'est exactement sa

[Jipété]

Salut.

Mon grain de sel :

(...) l'API ExtractAssociatedIcon

c'est pas une vieille API qui retourne des icônes toutes moches ?

Me semble qu'il faut utiliser ShGetFileInfo pour avoir un look décent.
Ch'tit exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses ShellApi;
 
procedure GetIcon;
var
  sfi: SHFILEINFO;
begin
  ShGetFileInfo(PChar('C:\'), 0, sfi, SizeOf(sfi), SHGFI_SMALLICON or SHGFI_ICON );
  Form1.Icon.Handle := sfi.hIcon;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetIcon;
end;

[ouiouioui]

j'ai utilisé la méthode de DelphiCool, sa charge toutes les images certe mais c'est rapide. merci à tous