getasynckeystate->keybd_event, pourquoi si instable ?

Bonsoir, débutant en delphi, j'aurai aimé faire une application pouvant simuler la préssion de Espace par préssion de AltGr.

tout d'abord voici mon code :

Code:

---

1 2 3 4 5 6

begin If (GetASyncKeyState(VK_RMENU) <> 0) Then keybd_event(VK_SPACE,0,0,0); //Préssion keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0); //Relachement end;

---

et donc, sa marche éxtrémement mal, ai-je eu une vision trop utopique du résultat que ce code aurai du produire ?

Ps: meme probleme avec sendinput, le souci viendrai de getasynckeystate ?

Citation:

---

Code:

---

1 2	begin If (GetASyncKeyState(VK_RMENU) <> 0) Then

---

le souci viendrai de getasynckeystate ?

---

Dommage que ton code ne montre pas ce qu'il y a juste devant le begin.

Essayes donc de placer ton if dans :

Code:

---

1 2	procédure Form1.Timer1Timer(Sender: TObject); begin If (GetASyncKeyState(VK_RMENU) <> 0) Then ....

---

.. cela devrait marcher entre un peu mieux et mieux selon la valeur affectée à la propriété Interval du Timer (à ajuster par tâtonnements);

J'ignore si ton extrait de code était complet, mais il manquait les begin end, ta lenteur ne serait pas de ce faite ...

Code:

---

1 2 3 4 5 6 7

begin If (GetASyncKeyState(VK_RMENU) <> 0) then begin // il manquait ça non ? keybd_event(VK_SPACE,0,0,0); //Préssion keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0); //Relachement end; end;

---

Rebonjour !!
Le begin aprés un IF semble ne rien changer.

Cenpendant j'ai bien trouver ce qui posait probleme, un souci au niveau de mon timer.interval

Mais j'ai toujours un autre souci, car sa ne fonctionne toujours pas dans mon application directx, alors que sa fonctionne partout ailleur :S.

Get a synckeystate n'était-il pas sencé fonctionner en "bas niveau" ?

est-il plus intéréssant d'utiliser des procédures se présentant sous la forme de keyup et de keydown et d'y insérrer chaque parties correspondante de mon sendinput et d'appeler ces procédures selon l'état de la touche ?


Egalement, j'aimerai savoir pourquoi RMENU fonctionne éxtrémement mal ?!
Car une vkey tel que shift ou autre réponds trés bien, or RMENU ne réagit quasiment jamais lors de sa préssion..... :cry:

j'ai éssayé avec quelque chose du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;     type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState) ; procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState) ;

---

Code:

---

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

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_SHIFT then begin Input.Itype := INPUT_KEYBOARD; Input.ki.wVk := VK_SPACE; Input.ki.wScan := 0; Input.ki.time := 0; Input.ki.dwExtraInfo := 0; Input.ki.dwFlags := 0; // Preparation pour envoi Key DOWN SendInput(1, Input, SizeOf(Input)); //Send Key DOWN end; end;   procedure TForm1.FormKeyup(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_SHIFT then begin Input.Itype := INPUT_KEYBOARD; Input.ki.wVk := VK_SPACE; Input.ki.wScan := 0; Input.ki.time := 0; Input.ki.dwExtraInfo := 0; Input.ki.dwFlags := KEYEVENTF_KEYUP; // preparation pour envoi Key UP SendInput(1, Input, SizeOf(Input)); //Send Key UP end;

---

