PDA

Click to See Complete Forum and Search --> : Hi i really need help !!!!!!!


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.

Dec 10th, 2000, 10:15 PM
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.