Discussion :

[John Fullspeed]

Voici mon probleme:

Je cherche à afficher toutes les icones d'un executable prelablement choisi

Je fait donc un enumRes qui me fournis la liste des icones
En retour j'obtiens le Rang de la ressource et son type
J'ai verifier avec ResHackeur il remonte les meme infos.
Seulement voila lorsque je veux afficher mon icone il convient de faire un LoadIcon(source,'MONICONE')

or je n'ai pas ce nom ,Reshackeur non plus, mais lui il affiche!

Le probleme est le même sur les curseur il faut le nom.

Quelle est donc l'astuce pour charger l'icone sans son nom ou comment recuperer ce nom?
Merci

[Higgins]

Peut être avec EnumResourceNames (SDK)
Sinon, si tu utilises un IOTAResourceEntry dans Delphi, tu as la méthode GetResourceName

[lil_jam63]

Salut, utilise plutot ExtractIcon(), pas besoin de son nom, juste son index

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
21
 
procedure TForm1.Button1Click(Sender: TObject);
var
  hIcone       :  HICON;
  index       :  integer;
begin
  if opendialog1.execute then
  begin
    label1.caption:=IntToStr(ExtractIcon(handle,pChar(opendialog1.filename),UINT(-1))); // -1 retourne le nombre d'icones du fichier
    index:=0;
    hIcone:=ExtractIcon(handle,pChar(opendialog1.filename),index);  // index est l'index de l'icone
    If hIcone=0 then
      begin
        showmessage ('pas d''icones :( ');
      end
    else
      begin
        image1.Picture.Icon.Handle:=hIcone;
      end;
  end;
end;

[John Fullspeed]

mersi à tous les deux je suis passe par un extract mais cela ne me donne pas le nom alors commle j'en ai besoin ailleurs je vais allé chatouiller le IOTAResourceEntry

John