Icones et TlistView

Bonjour.. Voila :

J'aimerai quand j'affiche un fichier dans une TlistView, afficher a coté les icones systeme de ces fichiers, c'est a dire l'icone qui lui est attribué par windows..

Auriez vous un bout de code ou une idée pour m'aider?? Merci bien..

Re: Icones,TlistView et Process

Citation:

Envoyé par Nano

afficher a coté les icones systeme de ces fichiers, c'est a dire l'icone qui lui est attribué par windows..

Trouvé ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function GetIcon(const FileName: string; const Large: Boolean): TIcon; 
var 
  sfi: TSHFILEINFO; 
  i: Integer; 
begin 
  Result := nil; 
  try 
    Result := TIcon.Create; 
    if Large then 
      i := SHGFI_LARGEICON 
    else 
      i := SHGFI_SMALLICON; 
    SHGetFileInfo(PChar(FileName), FILE_ATTRIBUTE_NORMAL, sfi, SizeOf(sfi), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES or i); 
    Result.Handle := sfi.hIcon; 
  except 
    if Result <> nil then 
      FreeAndNil(Result); 
  end; 
end;

ou ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function GetAssociatedIcon(const Ext: PChar): HICON; 
var 
Info: TSHFileInfo; 
begin 
SHGetFileInfo(Ext, FILE_ATTRIBUTE_NORMAL, Info, SizeOf(Info), SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES); 
Result := Info.hIcon; 
end; 
 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
Ic: TIcon; 
begin 
Ic := TIcon.Create; 
Ic.Handle := GetAssociatedIcon('.txt'); 
ImageList1.AddIcon(Ic); 
ImageList1.Draw(Image1.Canvas, 0, 0, 0, True); 
Ic.Free; 
end;

Citation:

Envoyé par Nano

2 - J'aimerai pouvoir dumper une tache active en memoire vers un fichier excutable sur le disque dur..

Comprend pas !?

:roll:

Merci beaucoup pour ta reponse.. Je vais tester ca.. Euh a propos de tester , sans vouloir faire mon boulet, tu pourrais pas m'expliquer comment inserer ces images dans ma listview qui se rempli dynamiquement..

Pourquoi ne pas ajouter tes icône dans une TImageList, que tu associerais à ta ListView.

:roll: :wink:

Merci beaucoup Lung pour ton code.. Mais il ne m'affiche que des icones de DLL quelquesoit le nom du fichier dans la listview..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ... // Fin du remplissage dynamique de la Tlistview for j:=0 to ListView.Items.Count-1 do begin Ic := TIcon.Create; Ext:=Pchar(ExtractFileExt(ListView.Items.Item[j].Caption+ListView.Items.Item[j].Subitems.Strings[0])); Ic.Handle := GetAssociatedIcon(Ext,true); ImageList.AddIcon(Ic); Ic.Free; end; ...
Voila, auriez vous svp une solution pour cela ?

Je viens de faire un test, et ca marche bien ... si on n'oublie pas d'attribuer chaque icône de l'ImageListà l'élément correspondant de la ListView :

Ajoute quelque chose comme ca :

Code:

ListView.Items.Item[j].ImageIndex := ImageList.Count - 1;
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ... // Fin du remplissage dynamique de la Tlistview for j:=0 to ListView.Items.Count-1 do begin Ic := TIcon.Create; Ext:=Pchar(ExtractFileExt(ListView.Items.Item[j].Caption+ListView.Items.Item[j].Subitems.Strings[0])); Ic.Handle := GetAssociatedIcon(Ext,true); ImageList.AddIcon(Ic); ListView.Items.Item[j].ImageIndex := ImageList.Count - 1; <-- Ic.Free; end; ...
:roll: :wink:

Merci bien :).. Ca marche..

Citation:

Envoyé par Nano

Merci bien :).. Ca marche..

N'oublie pas le tag [RÉSOLU] dans ton titre !

:wink: