Función API para deshabilitar las teclas Ctrl-Alt-Del,Alt-Tab,Ctrl-Esc y Tecla "Windows", enviada por Carlos Tarello (Kevin Mitnick)




***************************************************************************
***************************************************************************
*
*   Función     : DesactivarTeclasWindows
*   Proposito   : Desactiva las combinaciones de Teclas de Windows:
*                 Ctrl-Alt-Del
*                 Alt-Tab
*                 Ctrl-Esc
*                 Tecla "Windows"
*   Parametros  : .T. = Deshabilita las teclas
*                 .F. = Habilita las teclas
*   Nota        : Esta función Hace creer al Windows que esta activado el ScreenSaver
*   Regresa     : 1 = Se realizo con Exito
*                 0 = No se pudo hacer el cambio
*   Ejemplo     : a) Deshabilita las teclas:
*                 n_Resultado = DesactivarTeclasWindows(.T.)
*
*                 b) Habilita las teclas:
*                 n_Resultado = DesactivarTeclasWindows(.F.)
 
***************************************************************************
***************************************************************************
FUNCTION DesactivarTeclasWindows(b_Estado)
 
DECLARE INTEGER SystemParametersInfo IN USER32.DLL  ;
LONG uAction,   ;
LONG uParam,   ;
STRING lpvParam,  ;
LONG fuWinIni
 
uAction  = 97
lpvParam = '0'
fuWinIni = 0
 
If b_Estado = .T. 
   *--- deshabilita las teclas
   uParam   = 1
   n_Resultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
Else
   *--- habilita las teclas
   uParam   = 0
   n_Resultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)    
EndIf
 
RETURN n_Resultado
 
ENDFUNC