How To Play MIDI Files Using API Functions
Code:
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
' Modify the value of the constant "Song" with your path
' to "canyon.mid".
Private Const Song As String = "C:\Windows\Media\Canyon.MID"
Private Sub Command1_Click()
Dim ret As Integer
' The following will open the sequencer with the CANYON.MID
' file. Canyon is the device_id.
ret = mciSendString( _
"open " & Song & " type sequencer alias canyon", _
0&, 0, 0)
' The wait tells the MCI command to complete before returning
' control to the application.
ret = mciSendString("play canyon wait", 0&, 0, 0)
' Close CANYON.MID file and sequencer device
ret = mciSendString("close canyon", 0&, 0, 0)
End Sub