
Desactivar teclas CRTL + ALT + SUP
FoxPro/Visual FoxPro
20.516 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)






(5)














***************************************************************************
*** 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 = 97lpvParam = '0'
fuWinIni = 0If tlEstado = .T.
*--- deshabilita las teclas
uParam = 1tnResultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
Else
*--- habilita las teclas
uParam = 0tnResultado = 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..