97.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

 怎样检查声卡的存在   
          
'-------------------------------------------------------------------
'Author: Gordon F. MacLeod
'How to detect if a sound card exists on a system.
'-------------------------------------------------------------------
' Here's how to detect if a sound card exists 
' Declare this API
    Declare Function auxGetNumDevs% Lib "MMSYSTEM" ()

' In the appropriate routine:

Dim i As Integer
    i = auxGetNumDevs()

If i > 0 Then ' There is at least one sound card on the system
    MsgBox "A Sound Card has been detected."

Else ' auxGetNumDevs returns a 0 if there is no sound card
    MsgBox "There is no Sound Card on this system."
End If