Récupérer tous les handles des contrôles d'une fenêtre (avec TabControl)

Bonjour,

La question est dans le titre est bien qu'un post existe quelques lignes auparavant ... Cirec me dirait : cherche au topic :
http://www.delphifr.com/infomsg_RECUPERER-TOUS-HANDLES-APPLICATION-CHOISIE-DANS-LISTE_714127.aspx

Oui ... c'est ce que j'ai fait, malheureusement le code ne donne que les handles enfants directs de la fenêtre, mais pas les "petits enfants" càd dire les contrôles n'ayant pas directement la fenêtre comme parent ... comme tout ce qui est dans un panel, dans des tabsheets etc ... est ignoré.

Pour avoir plus de contrôles j'utilise une fonction récursive :

procedure Rechercher(HParent : THandle);
var Handle : THandle;
begin
  Handle := GetWindow(HParent,GW_CHILD);
  while Handle<>0 do begin
    Memo1.Lines.Add(inttostr(Handle));
    Rechercher(Handle) ;
    Handle := GetNextWindow(Handle,GW_HWNDNEXT);
  end;
end;

Maintenat il deumeure un problème qui m'énerve ... la liste n'est toujours pas complète : justement avec un TPageControl ...
les contrôles qui ne sont pas dans le tabsheet affichés sont ignorés tant qu'il n'ont pas été visible une première fois.
Quelqu'un a-t-il une idée ?

Merci,
Jean-Michel

Et tu as raison ... même doublement raison mais il faut aussi faire une recherche sur tout le site, ... ce qui t'aurait permis de tomber, comme moi en 2s, sur ceci :
http://www.delphifr.com/codes/ENUMERATION-FENETRES-OUVERTES_16615.aspx

je ne sais pas si c'est la solution mais c'est une voie avec d'autres procedures et fonctions il existe d'autres sources qui traitent le sujet.
 
@+
Cirec

---

Oui mais non,  ce code (dont je me suis inspiré) fonctionne sensiblement comme le mien par exemple quand il y a un TPageControl seul le(s) TabSheet(s) déjà ouvert(s) au moins une fois sont énumérés ... moi, j'ai besoin qu'ils soient tous énumérés dès que l'application en question est lancée et sans que aucune action sur le TPageControl ... mais merci pour ton avis.

Jean-Michel