syntaxe incorrecte findwindowex ?
Bonjour à tous,
Je galere à nouveau :
Je cherche a simuler des raccourci clavier (touche UP and Down) sur une fenetre dont je connais le nom, et sur une zone de cette fenetre dont je connais le numero de handle :
j'ai tente ce code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| procedure TForm1.Button1Click(Sender: TObject);
var
hCible, hButton : HWND;
begin
hCible := FindWindow(nil, PChar('Waveterminal 192-M v 5.01 Console')); //on retrouve le Handle de la fenêtre du programme
if hCible <> 0 then
begin
hButton := FindWindowEx(hCible,'65800',nil,nil); //on retrouve le Handle du bouton sur lequel on veux cliquer 65800 numero de handle de la fenetre cible fille
if hButton <> 0 then
keybd_event(vk_up,0,1,0); //touche enfoncé
sleep(10);
keybd_event(vk_up,0,2,0); //touche relevé//on lui faire croire que l'on a cliqué dessus
end
end. |
c'est un bout de code que j'ai trouvé sur ce forum, mais il me met le message suivant :
type incompatible 'hwnd' et 'string'
je ne comprend pas il y t'il une erreur de syntaxe ?
je galere car la zone ou je veux simuler un appuie de touche je ne connais que son numéro de handle, elle n'as pas de nom,
Avez vous une idée ?
Merci de votre aide,
Cordialement ,
