MovieGetCurrentPosition

Синтаксис

Function MovieGetCurrentPosition(ByVal Movie As Integer) As LongInt

Описание

Получает текущую позицию проигрываемого видео.

Параметры

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

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer Movie=LoadMovie(0,"1.wmv",100,100,320,240)
PlayMovie(Movie)
Do
  If GetAsyncKeyState(&h1B)<0 Then Exit do
  'если клавиша ESC нажата, то конец программы
  If GetEndPosMovie(Movie)=MovieGetCurrentPosition(Movie) Then
     Exit do
  EndIf
Loop
FreeMovie(Movie)

Created with the Personal Edition of HelpNDoc: Full featured EBook editor