Nom des icones en ressource ?

Version imprimable

22/10/2004, 10h04
John Fullspeed

Nom des icones en ressource ?

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
22/10/2004, 10h18
Higgins

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

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

Code:

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;

22/10/2004, 11h05
John Fullspeed

Icone

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