Hi Noel
You can try this code
disable CTRL + ALT + DEL
'disable CTRL + ALT + DEL
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 Disable(blnDisable As Boolean)
result = SystemParametersInfo(97, blnDisable, CStr(1), 0)
End Sub
-------------------
alternatively you can use the following code
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim lpvParam As Boolean
Dim X As Long
X = SystemParametersInfo _
(SPI_SETSCREENSAVERRUNNING, _
bDisabled, lpvParam, 0)
End Sub
Then in your main code... in the Form_Load event... do this:
DisableCtrlAltDelete (True)
Regards
Pranav Gore
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only