handle des composants ATL

Bonsoir,

Tous d'abord, désoler si je ne suis pas dans la bonne section. ;)
Voici mon soucis qui me donne des cheveux blanc à mon âge :oops:

-J'ai une fenêtre d'une application extérieur (C++)dont je récupère son handle avec findwindows et le nom de barre de titre. (je code avec delphi 6)
-Dans cette fenêtre, il y'as des composants dont je souhaite aussi récuperer leurs handle via le Class Name.
-Gros soucis, les Class name, ce sont tous des composants ATL, et pour certains, il ont le même class Name.
Je ne comprend pas (sais pas) comment récuperer les handles de ces composants ATL qui se trouve dans la FORM.
ce sont des boutons, memo, richedit, etc...
Une petite aide m'éviterais d'être chauve à vie, surtout à 26 ans 8O
merci beaucoup à l'avance.

je vous poste mon petit morceau de code pour plus de comphrension:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button1Click(Sender: TObject); var monhandle : integer;   Begin   monhandle := FindWindow(Nil,'Le Titre De Ma Fenêtre'); // Me permet de récuperer le handle de la fenêtre Label1.Caption := IntToHex(monhandle, 8); // Me permet de vérifier le résultat     end;

---

Voilà, à l'interieure de cette fenêtre, il y'as des boutons ainsi que des "composants" qui me permet d'injecter du texte, mais je ne sais pas comment m'y prendre pour recuperer un handle précis de ces "composants".
sachant que dans un même temps, les class sont des ATL.
Exemple:

Code:

---

0002048E - (ATL:00B63780)

---

Entre les parenthèse, c'est la class, et juste avant, le handle.
Toutes les class de l'application externe se présente sous cette forme.
Merci à ceux qui pourrons m'éclairer :?

Maintenant que tu as le handle de la fenêtre principale, essaye de le passer dans FindWindowEx pour rechercher ces "enfants".

Citation:

---

Envoyé par Andnotor

Maintenant que tu as le handle de la fenêtre principale, essaye de le passer dans FindWindowEx pour rechercher ces "enfants".

---

Bonsoir,

Merci pour cette réponse.
En effet, j'arrive à obtenir le handle de certains composants suplémantaires, mais pas tous étrangement.
peut-être je m'y prend mal.
Voici mon bout de code, mais je vous prie, ne m'incendiez pas, je debute ok !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.Button1Click(Sender: TObject); var monhandle : integer; child : integer; rechild : integer; handle : integer;   Begin   monhandle := FindWindow(Nil,'Titre De Ma Fenêtre'); Label1.Caption := IntToHex(monhandle, 8);   child := FindWindowEX(monhandle, 0,'ATL:00B66010', 0); Label2.Caption := IntTohex(child, 8);   rechild := FindWindowEX(child, 0,'ATL:00B66010', 0); Label5.Caption := IntTohex(rechild, 8);   handle := FindWindowEX(rechild, 0,'ATL:00B64EC8', 0); Label7.Caption := IntTohex(handle, 8);   end;

---

Voilà, grâce à ce code répétitif, j'arrive à descendre et atteindre certains composants de la fenêtre, MAIS pas tous.
Pourtant, j'ai l'impression que la classe est bien attacher à celle ci-dessus.
Autre chose, beaucoup de class ATL porte la même reference(même nom), peut-être est-ce dû à cela qu'il ne me renvoie pas de handle lorsque je les recherche ?
Merci beaucoup, j'ai dejà bien avancée, pourrais-je avoir plus d'information, merci.

Réedit,

Voilà, j'ai trouver autre chose pour parcourir les handles les un en dessous des autres en utilisant

Code:

---

1 2	next := GetWindow(handle, GW_HWNDNEXT); Label9.Caption := IntTohex(next, 8);

---

Voilà, ça fonctionne, mais à votre avis, est-ce une bonne solution de obtenir tous les handles des composants de la fenêtre en utilisant cette methode de getwindow ?
Ensuite, si c'est une bonne methode (merci ma logique:P ), ne puis-je pas par exemple sauter les handles par 2 ou par 3.
Quelque chose comme GW_HWNDNEXT +3 , vous me suivez ?
Merci pour vos precieux conseil. :D

Tes controls sont certainement inclus dans d'autres controls.

Tu dois faire une procédure récursive.
Depuis la fenêtre principale, tu énumères ses enfants qui à leur tour énumèrent leurs enfants et ainsi de suite.

Ok, merci, celà fonctionne.
a++ et sujet résolue