PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → Vérouillage NumLock
Vérouillage NumLock
Started by dautreyfrancois, Aug., 13 2004 4:55 PM - 1 reply
#1
Posted on August, 13 2004 - 4:55 PM
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.
#2
Posted on August, 14 2004 - 7:33 PM
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
→ Go back to WINDEV 2024