VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 非常VB测声卡
发表评论(0)作者:, 平台:, 阅读:10911, 日期:2000-03-17


系统是否支持声音



声明:

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

例子:

Dim i As Integer

i = waveOutGetNumDevs()

If i > 0 Then

MsgBox "系统安装声卡"

Else

MsgBox "系统无声音卡"

End If