＜ 使用用途 ＞
MIDIデバイスがパソコンで使用可能かチェック出来る
＜ 説明 ＞
ＡＰＩ関数のmidiOutGetNumDevsを使用します。
midiOutGetNumDevs ＝＞ＭＩＤＩデバイスを確認する
＠戻り値＠
０が戻り値の場合、ＭＩＤＩデバイスがそのパソコンでは使用出来ません
＜ ＳＡＭＰＬＥ ＞
’標準モジュールに宣言して下さい
Declare Function midiOutGetNumDevs Lib "winmm"
() As Integer
’ここから下はフォーム内の処理です
MODORITI = midiOutGetNumDevs()
If MODORITI = 0 Then
Beep
MsgBox ("残念ながらご使用の環境では、MIDI音源を使用できません。")
'プログラム終了
Exit Sub
End If