11-16-2007, 04:33 PM
|
#2
|
|
N00B Pwner
Last Online: 10-07-2009 10:14 PM
Join Date: Apr 2007
Location: In a House
Posts: 453
Rep Power: 3
Rep Points: 10
Points: 7,615.51
Bank: 38,432.60
Total Points: 46,048.11
|
Re: Mega Post of Tuts
Enable and Disable CTRL + ALT + Delete
Make sure you have 2 command buttons and a module
Insert this in your module:
Code:
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
Insert this into your form:
Code:
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim x As Long
x = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Private Sub Command2_Click()
DisableCtrlAltDelete (False)
End Sub
Private Sub Command1_Click()
DisableCtrlAltDelete (True)
End Sub
|
|
|