Discussion :

[pixel016]

Bonjour à tous, je suis un ptit nouveau sur ce forum bien que je vais régulièrement sur ce magnifique site pour me documenter

J'ai besoin de vos lumières sur windev.
J'aimerai connaitre les touches qui sont tapés sur le clavier, cela en dehors de la fenêtre de mon projet. Mais je ne sais pas comment faire.

si quelqu'un à une idée à proposer, cela m'aiderai beaucoup.

D'avance je vous remercie

[Ry_Yo]

Bonjour,

je copie/colle la solution d'un développeur à cette question sur le forum de PCSOFT, en gros il faut faire un "keyboard's hook" :

Regarde l'exemple "WD CopieEcran" de la LST 61 il y a tous ce que décrit Patrice. Cela dit ce n'est pas bien compliqué à mettre en place avec la doc de la fonction dispo sur http://msdn.microsoft.com/library/en...dowshookex.asp
Tu doit écrire par exemple un truc du genre
nHandleHook = API("user32","SetWindowsHookExA",WH_KEYBOARD_LL,&CallBackHook
,SysInstance(),Null)
Puis à la fermeture de ton appli ou lorsque tu veux cesser le hook ecrire API("user32","UnhookWindowsHookEx",nHandleHook)

Bonne journée

[pixel016]

Merci pour ta réponse.
Mais c'est un peu léger pour mon niveau ... si je peux avoir un peu plus de détails .

Si je colle ça ça ne va pas marcher et je ne comprends pas vraiment le fonctionnement de API ...

[Ry_Yo]

Voici un exemple complet trouvé toujours trouvé sur le forum de PCSOFT :

// Code de déclaration de la fenêtre
gnHandleHook est un entier

// init de ma fenêtre
gnHandleHook = API("user32","SetWindowsHookExA",13,&Procédure_Hook, Instance() ,0)

//créer une procédure global

PROCEDURE Procédure_Hook(ncode, wParam, lParam)

tu dois gérer les touche de ton clavier ici.
tu analyses les paramètres de la procédure qui correspondent aux touches enfoncées

//Pour arrêter le hook
// Fermeture de la la fenetre ou autre pars
SI PAS API("user32","UnhookWindowsHookEx",gnHandleHook) ALORS
Erreur("erreur ")
FIN

A vous de synthétiser les informations pour l'adapter à votre système.

Cordialement.

[pixel016]

Très bon post meri ça m'a aidé. Mais j'ai un soucis qu'une personne a posté aussi c'est que la touche shift n'est pas reconnu.

[jurassic pork]

bonjour,
j'ai trouvé une solution pour le shift :

dans les constantes il faut rajouter :

Code :

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

1
2
 
VK_SHIFT=16

et la procédure hookeuse devient :

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
26
27
28
29
30
31
32
33
34
35
 
PROCEDURE Procédure_Hookeuse(ncode,wparam,lparam)
clavier est un KBDLLHOOKSTRUCT
KeyState est un tableau fixe de 256 entiers sans signe sur 1 octet
MonCharEx est un tableau fixe de 2 caractères
RetourFonction est un entier
vk est un entier sans signe
//MonChar est un caractère
keylayout est un entier 
tailleChar est un entier
x est un entier
 
SI ncode = HC_ACTION ALORS
// Sur touche enfoncé uniquement
	SI  wparam <> WM_KEYDOWN  ALORS
    	RENVOYER API("user32","CallNextHookEx",gnHandleHook, ncode, wparam, lparam) 
  FIN
Transfert(&clavier,lparam,Dimension(clavier)) // transfert de la structure ( méthode peu recommandable avez-vous mieux ? cast?)
keylayout=API("USER32","GetKeyboardLayout",0)
RetourFonction=API("USER32","GetKeyboardState",&KeyState)
vk = API("USER32","MapVirtualKeyExA",clavier:scanCode,1,keylayout)
// on place l'état de la touche Shift dans le tableau des états des touches
KeyState[VK_SHIFT +1]= ETBinaire((API("USER32","GetAsyncKeyState",VK_SHIFT)/256),255)
//RetourFonction=API("USER32","ToAscii",clavier:vkCode,clavier:scanCode,&KeyState,&MonChar,0)
// on appelle ToAsciiEx plus balaise que ToAscii
tailleChar =API("USER32","ToAsciiEx",vk, clavier:scanCode,&KeyState,&MonCharEx, 0, keylayout)
 
POUR x = 1 A tailleChar
	Fenêtre1.Memo += MonCharEx[x] // Memo est un champ de saisie qui affiche les caractères tapés	
FIN
 
FIN
 
// Renvoie la suite du hook afin de permettre le traitement de l'appui par la fenetre d'origine
RENVOYER API("user32","CallNextHookEx",gnHandleHook, ncode, wparam, lparam)

Je ne sais pas si il y a plus simple, mais cela semble marcher sur mon PC. Toute contribution sera la bienvenue !

Ami calmant, J.P

[pixel016]

Merci beaucoup pour ta contribution, tu as tu te creuser la tête parce que ça n'a pas l'air simple.

[pixel016]

Bonjour,

J'ai une autre petite question, visiblement les touches du pavé numérique ne sont pas détectées, que dois je ajouter pour que cela fonctionne ?

Merci

[pixel016]

J'ai quelques soucis avec certains caractères, par exemple le è n'est pas affiché (j'ai des symboles à la places), comment faire pour que je puisse prendre en compte tout ces caractères et en fonction du type de clavier (portable, fixe) ?