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 |