Mais bien évidement sa ne marche pas :(
ps: j'ai remis shift en vkey en attendant de comprendre pourquoi altgr marche trés mal lors de sa préssion.

J'ai un doute que VK_RMENU soit le AltGr.

Alt GR est la combinaison de Alt + Ctrl (fait le teste pour faire un | tu verras que faire [Alt GR + 6] ou [Ctrl + Alt + 6] ca donne la même chose)

Pour moi si je me souviens bien, VK_RMENU c'est pas la touche windows ?

Citation:

---

Envoyé par Malatar

Pour moi si je me souviens bien, VK_RMENU c'est pas la touche windows ?

---

Les codes touche virtuelle pour les touches Windows sont VK_[L|R]WIN.

Mais d'accord avec toi: Alt-Gr correspond bien à la combinaison de Alt + Ctrl.

@+

VK_MENU, c'est ALT ... cela c'est sur !

ensuite, VK_LMENU et VK_RMENU ne sont pas des codes réelles mais des constantes spécifiques à GetASyncKeyState

ainsi les events WM_KEYDOWN et WM_KEYUP, ne peuvent pas recevoir ces valeurs :

{ VK_L & VK_R - left and right Alt, Ctrl and Shift virtual keys.
Used only as parameters to GetAsyncKeyState() and GetKeyState().
No other API or message will distinguish left and right keys in this way. }

j'ai mis cela dans un Timer à 1ms, et cela fonctionne sans soucis

Code:

---

StatusBarMain.Color := IfThen(GetASyncKeyState(VK_RMENU) <> 0, clWhite, clBtnFace);

---

Je viens de faire un test dans un onKeyDown.

L'appui sur AltGR déclenche l'appel de 2 touches qui correspondent aux touches Alt et Ctrl.
VK_RMENU ne correspond pas à AltGR

Code:

---

1 2 3 4 5

procedure Tform1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Memo1.lines.add(intToStr(Key) + ' = ' + inttoStr(VK_RMENU)); end;

---

Et pourtant, je vous laisse éssayer, metez un timer dans une form, et mettez le code suivant :

Code:

---

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;     type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private   public   end; var GInput: array[0..0] of tagINPUT; //GENERALINPUT; Form1: TForm1; Input:TInput;     implementation   {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin timer1.Enabled := true; timer1.Interval:= 10; end;   procedure TForm1.Timer1Timer(Sender: TObject); begin If (GetASyncKeyState(VK_F2) <> 0) then begin Input.Itype := INPUT_KEYBOARD; Input.ki.wVk := VK_SPACE; Input.ki.wScan := 0; Input.ki.time := 0; Input.ki.dwExtraInfo := 0; Input.ki.dwFlags := 0; // Preparation pour envoi Key DOWN SendInput(1, Input, SizeOf(Input)); //Send Key DOWN Input.ki.dwFlags := KEYEVENTF_KEYUP; // preparation pour envoi Key UP SendInput(1, Input, SizeOf(Input)); //Send Key UP end; end;   end.

---

Le send input fonctionne trés bien.
Maintenant remplacez le VK_F2 qui était un éssai par VK_RMENU... sa ne marche plus, ou alors trés mal!
Alors qu'avec VK_SHIFT par éxemple, c'est nikel aussi ...

mais ce que j'aimerai aussi savoir c'est si la touche altgr = ctrl + alt dans certains programmes, ou si elle est égale à ctrl+alt dans TOUS windows et dans chaques programme, car ce programme est à l'origine déstiné à une application directx ...
(ps: apparement le post du dessus réponds bien à cette question)

et donc comment faire pour utiliser la touche altgr ? j'entends par la, comment faire pour faire effectuer une action avec ctrl+alt d'appuyer ?

êtes vous sur que sa marche de partout ? car par éxemple ctrl+alt+suppr éffectue une action, mais algr+suppr sa ne fait rien donc cette touche a bien une iddentité propre ... :?

Citation:

---

Envoyé par devoluti0n

mais ce que j'aimerai aussi savoir c'est si la touche altgr = ctrl + alt dans certains programmes, ou si elle est égale à ctrl+alt dans TOUS windows et dans chaques programme, car ce programme est à l'origine déstiné à une application directx ...
(ps: apparement le post du dessus réponds bien à cette question)

et donc comment faire pour utiliser la touche altgr ? j'entends par la, comment faire pour faire effectuer une action avec ctrl+alt d'appuyer ?

êtes vous sur que sa marche de partout ? car par éxemple ctrl+alt+suppr éffectue une action, mais algr+suppr sa ne fait rien donc cette touche a bien une iddentité propre ... :?

---

Normalement, c'est la règle pour AltGR, c'est la combinaison de Ctrl + Alt dans windows.

Après il faut faire la différence entre l'appui physique et virtuel (que doit faire AltGR)

Je sais que j'avais eu des problèmes avec cette sa...ie de touche AltGr quand j'avais fait mon logiciel de prises en main d'application.

Citation:

---

Envoyé par Malatar

Je viens de faire un test dans un onKeyDown
...
VK_RMENU ne correspond pas à AltGR

---

VK_RMENU = ALT GR pour GetAsyncKeyState et uniquement cette fonction, et non pas pour onKeyDown (WM_KEYDOWN), tu ne peux pas avoir de conclusion correcte puisque ton test n'est pas correct ... c'est bien, j'ai un peu l'impression de poster dans le vide ... vous lisez l'aide de la MS SDK de temps en temps ?

et ALT GR oui n'est qu'un raccourci clavier, c'est d'ailleurs pour cela que WM_KEYDOWN indique DEUX Touches LOGIQUES ... GetAsyncKeyState ne fonctionne pas de la même manière puisque, cela demande à un instant donné l'état d'une touche physique, donc détecte le ATL GR comme étant différent de CTRL + ALT ...

Code:

---

1 2 3 4 5 6 7

procedure TFrmMain.TimerTestTimer(Sender: TObject); begin if GetASyncKeyState(VK_RMENU) <> 0 then StatusBarMain.Panels[3].Text := IntToStr(StrToIntDef(StatusBarMain.Panels[3].Text, 0) + 1); if GetASyncKeyState(VK_SPACE) <> 0 then StatusBarMain.Panels[3].Text := IntToStr(StrToIntDef(StatusBarMain.Panels[3].Text, 0) - 1); end;

---

Que ce soit l'un ou l'autre, je n'ai aucun problème, ne serait pas plutôt un conflit de touche, ... faudrait peut-être forcé avec SetKeyboardState le relachement du ALt GR puis en fait au lieu d'avoir ESPACE d'appuyer il considère qu'il a ALT + CTRL + SPACE ...

Je viens d'éssayer sa :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Timer1Timer(Sender: TObject); begin If (GetKeyState(VK_CONTROL) <> 0) and (GetKeyState(VK_MENU) <> 0) then begin keybd_event(VK_SPACE,0,0,0); //Préssion keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0); //Relachement end; end;

---

(j'ai abbandoné le sendinput, sa fonctionne de la meme façon dans mon jeu et comme sa c'est plus léger :))

