P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
 Posted: Oct 10th, 2003 08:44 AM Post subject: Is Sound Card Present |
 |
|
Determine if sound card present before playing sounds :
| Code: | Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long
Private Function CanPlaySounds() As Boolean
Dim CountDevices As Long
CountDevices = waveOutGetNumDevs()
If CountDevices > 0 Then
'at least one device that can play sounds exists
CanPlaySounds = True
End If
End Function |
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
