以下のサンプルで何がエラーの原因かわかるはずです。
尚、以下のスクリプトは
mciSendString
http://msdn.microsoft.com/ja-jp/library/cc410496.aspx
mciGetErrorString
http://msdn.microsoft.com/ja-jp/library/cc410489.aspx
の2つのAPI関数を呼んでいます
#include "winmm.as"
dialog "mp3",16,"MP3 Audio"
if stat{
sdim info,1024
sdim time,1024
//オープン
mciSendString "open \""+refstr+"\" type mpegvideo alias mp3a",0,0,0
mciGetErrorString stat,varptr(info),1024
print "オープン→"+info
//時間書式設定
mciSendString "set mp3a time format ms",0,0,0
mciGetErrorString stat,varptr(info),1024
print "時間書式設定をミリ秒に設定→"+info
//再生
print "[10秒間だけ再生します]"
mciSendString "play mp3a from 0",0,0,0
mciGetErrorString stat,varptr(info),1024
print "再生→"+info
//時間確認
repeat
mciSendString "status mp3a position",varptr(time),1024,0
title time+"ms"
if int(time)>=10000 : break
await 1
loop
//停止
mciSendString "stop mp3a",0,0,0
mciGetErrorString stat,varptr(info),1024
print "停止→"+info
//クローズ
mciSendString "close mp3a",0,0,0
mciGetErrorString stat,varptr(info),1024
print "クローズ→"+info
}