VAVE, MIDI ファイルの演奏(mciSendString)

対象バージョン :  97, 2000, 2002, 2003
最終更新日 : 2005/04/25 （オリジナル作成日：1998/11/03）

概　要　

Windows API　を用いて WAVE, MIDI ファイルを演奏する方法です。

解　説

宣言

Declare Function mciSendString Lib "WINMM.DLL" Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, ByVal lpstrReturnSting As String, _
    ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

プロシージャ

Dim ret As Long
Dim strFileName As String

strFileName = "c:\windows\media\canyon.mid"
ret = mciSendString("Open " & strFileName & _
    " alias chName", vbNullChar, 0&, 0&)
ret = mciSendString("play chName wait", vbNullChar, 0&, 0&)
ret = mciSendString("close chName", vbNullChar, 0&, 0&)

補　足

• Play コマンドの "wait"　を取り除くと、演奏終了前に制御が戻ります。

目次へ戻る