Discussion :

[devoluti0n]

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 :

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

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 ?

[Gilbert Geyer]

Code :

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

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 :

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

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);

[ShaiLeTroll]

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

Code :

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

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;

[devoluti0n]

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.....

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

Code :

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

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 :

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

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.

[Rayek]

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 ?

[Cl@udius]

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.

@+