Office中国论坛/Access中国论坛

标题: 判断系统是否支持声音 [打印本页]

作者: tmtony 时间: 2007-12-25 09:52
标题: 判断系统是否支持声音

判断系统是否支持声音

Option Explicit

Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Sub ChkSndIsSupport()
Dim intRtn As Integer
intRtn= waveOutGetNumDevs()
If intRtn> 0 Then
MsgBox "支持声音"
Else
MsgBox "不支持声音"
End If
End Sub

作者: iamee 时间: 2007-12-25 11:22
顶下~~~~~~~~

作者: 5988143 时间: 2007-12-25 12:25
謝謝站長分享精美代碼!

作者: WDLRCZT 时间: 2007-12-25 13:23
支持，好东西收藏了！！

作者: liwen 时间: 2007-12-25 13:24
好象一般在我们的程序里用不着这个功能，系统没有声音一般用户是知道的，我程序中只要保证播放声音时不出错就行了（没试过系统不支持声音时是否会出错，还是先收藏了）。

作者: 李力军2 时间: 2016-8-8 16:06
收藏了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)