Desactivacion de Ctr-Att-Del
Publicado por Jesus Alberto Sanchez Sarabia (45 intervenciones) el 12/03/2004 20:06:16
Mi estimado Arturo:
Solo para complementar la informacion de nuestro Colega.
Te mando una funcion que te va a ayudar a resolver tu nota, ojala te sea de utilidad. La puedes implantar directo y ya esta probada.
Suerte.
Estamos en contacto.
J. Alberto Sanchez Sarabia
Consultor
Mexico, D.F.
** FUNCTION NOReiniciar
** Desactiva las Teclas Crtl + Alt + Del ( Windows) Visual Fox
*
** Parametros enviados a la funcion
** tlEstado = Status de las Teclas
** .T. = Desactiva las Teclas
** .F. = Activa las Teclas
**************************************************************************
FUNCTION NOReiniciar (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 NOReiniciar (lStatus)*
** Modificada: Jass' 2004
Solo para complementar la informacion de nuestro Colega.
Te mando una funcion que te va a ayudar a resolver tu nota, ojala te sea de utilidad. La puedes implantar directo y ya esta probada.
Suerte.
Estamos en contacto.
J. Alberto Sanchez Sarabia
Consultor
Mexico, D.F.
** FUNCTION NOReiniciar
** Desactiva las Teclas Crtl + Alt + Del ( Windows) Visual Fox
*
** Parametros enviados a la funcion
** tlEstado = Status de las Teclas
** .T. = Desactiva las Teclas
** .F. = Activa las Teclas
**************************************************************************
FUNCTION NOReiniciar (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 NOReiniciar (lStatus)*
** Modificada: Jass' 2004
Valora esta pregunta


0