Disable AltCtlDel but NOT S-Saver too???

[Bozo]

All of the API code snippets I've found that disable Alt-Ctrl-Delete also disable the screen saver! Is there a way to disable ACD w/o disabling the screen saver as well???

[Tadej]

This works fine for me:

Option Explicit

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

Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim x As Long
x = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub


Usage:
to disable:
DisableCtrlAltDelete True
to enable:
DisableCtrlAltDelete False

Tadej