发表评论(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