miércoles, 1 de febrero de 2012

Bloquear Teclado Mouse

En Visual Fox 6


Thisform.AddProperty('valor',0)
Declare Long BlockInput In "user32" Integer nOpcion
BlockInput(1)

con CTRL+ALT+DEL y luego cancelar volves a tener la posibilidad de ingresar por teclado


*
** FUNCTION DesactivarTeclasWindows(tlEstado)
** Funcion para Desactivar las Teclas CRTL + ALT + SUPR de Windows
*
** Parametros
**    tlEstado   =  Estado de las Teclas  (VALOR LOGICO)
**          .T.  = Desactiva las Teclas
**          .F.  = Activa las Teclas
*
*** Rutina suministrada por: ROD       -  eendor@hotmail.com
*** Ultima Modificacion:     Foxperto  -  foxperto@yahoo.com
***                          Marzo 01 2002
*
**************************************************************************
*
FUNCTION DesactivarTeclasWindows(tlEstado)

DECLARE INTEGER SystemParametersInfo IN USER32.DLL ;
LONG uAction, ;
LONG uParam, ;
STRING lpvParam, ;
LONG fuWinIni

uAction = 97
lpvParam = '0'
fuWinIni = 0

If tlEstado = .T.
*--- deshabilita las teclas
uParam = 1
tnResultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
 Else
*--- habilita las teclas
uParam = 0
tnResultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
EndIf

RETURN tnResultado

ENDFUNC
*
** Fin DesactivarTeclasWindows()
*