XProfan

declare a$
cls
a$=loadfile$(AVI-Film im Profan-Fenster abspielen,AVI-Filme (*.avi)|*.avi|Alle Dateien|*.*)
case %button=2:end
mcisend$(OPEN +shortname$(a$)+ TYPE AVIVIDEO ALIAS MOVIE)
mcisend$(WINDOW MOVIE HANDLE +str$(%hwnd))
mcisend$(PUT MOVIE DESTINATION AT 160 120 0 0)
mcisend$(PLAY MOVIE)
waitinput
mcisend$(CLOSE MOVIEà>

proc MCI

    parameters bef$
    declare err$
    err$ = MCISend$(bef$)

    if %MCIError

        MessageBox(err$,bef$,4144)

    endif

    return err$

endproc

declare d$ , pos$ , len$
Set(Decimals,0)
cls
d$ = ShortName$(LoadFile$(Film laden,*.avi))
MCI(open  + d$ +  type avivideo alias film)
MCI(window film handle  + str$(%hWnd))
MCI(put film destination at 0 0 0 0)
MCI(set film time format milliseconds)
len$ = str$(val(MCI(status film length))  1000)
MCI(play film)
SetTimer 1000

whilenot IsKey(27)

    pos$ = str$(val(MCI(status film position))  1000)
    SetText %hWnd , pos$ +  von  + len$ +  Sekunden
    waitinput

    if lower$(MCI(status film mode)) = stopped

        MCI(play film from 0)

    endif

wend

KillTimer
MCI(stop film)
MCI(close film)
end

Der Code hier ist für iF persönlich bestimmt!

proc MCI

    parameters bef$
    declare err$
    err$ = MCISend$(bef$)

    if %MCIError

        MessageBox(err$,bef$,4144)

    endif

    return err$

endproc

declare d$ , pos$ , len$
Set(Decimals,0)
cls
d$ = ShortName$(LoadFile$(Film laden,*.avi))
MCI(open  + d$ +  type avivideo alias film)
MCI(window film handle  + str$(%hWnd))
MCI(put film destination at 0 0 0 0)
MCI(set film time format milliseconds)
len$ = str$(val(MCI(status film length))  1000)
MCI(play film loop)
SetTimer 1000

whilenot IsKey(27)

    pos$ = str$(val(MCI(status film position))  1000)
    SetText %hWnd , pos$ +  von  + len$ +  Sekunden
    waitinput

wend

KillTimer
MCI(stop film)
MCI(close film)
end