我想,检测光驱打开与关闭可以用一个笨办法,就是检查光盘是否存在。呵呵。
下面是打开与关闭光驱的代码,不知道对你有没有帮助。
打开/关闭光驱门声明
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
代码
Sub OpenCDDoor()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End SubSub CloseCDDoor()
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub