| #Include Once "window9.bi"
Dim As Integer full, movie
Dim As HWND hwnd = OpenWindow("MoviePlayer",0,0,400,300, _
WS_VISIBLE Or WS_SYSMENU)
CenterWindow(hwnd) 'Mitte Desktop
Dim As RECT rect
GetClientRect(hwnd,@rect) 'Fenstergrößen ohne Rahmen
ImageGadget(1,0,0,rect.right,rect.bottom)
movie = LoadMovie(GadgetID(1),"join.avi",0,0,rect.right,rect.bottom)
Do
If WindowEvent() = EventClose Then Exit Do
If GetAsyncKeyState(VK_ESCAPE) Then Exit Do
If GetAsyncKeyState(VK_F) Then
full = Not full
MovieFullScreen(movie, full)
Sleep(500)
ElseIf GetAsyncKeyState(VK_SPACE) Then
PlayMovie(movie)
Sleep(500)
ElseIf GetAsyncKeyState(VK_P) Then
PauseMovie(movie)
Sleep(500)
EndIf
Loop
FreeMovie(movie)
|  |