XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Video im la fenêtre abspielen
declare a$
cls
a$=loadfile$(AVI-film im Profan-la fenêtre abspielen,AVI-Filme (*.avi)|*.avi|Alle Fichiers|*.*)
cas %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)