网页功能: 加入收藏 设为首页 网站搜索  
怎样检查声卡的存在
发表日期:2005-06-08作者:[转贴] 出处:  

\'-------------------------------------------------------------------
\'Author: Gordon F. MacLeod
\'How to detect if a sound card exists on a system.
\'-------------------------------------------------------------------
\' Here\'s how to detect if a sound card exists
\' Declare this API
Declare Function auxGetNumDevs% Lib \"MMSYSTEM\" ()

\' In the appropriate routine:

Dim i As Integer
i = auxGetNumDevs()

If i > 0 Then \' There is at least one sound card on the system
MsgBox \"A Sound Card has been detected.\"

Else \' auxGetNumDevs returns a 0 if there is no sound card
MsgBox \"There is no Sound Card on this system.\"
End If

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 怎样检查声卡的存在
本类热点文章
  颜色转换函数(RGB、HSB、CMYK、Lab)
  MCI命令详解
  不装RealPlayer播放RM文件
  在VB中显示动画鼠标图标
  在VB6.0中播放GIF动画
  用VB实现队列播放MP3
  怎样检查声卡的存在
  怎样在VB中播放Flash动画
  制作自己的MP3播放器
  在我们的程序中让电脑说英语
  在VB中用API实现多媒体
  基于VB算法+Picture+Timer控件制作的39..
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00458