
Desactivar teclas CRTL + ALT + SUP
FoxPro/Visual FoxPro
20.344 visualizaciones desde el 4 de Marzo del 2002
Esta funcion la pueden copiar en su archivo de Rutinas e invocarla desde cualquier parte de su programa. (Visual FoxPro)
***************************************************************************
*
** 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()
*
Comentarios sobre la versión: Versión 1 (5)
gracias
Agradeceria que foxperto nos regalará la corrección..