怎样利用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
页:
[1]