et donc j'ai de nouveaux souci qui se présentent.

Le premier et que lorsque je presse altgr, sa fonctionne mais le relachement n'est pris en compte seulement lorsque je réappuye sur la touche, ce qui n'est pas voulu.
de plus, sur wordpad la simulation des barres d'éspaces est trés rapide alors que dans mon jeu j'ai droit à une préssion de space toutes les 5secondes au moins, c'est donc trés instable :s ......
VK_RMENU n'étant pas pris en compte je n'ai que ce choix.

Citation:

---

Que ce soit l'un ou l'autre, je n'ai aucun problème, ne serait pas plutôt un conflit de touche, ... faudrait peut-être forcé avec SetKeyboardState le relachement du ALt GR puis en fait au lieu d'avoir ESPACE d'appuyer il considère qu'il a ALT + CTRL + SPACE ...

---

est-ce que je dois continuer à utiliser getasynckeystate ou il vaut mieu que j'utilise une autre procedure ?

Edit : pour que sa fonctionne bien seulement pendant la préssion de alt gr je dois utiliser getasynckeystate.

Avec GetKeyState je dois réappuyer sur altgr pour que sa s'arrete ...:evilred:

Bon aprés plusieurs tests, vous pouvez ne plus prendre en compte ce que j'ai écrit la haut.

ce bout de code fonctionne dans mon jeu.

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Timer1Timer(Sender: TObject); begin If (GetasyncKeyState(VK_LCONTROL) <> 0) then begin keybd_event(VK_SPACE,0,0,0); //Préssion keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0); //Relachement end; end;

---

Mais le souci ne viens pas de la touche que je j'appuye mais je pense de la façon dont le jeu capte le getasynckeystate.

Sur wordpad par éxemple, ayant mit mon timer à 50, lorsque j'appuye sur la touche désirée et choisie (ici LCONTROL) j'ai bien des simulations de préssion de la barre d'éspace qui s'éxécutent tant que la touche ctrl est préssée.
Hors dans mon jeu je dois en avoir toutes les 10secondes voir plus...

