Declarations

Copy this code into the declarations section of your project.

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
Code

Code:
Sub DisableCtrlAltDelete(bDisabled As Boolean)
    Dim X As Long
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Use

To disable Ctrl-Alt-Delete:

Code:
Call DisableCtrlAltDelete(True)
To enable Ctrl-Alt-Delete:

Code:
Call DisableCtrlAltDelete(False)
Regards,

------------------
- Chris
[email protected]
If it ain't broke - don't fix it


[This message has been edited by chrisjk (edited 01-22-2000).]