The code below shows you how to play a MIDI sound file (with the extension mdi)
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 Long
Public Function PlayMidiFile(MidiFile As String) As Boolean
Dim lRet As Long
On Error Resume Next
If Dir(MidiFile) = "" Then Exit Function
lRet = mciSendString("stop midi", "",
0, 0)
lRet = mciSendString("close midi", "",
0, 0)
lRet = mciSendString("open sequencer!" & MidiFile
& " alias midi", "", 0, 0)
lRet = mciSendString("play midi", "",
0, 0)
PlayMidiFile = (lRet = 0)
End Function
Comments