MCIを使って再生
dialog "mpg;*.avi;*.wmv;*.asf;*.3gp;*.mp4;*.flv",16,"動画ファイル"
if stat = 0 : end // 未選択時に終了
fname = refstr
mci "open \""+fname+"\" alias f" // オープン
if stat = -1 : dialog "Open Error" : end // エラー
mci "where f source" : size = refstr // 動画サイズ取得
split size," ",s
x = int(s(0)) : y = int(s(1)) : w = int(s(2)) : h = int(s(3))
// 動画のサイズチェック
if w>0 & h>0 {
screen 1,w,h
mci "window f handle "+hwnd // ウィンドウハンドルをMCIに送信
// ウィンドウに貼り付け
mci "put f destination at "+x+" "+y+" "+w+" "+h
title ""+w+"x"+h+" の大きさで再生中"
}else{
// 動画ではないのでなにもしない
}
mci "play f" // 再生
onexit gosub *e // 終了時に開放
stop
*e
mci "stop f" // 停止
mci "close f" // 開放
end