HSPTV!掲示板

メインのウィンドウの、決まった位置で決まったサイズで再生できないのでしょうか？
MCIを使うとことまではわかったのですが…
再生位置 :x=450 y=140
再生サイズ :x=500 y=400
ウィンドウサイズ :x=960 y=546
です

onexit *ends

pos  50,50
axobj mp, "{22D6F312-B0F6-11D0-94AB-0080C74C7E95}",320,240 //動画のサイズはMCI使えばいいんじゃね？
mp("autostart")=1
mp("ShowAudioControls")=0
mp("ShowCaptioning")=1
mp("ShowControls")=0
mp("ClickToPlay")= 1
mp("ShowTracker")=1
mp("FileName")= "フルパスで動画いれればいいんじゃね？"

stop
*ends

delcom mp
end

参考にどうぞ。

	x=200:y=200//動画の左上の座標サイズ
	ax=320:ay=180//動画を表示するサイズ
	title "5秒だけ再生し、5秒だけ情報表示するスクリ"
	
	dialog "mpg;*.avi;*.gif;*.wmv;*.asf;*.3gp;*.mp4;*.mp3;*.wma;*.wav;*.flv",16,"動画など"
	if stat=0 :end		//ファイル選択なし
	fname=refstr
	mci "open \""+fname+"\" alias f"
	if stat=-1 : end	//読み込みエラー
	mci "where f source" : rec=refstr	//動画サイズ取得
	if stat=-1 : end	//動画サイズ取得失敗

	//dim as,4,8   : dim ai,4	//HSP2用
	repeat 4			//分離する(0 0 320 180)風に取得されてしまう為。asに配列変数代入
		getstr ap1,rec,ai,$20
		ai+=strsize  : as.cnt=0+ap1
	loop
	
	mref mr,67
	mci "window f handle "+mr.13	//MCIを貼り付けるウィンドウハンドルを指定

	mci "put f destination at "+x+" "+y+" "+ax+" "+ay
	if stat=-1 : end				//配置失敗

	mci "play f repeat"
	if stat=-1 : end				//再生失敗


	wait 500
	mci "stop f"
	mci "close f"
	
	mes "ファイル名"+fname
	mes "動画Xサイズ（実サイズ）"+as.2
	mes "動画Yサイズ（実サイズ）"+as.3
	mes "再生位置座標 x="+x+" y="+y
	mes "再生動画サイズ x="+ax+" y="+ay
	
	wait 500
	
	end