API mciSendString 问题，为什么不能播放音乐啊,有个更让人恼火的问题，就是打包成EXE后播放没声音，可用源代码运行时就有声音

Question

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 Form_Load()            Call Mp3(App.Path & "\sound\stake.wav", "Mp3_Baoyi_kaishi")
End SubPublic Sub Mp3(ByVal Mp3_Url As String, ByVal Mp3_Name As String)
   mciSendString "close " & Mp3_Name, 0&, 0, 0
   mciSendString "open  " & Mp3_Url & " alias " & Mp3_Name & " type MPEGVideo", 0&, 0, 0
   mciSendString "play  " & Mp3_Name, 0&, 0, 0
End Sub
有个更让人恼火的问题，就是打包成EXE后播放没声音，可用源代码运行时就有声音谢谢各位高手帮帮我！！

Answer 1

参数错误，将所有的 0& 换成 vbNullString 
参考：http://blog.csdn.net/chenjl1031/archive/2007/12/24/1964909.aspx

Answer 2

传入参数错误！！ 
1、mciSendString 中的第二个参数用来返回播放信息的（字符串），你看看它的格式：ByVal lpstrReturnString As String
2、它是指针变量，带lp的，所以在定义的时候要这样定义：dim lpstrReturnString as string*256 
3、不需要返回信息时，必须将其设置为:vbNullString