Windows API Guide: SoundSentryProc Callback Function

---

Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

Platforms: Win 95/98, Win NT

waveGetNumDevs find the number of waveform output devices installed on the computer. This function can be used to determine the valid range in device identifiers for waveform output devices. The function returns the number of installed waveform output devices.

Example:

' List the names and number of channels of every installed waveform output ' device.  Note how we only check the valid device identifiers. Dim outinfo As WAVEOUTCAPS ' receives info about each device Dim numdevs As Long  ' number of installed devices Dim thisdev As Long  ' counter for which device we're checking Dim outname As String  ' buffer for device's name Dim retval As Long  ' return value ' First, determine the number of waveform output devices. numdevs = waveOutGetNumDevs() ' Loop through each device and display the desired information.  Keep in mind that the first ' device has an identifier of 0, etc. For thisdev = 0 To numdevs - 1   ' Get the capabilities of the device   retval = waveOutGetDevCaps(thisdev, outinfo, Len(outinfo))   If retval = 0 Then  ' only continue if the above function succeeded     Debug.Print "Device #"; thisdev     ' Extract device name from fixed-length string     outname = Left(outinfo.szPname, InStr(outinfo.szPname, vbNullChar) - 1)     Debug.Print "  "; outname;     ' Display number of channels -- i.e., is it mono or stereo?     If outinfo.nChannels = 1 Then       Debug.Print " (mono)"     Else       Debug.Print " (stereo)"     End If   End If Next thisdev

Category: Audio

Go back to the alphabetical Function listing.
Go back to the Reference section index.

---

This page is copyright © 2000 Paul Kuliniewicz. Copyright Information.
Go back to the Windows API Guide home page.
E-mail: [e-mail] Send Encrypted E-Mail
This page is at http://www.vbapi.com/ref/w/waveoutgetnumdevs.html