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