Pal
Dec 10th, 2000, 09:12 PM
Hi i really need help i need to disable any way to get out of my form like Alt Tab and Alt F4 And Ctrl Alt Delete And and any other ways can you please help me !!!!!!!
P.S "Sorry about the last message"
Signing off "PAL"
Thansk for any help.
To enabled/disable the ctrl+alt+del/ctrl+tab/alt+tab/etc. etc.:
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
Usage
Private Sub Command1_Click()
'To disable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(True)
End Sub
Private Sub Command2_Click()
'To enable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(False)
End Sub
And in the Form_QueryUnload event, put Cancel = True.
That should get you started.