Visual Basic > Code Snippets

API disable ctrl alt and del .Not XP or 2000

API disable ctrl alt and del .Not XP or 2000

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 
 

Private Sub Form_Load() 
Call DisableCtrlAltDelete(True) 
End Sub 


Private Sub Form_Unload(Cancel As Integer) 
Call DisableCtrlAltDelete(False) 
End Sub