PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Vérouillage NumLock
Vérouillage NumLock
Débuté par dautreyfrancois, 13 aoû. 2004 16:55 - 1 réponse
Posté le 13 août 2004 - 16:55
Pouvez-vous m'indiquer comment verrouiller les majuscules ou le pavé numérique
en faisant appel à une API WINDOWS. Le sais comment connaître l'état de ces
touches avec par exemple:
EtatTouche= AppelDll32("USER32","GetKeyState",144)
(1 = verrouillé, 2 = non verrouillé)
Si quelqu'un peut m'indiquer comment on peut modifier par programmation modifier
ce vérouillage ?

D'avance merci.
Posté le 14 août 2004 - 19:33
J'ai trouvé ça peut servir
// Forcer numlock en vérouillage
// amélioration apportée par DAUTREY François e-mail : dautreyfrancois@free.fr
// pour tenir compte des versions de windows
// sans garantie pour milénium je n'ai pas pu tester
vers est une chaîne
VK_NUMLOCK est un entier sur 4 octets = 0x90 + 1
Clavier est un tableau de 256 caractères
EtatTouche est un entier
vers=SysVersionWindows()
SI (vers="XP") OU (vers="ME") ALORS
EtatTouche=ETBinaire(AppelDLL32("USER32","GetKeyState",144),1)
SI EtatTouche=0 ALORS
API("USER32","keybd_event",144,0x45,1,0)
API("USER32","keybd_event",144,0x45,2,0)
FIN
SINON
API("USER32","GetKeyboardState",&Clavier[1])
Clavier[VK_NUMLOCK] = 1
API("USER32","SetKeyboardState",&Clavier[1])
FIN