Problema con ctrl + alt + supr
Publicado por Borja (2 intervenciones) el 17/02/2003 13:11:50
En un proyecto tengo el siguiente codigo en un modulo:
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SCREENSAVERRUNNING = 97
Public Sub ToggleCtrlAltDel(IsEnabled As Boolean)
Dim lReturn As Long
Dim lBool As Long
lReturn = SystemParametersInfo(SPI_SCREENSAVERRUNNING, IsEnabled, lBool, vbNull)
End Sub
Y llamo a esta funcion desde un formulario de la siguiente manera:
ToggleCtrlAltDel (True)
Supuestamente esto bloquea la combinacion de teclas ctrl + alt + supr, sin empargo, al ejecutar el proyecto y pulsar esta combinacion, sigue apareciendo la ventana para acceder al administrador de tareas. ¿Que puede estar mal en ese codigo?.
Gracias de antemano por el tiempo prestado
Borja.
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SCREENSAVERRUNNING = 97
Public Sub ToggleCtrlAltDel(IsEnabled As Boolean)
Dim lReturn As Long
Dim lBool As Long
lReturn = SystemParametersInfo(SPI_SCREENSAVERRUNNING, IsEnabled, lBool, vbNull)
End Sub
Y llamo a esta funcion desde un formulario de la siguiente manera:
ToggleCtrlAltDel (True)
Supuestamente esto bloquea la combinacion de teclas ctrl + alt + supr, sin empargo, al ejecutar el proyecto y pulsar esta combinacion, sigue apareciendo la ventana para acceder al administrador de tareas. ¿Que puede estar mal en ese codigo?.
Gracias de antemano por el tiempo prestado
Borja.
Valora esta pregunta


0