Je pense devoir utiliser les procédures onkeydown ou onkeyup non ? qu'en pensez vous ? car moi personnelement j'ai l'impréssion que mon jeu n'aime pas les getasynckeystate ....

Je vous demande donc ce que vous en pensez car je ne sais pas les utiliser :?

Seul getasynckeystate permet de détecter la touche ALT GR, les autres events vont fournir CTRL(17) puis ALT(18)...

Maintenant, j'ignore ton besoin mais au final, j'ai l'impression que cette histoire de SPACE via ALT GR est bien obscure et peu "utile"

Sinon, un seul appel de keybd_event est suffisant non ?

Code:

---

1 2 3 4 5 6

procedure TForm1.Timer1Timer(Sender: TObject); begin If (GetasyncKeyState(...) <> 0) then keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0); // celui là ne suffirait pas ? end;

---

Mon besoin est simplement de pouvoir simuler l'appui de 2 barres d'éspaces par préssion de AltGr.
genre AltrGR->Espace->50ms de pause->Espace-> arret jusqu'au prochain appui.

pour une utilisation sur un jeu directdraw....
keybd_event fonctionne, send input aussi, mais le jeu a l'air de mal capter la touche AltGr et donc je cherche un moyen de faire sa autrement que par getasynckeystate qui fonctionne donc mal dans mon jeu.
j'ai un prog qui peut faire sensiblement la meme chose et qui lui marche correctement donc je sais que c'est possible.
Et donc je cherche un moyen de capter AltGr (apparement il faudrai CTRL+ALT) et je vous renvoi à ce post que j'ai fait récement pour éviter les hors sujets :

Ici

Rien ne t'empeche de traiter le AltGr dans le OnKeyDown.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure Tform1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If (GetasyncKeyState(VK_LCONTROL) <> 0) then begin keybd_event(VK_SPACE,0,0,0); //Préssion keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0); //Relachement end else begin // traitement des autres touches end; end;

---

(Code non testé)

Après il faut voir s'il ne fait pas un double envoi dans le OnKeyDown.

Sinon ta pause de 50ms tu n'utilises pas sleep j'espère ?

le code virtuel de Alt Gr est VK_RMENU:

Démonstration:

Code:

---

1 2 3 4 5 6 7 8 9

function IsKeyDown(VKey: Integer):Boolean; begin Result := GetAsyncKeyState(VKey) < 0; end;   procedure TForm1.Button1Click(Sender: TObject); begin if IsKeyDown(VK_RMENU) then ShowMessage('touche Alt Gr appuyée'); end;

---

PS: Dans la rubrique Venez participer à la FAQ Delphi ! j'évoque l'usage de GetKeyState, en page 2 .

Citation:

---

Envoyé par Malatar

Rien ne t'empeche de traiter le AltGr dans le OnKeyDown.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure Tform1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If (GetasyncKeyState(VK_LCONTROL) <> 0) then begin keybd_event(VK_SPACE,0,0,0); //Préssion keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0); //Relachement end else begin // traitement des autres touches end; end;

---

(Code non testé)

Après il faut voir s'il ne fait pas un double envoi dans le OnKeyDown.

Sinon ta pause de 50ms tu n'utilises pas sleep j'espère ?

---

Oh merci !
Cepandant ce code ne marchera pas :s, car meme s'il marchait il marcherait dans la mémo, hors je dois envoyer ma séquence de touches à un programme externe.

et comment dois-je déclarer memo1keydown ? Comme cela ?

procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

Et non je n'utilise pas de sleep.

Le memo est un exemple (endroit où j'ai testé mon code à la base), je te propose seulement une idée d'utilisation des deux fonctionnements.
Après à toi d'implémenter de la façon la plus judicieuse ce que l'on te propose, on ne va pas tout te développer non plus ;)

Citation:

---

Envoyé par Malatar

Le memo est un exemple (endroit où j'ai testé mon code à la base), je te propose seulement une idée d'utilisation des deux fonctionnements.
Après à toi d'implémenter de la façon la plus judicieuse ce que l'on te propose, on ne va pas tout te développer non plus ;)

---

Ok merci, mais je posais quand meme la question parcqu'avec la déclaration que j'ai mise, ton code ne marche pas :)