Icones et TlistView

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 :

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

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 :

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

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;

Envoyé par Nano

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

Comprend pas !?

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

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 :

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

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

Code :

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

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;
...

Envoyé par Nano

Merci bien .. Ca marche..

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