編集履歴:差分

記録開始以来のWindows Media Playerの変更箇所

+ 追加された行
- 削除された行

- Windows Media Playerの機能を呼び出してみる。
- 
- 
- [[$$toc]]
- - →[[HSP3・サンプルスクリプト]]に戻る
- 
- ----
- 
- HSP3.1β2 XPsp2 で動作確認 (3.0a以降です。)~%
- オートメーション対応。~%
- 
- 
- * スクリプト
- {{{
- ; <<<< HSP 3.1β2 サンプル >>>>
- ;
- ; Windows Media Playerの機能を呼び出してみる
- ;
- 
- onexit gosub *exit
- 
- 	screen 0,640,500
- 
- 	objsize 50,20
- 	
- 	pos 0,0: button gosub "OPEN",*go1
- 	pos 0,20:axobj pmedia, "WMPlayer.OCX",640,480 : WMP=stat 
- stop
- 
- *go1
- 	sdim path,520
- 	dialog "mpg;*.avi;*.wmv;*.ram",16,"Movie"
- 	if stat == 0 {return}
- 	path = refstr
- 
- 	pmedia("URL")=path
- 
- return
- 
- *exit
- 	pmedia=0
- end
- 
- }}}
- * memo~%
- 2006/04/08 14:02:42 JST~%
- 変更~%
- onexit *exit -> onexit gosub *exit
-