关于光驱的问题

[wenwenwen]

我想监控到光驱状态和操作，比如弹出，放入，请问都有哪些消息和命令呀？

[hyyhvb]

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

Private Sub Command3_Click()
Dim a As Long
a = mciSendString("set CDAudio door open", returnstring, 127, 0) /打开光驱
End Sub

Private Sub Command4_Click()
Dim a As Long
a = mciSendString("set CDAudio door closed", returnstring, 127, 0) /关闭光驱
End Sub

[夜鹰]

试试光驱守护者

http://www.tingyue.com/DirE/Page_65A8.htm

[dragonatneight]

如楼上所讲,用MciSendString函数.另外,
用FILEMON,REGMON软件试试,它们可以监测系统变化,你可以通过它们了解到相关的API.

[wenwenwen]

我是想问通过Windows的哪个API 来操控光驱。