CodeItBetter Programming Another VB Programming Blog

'System & API - How to Enable And Disable The Ctrl+Alt+Del

Option Explicit
 
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
 
Sub DisableCtrlAltDelete(ByVal bDisabled As Boolean)
    Call SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
 
'How can I call this routine:

'To disable Ctrl+Alt+Del
Private Sub Command1_Click()
    DisableCtrlAltDelete (True)
End Sub
 
'To enable Ctrl+Alt+Del
Private Sub Command2_Click()
    DisableCtrlAltDelete (False)
End Sub