PauseMovie

PauseMovie

PauseMovie(Movie)

Устанавливает проигрываемый видеофайл на паузу. Чтобы снова начать воспроизведение, нужно вызвать функцию PlayMovie 

 Movie - Хендл видео, загруженный с помощью LoadMovie

Пример:

#Include "window9.bi"
Dim As Integer Movie=LoadMovie(0,"1.avi",100,100,320,240)
PlayMovie(Movie)
Do
 If GetAsyncKeyState(&h1B)<0 Then Exit do
  'если клавиша ESC нажата, то конец программы
 If GetAsyncKeyState(&h20)<0 Then 'если  клавиша ПРОБЕЛ нажата
  If MovieGetState(Movie)=2 Then
   PauseMovie(Movie): Sleep(500)  'Пауза
  ElseIf MovieGetState(Movie)=1 Then PlayMovie(Movie): Sleep(500)  'Играть
  EndIf
 EndIf
Loop
FreeMovie(Movie)

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator