Visual Basic > Code Snippets sample source codes

 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



Privacy Policy | Link to Us | Links