请教,用mciExecute播放的MIDI文件,如何使其停止播放?谢谢

解决方案 »

  1.   

    Public 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 Long    Dim I As Long, RS As String, cb As Long
        RS = Space$(128)
        I = mciSendString("stop midi", RS, 128, cb)
        I = mciSendString("close midi", RS, 128, cb)
      

  2.   

    呵呵 我知道了 将 I = mciSendString("stop midi", RS, 128, cb) 中的MIDI改为播放中的MIDI的完整路径就行了。谢谢!
      

  3.   

    但不明白,后面RS和128,和CB有什么用