'
' WaveOutGetNumDevs
'
'
' Author: Joe Strazzere
'
' waveOutGetNumDevs Lib "winmm" () As Long
a=External("winmm","waveOutGetNumDevs")
If a > 0 then
msgbox("This system has "+str$(a)+" device(s) which can play .WAV files",,"WaveOutGetNumDevs")
else
msgbox("This system cannot play .WAV files",,"WaveOutGetNumDevs")
endif
