by Michael Bald (1 Submission)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 20th September 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Disables / Enables Ctrl-Alt-Delete
Public Const SCREENSAVERRUNNING = 97
Public Sub Disable_Ctrl_Alt_Del()
On Error Resume Next
Dim lResult As Long
Dim bBoolean As Boolean
lResult = SystemParametersInfo(SCREENSAVERRUNNING, True, bBoolean, 0)
End Sub
Public Sub Enable_Ctrl_Alt_Del()
On Error Resume Next
Dim lResult As Long
Dim bBoolean As Boolean
lResult = SystemParametersInfo(SCREENSAVERRUNNING, False, bBoolean, 0)
End Sub