标题: 怎样利用API函数确定系统是否安装了声卡？ [打印本页] 作者: 孙宏雷 时间: 2013-7-2 13:51 标题: 怎样利用API函数确定系统是否安装了声卡？ 作者: 淡写轻描 时间: 2013-7-2 13:54
*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