disables/enables Ctrl-Alt-Del
disables/enables Ctrl-Alt-Del
API Declarations
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Rate disables/enables Ctrl-Alt-Del
(1(1 Vote))
Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
'put this in the form close
Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
disables/enables Ctrl-Alt-Del Comments
No comments yet — be the first to post one!
Post a Comment