极简单的问题

Question

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

Answer 1

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)　　　用以打开光驱门

Answer 2

调用API如上，就可以了，上面就是作好的例子

Answer 3

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 LongmciSendString "set cdaudio door open", vbNullString, 0, 0
mciSendString "set cdaudio door closed", vbNullString, 0, 0