Problème code clavier entre Delphi et d'autres applications

Bonjour à Tous...

Ne sachant pas trop où poster ce sujet je le mets dans langage.

Je réalise en ce moment un Front-End pour l'émulateur de Flippers (FUTURE PINBALL)

J'utilisais jusqu'à présent les touches du clavier (VK_key).
VK_LSHIFT (Flipper gauche) fait défiler les images vers la gauche.
VK_RSHIFT (Flipper droite) fait défiler les images vers la droite.
VK_SPACE (Lance le flipper).
VK_ESCAPE (Quitter).
VK_LCONTROL (Mode aléatoire)
VK_LCONTROL (Quitter)

Pour cela, j'utilise le code suivant : if GetKeyState(VK_key) <0 then...
Tout fonctionne parfaitement et je n'ai aucun problème de ce coté-là.

J'ai réalisé un 'CAB' pour faire pour de vraie... et me passer de clavier.
J'ai donc eu l'idée de modifier mon programme afin de récupérer la configuration des touches de Futur Pinball qui sont stockées dans la base de registre.
Toujours aucun problème une petite fonction pour lire la BDR windows et je récupère bien la valeur des touches de Futur Pinball.
---
LE PROBLEME :

Les codes de touches ne sont pas les mêmes et cela ne marche plus bien sûr.
Les codes Futur Pinball ne correspondent pas aux touches du clavier quand mon programme tourne.

Code de Touches Delphi :
VK_LSHIFT = 37
VK_RSHIFT = 39
VK_SPACE = 32
VK_ESCAPE = 27
VK_LCONTROL = 162
VK_LCONTROL = 163
---
Code de Touches Futur Pinball :
FLIP Gauche = 42 (Shift gauche)
FLIP Droite = 54 (Shift droite)
PLUNGER = 57 (Espace)
SpécialKey1 = Ctrl-Gauche (Mode aléatoire)
SpécialKey2 = Ctrl-Droite (Escape)

Je ne vois pas de relation entre le code de ces touches.

Je pensais que les codes de touches clavier étaient les mêmes et gérées par le système.
Pourriez-vous m'aider ?

Merci...

Il se base sur le code physique de la touche (le scan code) et non sur le code virtuel (le virtual key code).

MapVirtualKeyEx pour passer de l'un à l'autre :

Code:

---

1 2	SC := MapVirtualKeyEx(VK, MAPVK_VK_TO_VSC, 0); VK := MapVirtualKeyEx(SC, MAPVK_VSC_TO_VK_EX, 0);

---

Erreur de frappe sans doute mais les codes sont faux: VK_LSHIFT=160, VK_LEFT=37

Yep ! Merci @Andnotor.

Comment faire simple alors que l"on peut faire compliqué...

Citation:

---

Erreur de frappe sans doute mais les codes sont faux: VK_LSHIFT=160, VK_LEFT=37

---

Ouais, bien vu...

Encore merci, j'étais resté sur l'aide de delphi et n'avais pas pensé au SDK.

Sait-on pourquoi les codes virtuels ne sont pas les mêmes que les codes physique du clavier ?

A cause de la localisation du clavier. AZERTY - QWERTY, A-Q même scancode mais VK différents.

AZERTY/QUERTY : Mais oui mais bien sur... (Mon cerveau est au ralenti aujourd'hui.)

Je viens de faire quelques test. (Ca peut peut-être aider...)

Je récup le ScanCode des Touches du programme stocker dans la base de registre.
Je stock les cinq codes dans un tableau :

Code:

---

1 2 3 4 5

Tkb[0]:=Registry.ReadInteger('LeftFlipperKey'); Tkb[1]:=Registry.ReadInteger('RightFlipperKey'); Tkb[2]:=Registry.ReadInteger('PlungerKey'); Tkb[3]:=Registry.ReadInteger('Special1Key'); Tkb[4]:=Registry.ReadInteger('Special2Key');

---

Je convertis en Code Virtuel (VK_xxx)

Code:

---

1 2	Tkb[0] := MapVirtualKeyEx(TKb[0], 3, 0); // 3 parce que je veux différencier la touches gauche et droite. (Ctrl, Shift) //etc...

---

Je test le clavier :

Code:

---

1 2	if GetKeyState(Tkb[0]) <0 then ... // GetKeyState car il fait la différenciation //etc...

---

Et ça marche super bien... génial.

Encore Merci @Andnotor.

A bientôt. Le poste est résolu !