VistaにてMCIを実行しようとするとフリーズする

タイトルの通りなのですが、VistaにてMCIを実行しようとするとフリーズします。
フリーズしてしまっている個所は、MCIのOpenコマンドを送っている時のようです。
もしかしたら、環境依存かもしれませんので、もしVistaをお持ちの方は実験してくださるとありがたいです。

ちなみに、HSP2.61では以下のスクリプトは正常に処理されました。
HSP3.1だけフリーズしてしまいます。



	onexit *e			//終了時に移動
	mref mr,67			//ウィンドウハンドル取得
	dialog "mpg;*.avi;*.wmv;*.asf;*.3gp;*.mp4;*.flv",16,"動画など"
	if stat=0:end			//未選択時に終了
	x=0:y=0:ax=640:ay=480	//動画の左上座標、動画サイズ
	fname=refstr			//ファイル名を代入


	mci "open \""+fname+"\" alias f"
	
	if stat=-1 : dialog "Open err":end		//オープンエラー
	mci "window f handle "+mr.13			//ウィンドウハンドルをMCIに送信
	mci "put f destination at "+x+" "+y+" "+ax+" "+ay	//ウィンドウに貼り付け
	mci "play f"
	stop
*e				//コレを呼ばないと大変なことに・・・
	mci "stop all"		//MCIはALLで全部クリアできます。
	mci "close all"
	end

HSPTV!掲示板