SoloCodigo

Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_SCREENSAVERRUNNING = 97

 

Public Sub DisableCtrlAltDel()

       Dim lpvParam As Integer

       SystemParametersInfo SPI_SCREENSAVERRUNNING, True, lpvParam, 0

End Sub

 

Public Sub EnableCtrlAltDel()

       Dim lpvParam As Integer

       SystemParametersInfo SPI_SCREENSAVERRUNNING, False, lpvParam, 0

End Sub