54(1).txt

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

如何知道计算机是否安装声卡？
 

声明：

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

程序：
    If waveOutGetNumDevs() Then
        MsgBox "系统安装了声卡。", vbInformation
    Else
        MsgBox "系统无声卡。", vbInformation
    End If