怎样利用API函数确定系统是否安装了声卡？

*API函数声明：Declare Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Long 代码如下：Dim I As Integer I = waveOutGetNumDevs() If I > 0 Then MsgBox "你的系统可以播放声音。", vbInformation, "声卡检测" Else MsgBox "你的系统不能播放声音。", vbInformation, "声卡检测" End If