关于播放声音文件的问题,请帮忙!,先谢了!!!!!

Question

我用API函数播放声音文件,代码如下:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 mciExecute "open G:\music\ax.mp3 alias sound"
 mciExecute "play sound"
 mciExecute "set sound audio all on"
可是怎么才能判断播放设备已经打开了??????,请各位高手帮忙!!!!

Answer 1

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongPrivate Sub Command1_Click()    mciSendString "open G:\music\ax.mp3 alias sound", 0, 0, 0
    mciSendString "play sound", 0, 0, 0
    mciSendString "set sound audio all on", 0, 0, 0
    
    Dim sOnOff As String
    sOnOff = String(5, Chr(0))
    mciSendString "status sound audio", ByVal sOnOff, 5, 0
    MsgBox sOnOff
    
    mciSendString "close sound", 0, 0, 0End Sub