Windev – Comment bloquer Clavier ou souris

Un code tout simple afin de bloquer le clavier ou la souris:

//gnHandleHook étant une variable global de la fenetre
//code de declaration de la fenetre

gnHandleHook est un entier

//Code clic sur bouton –> commence blocage clavier

gnHandleHook = API(« user32″, »SetWindowsHookExA »,13,&Procédure_Hook, Instance() ,0)

 

//Creer une procedure globale

PROCEDURE Procédure_Hook(ncode, wParam, lParam) RENVOYER -1

 

//code du clic Code clic sur bouton –>pour débloquer clavier

SI PAS API(« user32″, »UnhookWindowsHookEx »,gnHandleHook) ALORS        Erreur(« erreur « )FIN

 

//Pour bloquer la souris il suffit de remplacer 13 par 14