极简单的问题

toneok 2003-11-05 09:27:24

如何控制光驱的弹入与弹出？给个例子。谢谢！

...全文

29 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