Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Disable Ctrl-Alt-Del


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


'To disable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete( True )

'To enable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete( False )