/*
 * [関数名] CreateQuickTimeObj
 * [機　能] QuickTime のWebページ埋め込みタグ生成
 * [説　明] JavaScriptでOBJECTタグ、EMBEDタグを生成し、生成した埋め込みタグを書き出す
 *　　　　　ムービーサイズ、、自動再生の有無、コントロール表示・非表示、背景色を指定可
 * [引　数]
 * @param fpas ムービーへのパス（相対パス可）
 * @param width ムービーの幅
 * @param height ムービーの高さ
 * @param bgcolor 背景色
 * @param f_controll コントロール表示 "true" | "false"
 * @param f_auto 自動再生 "true" | "false"
*/
function CreateQuickTimeObj(fpass,width,height,bgcolor,f_controll,f_auto){
	htm="";
	if(f_controll=="true"){ // コントロール表示の場合はコントロールの高さをプラス
		height=eval(height+16);
	}
	htm+="<center>\n";
	htm+="<object";
	htm+=" name='QT'";
	htm+=" classid='clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B'";
	htm+=" width='"+width+"' height='"+height+"'";
	htm+=" codebase='http://www.apple.com/qtactivex/qtplugin.cab'>\n";
	htm+="<param name='SRC' value='"+fpass+"'>\n";
	htm+="<param name='QTSRC' value='"+fpass+"'>\n";
	htm+="<param name='CONTROLLER' value='"+f_controll+"'>\n";
	htm+="<param name='AUTOPLAY' value='"+f_auto+"'>\n";
	htm+="<param name='BGCOLOR' value='"+bgcolor+"'>\n";
	htm+="<embed";
	htm+=" name='QT'";
	htm+=" pluginspage='http://www.apple.co.kp/quicktime/download/'";
/* htm+=" type='video/quicktime'"; Macで再生に不具合が出る為削除 2006/09/16 */
	htm+=" src='"+fpass+"'";
	htm+=" qtsrc='"+fpass+"'";
	htm+=" width='"+width+"' height='"+height+"'";
	htm+=" controller='"+f_controll+"'";
	htm+=" autoplay='"+f_auto+"'";
	htm+=" bgcolor='"+bgcolor+"'>\n";
	htm+="</embed>\n";
	htm+="</object>\n";
	htm+="</center>\n";
	document.write(htm);
}