极简单的问题

toneok 2003-11-05 09:27:24
如何控制光驱的弹入与弹出?给个例子。谢谢!
...全文
28 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
kimurakenshin 2003-11-05
  • 打赏
  • 举报
回复
very good!^^
longyangyang 2003-11-05
  • 打赏
  • 举报
回复
调用API如上,就可以了,上面就是作好的例子
TimLee✿ 2003-11-05
  • 打赏
  • 举报
回复
Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
   ( _
   ByVal lpstrCommand As String, _       String,这是控制命令参数
   ByVal lpstrReturnString As String, _    String,这是返回值
   ByVal uReturnLength As Long, _       Long,返回值长度参数
   ByVal hwndCallback As Long _
   ) As Long

  引用的语法是:Call CDdoor("set CDAudio door closed", 0, 0, 0)  用以关闭光驱门

         Call CDdoor("set CDAudio door open", 0, 0, 0)   用以打开光驱门

toneok 2003-11-05
  • 打赏
  • 举报
回复
还是没反应。我装了虚拟光驱,可能是这个原因。
射天狼 2003-11-05
  • 打赏
  • 举报
回复
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

mciSendString "set cdaudio door open", vbNullString, 0, 0
mciSendString "set cdaudio door closed", vbNullString, 0, 0
danpianji2002 2003-11-05
  • 打赏
  • 举报
回复
不会吧?
toneok 2003-11-05
  • 打赏
  • 举报
回复
我试了,光驱没反应。请指点!谢谢!

7,768

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