Récuperer le Handle d'une zone de texte dans une application

**Anarchy2k3** · 26/02/2006, 10h04

Bonjour

J'aimerais récuperer le handle de la zone de texte oû a été pressé une touche, et ce dans n'importe quel application.
A l'heure actuel j'arrive à récuperer le handle d'une application sans probléme en utilisant ce code que j'ai placé dans l'évenement HookTimer1KeyUp (HookTimer est un petit composant qui vérifi l'appui de touche toute les 1milliseconde, ce qui évite de passer par un hook d'une dll pour surveiller le clavier) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Handle := GetForegroundWindow;

J'arrive aussi à récuperer le handle de la zone de texte de Notepad en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Handle := GetForegroundWindow;
Handle := GetWindow(Handle, GW_CHILD);

Le soucis c'est que le handle de la zone de texte n'est pas retourné pour toutes les applications (Zone de texte d'un site (google par exemple) dans les browsers Internet, zone de texte dans les logiciels, zone de texte dans l'explorateur, etc).

Je vous en serais très reconnaissant si vous pouviez m'indiquer un morceau de code quoi soit capable de récuperer le handle de la zone de texte ou a été pressé la touche pour n'importe quel application !

Merci !

**Anarchy2k3** · 26/02/2006, 10h45

Si on récupére tous les handles des objets d'une fenêtre et on les testes un par un pour voir s'ils ont l focus. Ca pourrais marcher ?

Mais alors là je n'ai aucune idée quand au code à utiliser

A l'aide ! Please Help !

**K.othmane** · 26/02/2006, 10h52

Yop Anarchy2k3

jete un coup d'oeil sur ce code la qui recupere l'url tapée sur l'edit internet explorer :

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
22
23
24
25
26
 
//merci a graf
fito
procedure TForm1.Button2Click(Sender: TObject); 
var hiExplorer,ClientWork,Toolbar,ComboBox,ComboBoxChild,Edit:HWND; 
    wnd: HWND ; 
    i,Len:integer ; 
    result:array of char ; 
    s : string ; 
begin 
hIExplorer := FindWindow('IEFrame',nil); 
//SetForegroundwindow(hIExplorer)  ; 
//Handle de la fenêtre de travail 
ClientWork:=FindWindowEx(hiExplorer,0,'WorkerA',nil); 
if ClientWork=0 then //Compatibilité XP / 98 
    ClientWork:=FindWindowEx(hiExplorer,0,'WorkerW',nil); 
// Handle de la ToolBar (casert pas) 
Toolbar:=FindWindowEx(ClientWork,0,'ReBarWindow32',nil); 
// Handle du ComboBox 
ComboBox:=FindWindowEx(Toolbar,0,'ComboBoxEx32', nil); 
ComboBoxChild:=FindWindowEx(ComboBox,0,'ComboBox',nil); 
// Cherche le Handle du Edit 
Edit:=FindWindowEx(ComboBoxChild,0,'Edit',nil); 
//envoie les messages pour récupérer la longueur de l'URL 
Len:=SendMessage(Edit,WM_GETTEXTLENGTH,0,0)+1; 
// récupère l'URL (mais c'est juste pour le fun)

**Anarchy2k3** · 26/02/2006, 10h59

Salut

En effet j'étais déjà tombé sur ce code hier soir mais malheuresement je ne vois pas trop comment l'adapté pour quil fonctionne sur toutes les fenetres et applications