darkst
Messages postés1Date d'inscriptionlundi 30 octobre 2006StatutMembreDernière intervention24 juin 2008
-
24 juin 2008 à 18:17
tokriAPE
Messages postés1Date d'inscriptionsamedi 26 mars 2011StatutMembreDernière intervention27 mars 2011
-
27 mars 2011 à 14:02
je veut envoyer des touche a une autre application avec postmessage
je reussi a envoyer les lettre mais elle double et les touche f1-f2-..- .. ne marche pas
ps:j'ai fait mes test avec notepad
var
Hwnd : THandle;
Posi : TPoint;
... //timer1 10 sec decalage avant de prendre le handle en dessous de la souris
begin
Hwnd:=WindowFromPoint(Posi); //donne le handle de la fentetre que la souris pointe
label1.Caption:=label1.Caption:='Handle : ' + IntToStr(Hwnd); //affiche le handle
timer1.Enabled:=false;
timer2.Enabled:=true;
end;
.. //timer2 10 sec decalage entre les touche 'a' envoyer a la fenetre
begin
postmessage(Hwnd,WM_KEYDOWN,65,0); //65=lettre 'a' down
sleep(100); //delai
postmessage(Hwnd,WM_KEYUP,65,0) //lettre 'a' up
end;