• Home
 · 
• Windows System Services
 · 
• Disable alt+Ctrl+Del

Disable alt+Ctrl+Del

Disable alt+Ctrl+Del

Rate Disable alt+Ctrl+Del

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

   (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPI_SCREENSAVERRUNNING = 97

Private Sub Form_Unload(Cancel As Integer)

   ' when this app closes, make sure CTRL+ALT+DELETE is re-enabled
   Call Command2_Click

End Sub

Private Sub cmdDisableCTRLALTDEL_Click()

   Dim Ret  As Long
   Dim pOld As Boolean
   Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)

End Sub

Private Sub cmdEnableCTRLALTDEL_Click()

   Dim Ret  As Long
   Dim pOld As Boolean
   Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)

End Sub