XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Video im Fenster abspielen
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)