#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