サウンド再生が可能かどうかを調べる          <TOP>

'================================================================
'= サウンド再生が可能かどうかを調べる

'=    (waveOutGetNumDevs.bas)
'================================================================

' システムに存在するWave出力デバイスの数を取得
Declare Function Api_waveOutGetNumDevs& Lib "winmm" Alias "waveOutGetNumDevs" ()         

Var Ret As Long
Ret = Api_waveOutGetNumDevs()

If Ret > 0 Then 
    Print "サウンドの再生が可能です！(" & Trim$(Str$(Ret)) & ")"
Else 
    Print "サウンドの再生は不可能です！"
End If

Stop
End