Contrôle du clavier

**MD Software** · 22/06/2005, 11h51

Salut à tous.

Je cherche à simuler l'appui de touches sur le clavier. J'utilise donc le code suivant. Le problème, c'est que ça marche pas !

Code :

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

1
2
keybd_event(41, 0, 0, 0);
keybd_event(41, 0, KEYEVENTF_KEYUP, 0);

Si quelqu'un sait pourquoi.....

Du coup, j'ai essayé en utilisant les PostMessage sur une application, mais, malheureusement pour moi, c'est l'application qui reçoit les évènements, et pas le contrôle actif.
Je m'explique.
Pour tester tout ça, j'ai créé une application avec un TMemo actif au lancement. J'ai fait une autre application avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  handle: HWND;
begin
  handle := FindWindow('TForm2', nil);
  SetForegroundWindow(handle);
  sleep(500);
  PostMessage(handle, WM_KEYDOWN,41, 0);
  sleep(1000);
  PostMessage(handle, WM_KEYUP,41, 0);
end;

Pour info TForm2 est la classe de l'application qui contient mon TMemo. A l'exécution de ce code, l'application TForm2 passe bien au premier plan, mais les évènements clavier sont reçus par la form mais pas par le TMemo.

Quelqu'un saurait-il comment envoyer les messages au contrôle actif ? [Que ce soit clair, dans l'absolu, je ne peux pas modifier l'application cible. J'ai essayé avec NotePad, à priori, même problème]

**edam** · 22/06/2005, 12h14

http://docvb.free.fr/apidetail.php?idapi=148

**portu** · 22/06/2005, 12h15

Essaie en récupérant le handle du mémo alors !
Mais c'est là qu'est le problème

.
Fait un

Code :

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

1
2
 
handle := GetFocus;

Après SetForegroundWindow afin de prendre le Handle du memo.
bien sûr en espérant qu'il aie le focus

(Valable pour Notepad avec keybd_event et non WM_KEYDOWN et WM_KEYUP)

**LadyWasky** · 22/06/2005, 12h29

Essaies de simuler l'utilisation de l'utilisation de la touche de Tabulation (constante VK_TAB) pour activer séquentiellement le focus des contrôles jusqu'a ce que tu tombes sur le TMemo

Ca marchera pitêtre

**portu** · 22/06/2005, 12h33

Envoyé par waskol

Essaies de simuler l'utilisation de l'utilisation de la touche de Tabulation (constante VK_TAB) pour activer séquentiellement le focus des contrôles jusqu'a ce que tu tombes sur le TMemo

Ca marchera pitêtre

Oui ou alors selectionne avec ta souris le memo et tapes ce que tu veux

**edam** · 22/06/2005, 12h36

Envoyé par edam

http://docvb.free.fr/apidetail.php?idapi=148

**MD Software** · 22/06/2005, 12h59

Envoyé par portu

Oui ou alors selectionne avec ta souris le memo et tapes ce que tu veux

ça marche pas ça ! C'est mon problème, Le mémo a la focus. Si je tape au clavier, ça écrit dedans, mais si je simule l'appui des touches, ça marche pas.

**MD Software** · 22/06/2005, 13h01

Envoyé par edam

http://docvb.free.fr/apidetail.php?idapi=148

Oui, mais si j'ai tout suivi, c'est le même système que moi, non ?

**edam** · 22/06/2005, 13h07

non sans handle, ta mhéthode envoit a un controlle,
keybd_event envoit a n'importe quel control pouvut qu'il as le focus

**MD Software** · 22/06/2005, 13h11

Envoyé par edam

non sans handle, ta mhéthode envoit a un controlle,
keybd_event envoit a n'importe quel control pouvut qu'il as le focus

Ben non justement, et c'est mon problème.

**edam** · 22/06/2005, 13h14

alors faitun recherche récurssive sur tout les controle contenut dans la l'aplication syblé jusqu'a touvé selui que tu veux, tu peut utlisé directement sendmessage dans ce cas,
j'ai oubliée comment mais j'ai déjà posté cette question et lil_jim63 m'a donnée la réponse

**MD Software** · 22/06/2005, 13h16

Envoyé par edam

alors faitun recherche récurssive sur tout les controle contenut dans la l'aplication syblé jusqu'a touvé selui que tu veux, tu peut utlisé directement sendmessage dans ce cas.

Attend, comment tu fais une recherche des contrôles dans une application. Prenons le cas de Notepad, comment je fais ?

**LadyWasky** · 22/06/2005, 13h17

Au llieu d'utiliser FindWindow, il te faudrait utiliser FindWindowEX, GettWindow etc... (voir SDK Micro$oft)

sinon, essaies ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 var
 handle: HWND;
begin
  handle := FindWindow('TForm2', nil);
  SetForegroundWindow(handle);
  handle := FindWindow('TMemo1', nil);
  sleep(500);
  PostMessage(handle, WM_KEYDOWN,41, 0);
  sleep(1000);
  PostMessage(handle, WM_KEYUP,41, 0);
end;

ou bien ça...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 var
 handle: HWND;
begin
  handle := FindWindow('TForm2', nil);
  SetForegroundWindow(handle);
  handle := handle:=GetActiveWindow;
  sleep(500);
  PostMessage(handle, WM_KEYDOWN,41, 0);
  sleep(1000);
  PostMessage(handle, WM_KEYUP,41, 0);
end;

Bon courage

**MD Software** · 22/06/2005, 13h20

Envoyé par waskol

Au llieu d'utiliser FindWindow, il te faudrait utiliser FindWindowEX, GettWindow etc...

Je vais essayer ton code, mais je n'ai pas de problème pour trouver l'application [elle passe bien au premier plan], mais plutôt pour taper dans le bon contrôle dedans [celui qui a le focus]

**edam** · 22/06/2005, 13h21

voir:
http://docvb.free.fr/apidetail.php?idapi=79
et
http://docvb.free.fr/apidetail.php?idapi=78
bon dev

**edam** · 22/06/2005, 13h23

ou http://66.102.9.104/custom?q=cache:3...hl=fr&ie=UTF-8

**MD Software** · 22/06/2005, 13h24

Envoyé par edam

voir:
http://docvb.free.fr/apidetail.php?idapi=79
et
http://docvb.free.fr/apidetail.php?idapi=78
bon dev

Merci edam, mais je n'ai pas de problème pour trouver la fenêtre. La recherche de la fenêtre fonctionne bien, le problème, c'est que les messages du claviers n'arrivent pas au contrôle actif.