如何检测视音频设备是否存在
如：检测摄像头，麦克风设备是否存在 --------------------编程问答-------------------- 查询注册表。。 --------------------编程问答-------------------- 对 --------------------编程问答-------------------- 下面的程序是检查声卡是否存在的1．新建一工程并添加模块Module1.bas，在其声明部分加入如下代码：
DeclareFunctionWaveoutgetnumdevsLib"Winmm.Dll"()asLong
PublicConstMb_ok=&H40
2.在窗体上添加一个命令按钮cmdtest，设置Caption的属性为“测试声卡”
3.在窗体的通用声明部分加入一函数testcard,代码如下：
PublicFunctionTestcard()AsBoolean
DimYAslong
DimFindAsStringFind=“FiedSoundBlasterCard"
Y=Waveoutgetnumdevs()
IfY>0Then
Testcard=True
Msgbox"啥啥，我找到你了--声卡!",Mb_ok,Find
Else
Testcard=Falsc
Msgbox"未发现设备",Mb_ok,Find
End if
End Function
检查摄像头，是指外部插入式的吗？
--------------------编程问答-------------------- 用sysinfo控件
SysInfo 可以用于检测系统事件，例如桌面的大小改变、分辨率改变、时间改变，或用于提供操作系统平台和版本信息。它也可以用于管理交流电 (AC) 和电池电源之间的切换，以及硬件配置的改变。
你应该用过装机工具里的everest.exe吧，道理类似。 --------------------编程问答-------------------- 检查是否安装声卡
利用VB检查声卡,十分简单.参见下例:
>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.
>>步骤2----编写下述代码:
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Private sub Command1_Click()
Dim nReturnValue as long
nReturnValue = waveOutGetNumDevs()
if nReturnValu then
MsgBox "检测到声卡"
Else
MsgBox "没有检测到声卡"
Endif
End Sub --------------------编程问答-------------------- LS的代码,学习了!
Option Explicit--------------------编程问答-------------------- 呵呵我是从：http://download.csdn.net/source/1627065上面摘录的，上面有很多奇巧代码。
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Private Sub Command1_Click()
Dim nReturnValue As Long
nReturnValue = waveOutGetNumDevs()
If nReturnValue Then
MsgBox "检测到声卡"
Else
MsgBox "没有检测到声卡"
End If
End Sub
补充：VB , 基础类
