Ctrl-Alt-del

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

Code:

---

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.

Code:

---

Private Sub Form_Load()

  'disable CtrlAltDel
  Call DisableCtrlAltDelete(True)

End Sub

---

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