sample12.hsp

sample\hspdsp\sample12.hsp » Plain Format

// sample12.hsp フルスクリーン再生
#include "hspdsp.as"

	dsp_Init	; 初期化

	dialog "*",16,"メディアファイル"
	if stat=0:end

	// システム標準のレンダラーで開く
	dsp_Open refstr,OPEN_DEFAULT_RENDERER,0,0,0
	
	onexit *exit	; 終了時開放するため

	dialog "ESCキーで フルスクリーンを解除します。"

	dsp_Play hwnd,0,0,640,480		; 0,0 座標に 640x480 の大きさで表示

	//フルスクリーン化
	dsp_fullscreen 1
	
	//ESCキー入力チェック
	repeat
		stick ky,128,0
		if ky&128:break
		wait 5
	loop

	//解除
	dsp_fullscreen 0
	dialog "フルスクリーンを解除しました"
	
	stop

*exit
	
	dsp_Close	; メディアファイルを閉じる
	dsp_Exit	; 開放
	end