Joe Strazzere - All Things Quality - WinTask

Joe Strazzere - All Things Quality

Visit my new blog at http://strazzere.blogspot.com/

December 1, 2005 - WinTask - WaveOutGetNumDevs

'
' 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

<- Last Page :: Next Page ->

About Me

A gathering place for information and ideas about Quality Assurance, Testing, and other useful topics.

Problems cannot be solved by the same level of thinking that created them. - A. Einstein