Discussion :

[dacid]

Bonjour,

J'ai un petit programme en Delphi 7 qui utilise keybd_event() pour simuler l'appui d'une touche sur le clavier.
Tout marche très bien sauf sur terminal serveur qui est incompatible avec cette fonction.

J'aimerais essayer d'autres fonctions similaires comme PostMessage(0,WM_CHAR,sCar,0); ou sendinput mais je n'arrive pas à les faire marcher...
Je veux pouvoir écrire une chaîne dans une zone texte d'une application Windows qui a le focus.

Merci d'avance.

[Tardiff Jean-François]

Bonjour,

Regarder içi
http://tcharles.developpez.com/simul/?delphi=1
vous trouverez des exemples de ce type.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
  hMPlayer: HWND;
begin
  hMPlayer := FindWindow('Media Player 2', nil);
  SetForegroundWindow(hMPlayer);
  sleep(500);
  PostMessage(hMPlayer, WM_KEYDOWN,VK_SPACE, 0);
  sleep(1000);
  PostMessage(hMPlayer, WM_KEYUP,VK_SPACE, 0);
end;

Et surtout le pourquoi du comment.

[dacid]

Oui, je croit que je connais cette page par coeur (ainsi que la moitié du web qui traite de cette fonction... Il n'y a que les caractères chinois qui m'ont freinés )

J'aimerais utiliser la fonction PostMessage() mais je ne sais pas comment cibler sur la zone texte d'un logiciel (la ou il y a le focus).

Code :

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

1
2
3
4
myHandle := GetTopwindow(GetforegroundWindow);
for i:=1 to (Length(chaine)-1) do begin
  PostMessage(myHandle,WM_CHAR,chaine[i],0);
end;

Il y a aussi:

Code :

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

1
2
3
4
5
myHandle := GetForegroundWindow;
myHandle := GetWindow(myHandle, GW_CHILD);
for i:=1 to (Length(chaine)-1) do begin
  PostMessage(myHandle,WM_CHAR,chaine[i],0);
end;

Qui revient à faire la même chose.

Ces codes marchent avec le bloc notes mais pas avec autre chose (word, wordpad, invite de commande, ...).

Comment trouver le handle de la zone qui a le focus ?

[Tardiff Jean-François]

Peut être:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
AFocused: Tcontrol;
AHandle: HWND;
begin
 
AFocused := Form1.ActiveControl;
if AFocused <> nil then begin
  if AFocused is TwinControl then begin
    AHandle := (AFocused as TwinControl).handle;
  end;
end;

[dacid]

Non, car la tu vises une form (dont tu connais le nom) de ton application.

Je veux écrire dans une application autre que mon programme (word, wordpad, invite de commande, zone texte d'une application banale, ...) .

Je sais comment récuperer le handle de l'application qui a le focus mais si je lançe une chaine à ce moment la, ça va dans l'application (menu, ...) et non dans sa zone texte principale.

[Tardiff Jean-François]

Le problème n'est pas d'envoyer la touche, mais de recuperer le Handle du composant ayant le focus.
Que ce passe t'il si des message key-down, key_up sont envoyer a des composants ne répondant pas au key ? A prioris le message est simplement ignoré, mais il est possible que l'on ait parfois (tres rarement je pense) de mauvaises suprises.

Aprioris je ne sais pas comment trouver ce handle. Je vais y réfléchire et si j'ai une idée je vous recontacte.

[dacid]

C'est complètement ça !

Les mauvaises surprises sont un plantage de Word par exemple... ou une navigation non désirée dans internet explorer.

[Graffito]

Bonjour,

A partir du handle de la form obtenu par les fonctiions du type GetForegroundWindow ou findwindow , on peut rechercher les handle des fenetres filles (qui sont en fait les composants de la form) par GetChildwindow. Comme certains composants peuvent en contenir d'autres, on a en fait une structure arborescente de Windows(composants) dans laquelle on doit identifier le bon Edit ou la bonne comboBox. La position obtenue par GetWindowRect constitue une possibilité pour trouver la bonne fenêtre.