• Home
 · 
• Custom Controls/Forms/Menus
 · 
• disables/enables Ctrl-Alt-Del

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
• 2
• 3
• 4
• 5

(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)