声明：

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

例子：

Dim i As Integer

i = waveOutGetNumDevs()

If i > 0 Then

MsgBox "系统安装声卡"

Else

MsgBox "系统无声音卡"

End If