04/05/2012, 12:10
Kod:
Option Explicit
Private 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
Private Const SPI_SETSCREENSAVERRUNNING = 97Kod:
Public Sub DisableCAD(Disabled As Boolean)
'SET DISABLED TO TRUE TO DISABLE CTRL-ALT-DELETE
'SET DISABLED TO FALSE TO RE-ENABLE
Dim lRet As Long
lRet = SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, _
Disabled, 0&, 0&)
End Sub