Ctrl-Alt-del

[meetsujith]

Iam not able to disable the ctrl-alt-del way of closing an application using your program.Please help me out.

Put this code in a module

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

' The sub to disable the CtrlAltDelete
Sub DisableCtrlAltDelete(bDisabled As Boolean)

    Dim X As Long
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)

End Sub

Put this code in a Load event of the Form.

Private Sub Form_Load()

   'disable CtrlAltDel
   Call DisableCtrlAltDelete(True)

End Sub

I think this will also disable the Ctrl+Esc as well.