如何用最简单的方法得知系统中是否有声卡?

Question

Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As LongPrivate Sub Form_Load()
    Dim i As Integer
     i = waveOutGetNumDevs()
    If i > 0 Then
        MsgBox "你的系统有声卡。", vbInformation, "声卡检测"
    Else
        MsgBox "你的系统没有声卡。", vbInformation, "声卡检测"
        End
    End If
End Sub

Answer 1

http://www.applevb.com/vbtips/gramedia/tips_mm_000.htm#怎样检查声卡的存在

Answer 2

我不能照抄qyh的阿，以后记住用waveoutgetnumdevs这个api就行了，多多看看api的资料，为什么我总是来迟一步阿，呜呼，我将悲哀去也

Answer 3

我不能照抄qyh的阿，以后记住用waveoutgetnumdevs这个api就行了，多多看看api的资料，为什么我总是来迟一步阿，呜呼，我将悲哀去也