Hi,
I've used the ActiveMovie control in my VB application to run a .avi file. I've set the AutoStart property of the Activemovie control to True, and the fullScreen property to True. When the .avi file is running the user should not be able to stop it by pressing a key or clicking the mouse. For this:
I've used the systemParametersInfo API to prevent the user from using Ctrl+Alt+Del.
'To disable Ctrl+Alt+Del
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
'To enable Ctrl+Alt+Del
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
I've also used the APIs sethook and removehook to prevent the user from using Alt+F4.
To block the other keys I've used the keydown and keypress events as follows - kbdisable is a boolean variable(true to disable the keyboard) :
Private Sub ActiveMovie1_KeyDown(KeyCode As Integer, Shift As Integer)
If kbdisable = True Then
KeyCode = 0
End If
End Sub
Private Sub ActiveMovie1_KeyPress(KeyAscii As Integer)
If kbdisable = True Then
KeyAscii = 0
End If
End Sub
To block the mouse input I've used the clipCursor and showCursor APIs as follows:
'Declaration
Private Type RECT
Left As Long
Right As Long
Top As Long
Bottom As Long
End Type
dim TRect as RECT
'To disable the mouse
With TRect
.Left = 0
.Top = 0
.Right = 1
.Bottom = 1
End With
ClipCursor TRect1
ShowCursor False
'To enable the mouse
ClipCursor ByVal 0&
ShowCursor True
The declarations of all the APIs are in the module.
I've written the code to disable input in the load event of the form which has the ActiveMovie control.
I've written the code to enable input in the StateChange event of the ActiveMovie control.
-----------------------------------------
But when I click the mouse when the .avi file is running the mouse click is detected. Also when I press Ctrl+Alt+Del the system hangs. What am I doing wrong?? Can anyone help me out here???
Thanks a lot in advance for the time taken to read this and then to reply. :o)
