Declare Function waveOutGetNumDevs Lib "winmm.dll" _
Alias "waveOutGetNumDevs" () As Long 'Code Dim i As Integer i = waveOutGetNumDevs() If i > 0 Then MsgBox "Your system can play sound files.", vbInformation, "Sound Card Test" Else MsgBox "Your system can not play sound Files.", vbInformation, "Sound Card Test" End If A lot of programs are now playing sounds for certain events. However, there is no point in wasting time by playing a sound if the system does not support it. This tip demonstrates how to detect if a sound card exists. Add the following code to the declarations section of the project. |