#uselib "user32.dll"
#func msgbox "MessageBoxA" int,str,str,int
#packopt hide 1
#packopt name "hide_sound_player"
s=dir_cmdline
if strmid(s,0,1)="\"" : s=strmid(s,1,strlen(s)-2)
if strmid(s,0,1)=" ":s=strmid(s,1,strlen(s))
if s=""{
	screen 0,300,50,2
	title "Hide Sound Player"
	mes "音声ファイルを選んでください。"
	gsel 0,1
	dialog "wav|mid|mp3|asf|wmv|wma",16
	if stat=0:end
	gsel 0,-1
	s=refstr
}
exist s
if strsize!-1{
mmload s,1,2
mmplay 1
}else:msgbox 0,"音声ファイルが見つかりません!","Error",16
end