我想,检测光驱打开与关闭可以用一个笨办法,就是检查光盘是否存在。呵呵。
下面是打开与关闭光驱的代码,不知道对你有没有帮助。
打开/关闭光驱门声明
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
下面是打开与关闭光驱的代码,不知道对你有没有帮助。
打开/关闭光驱门声明
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
你是想做状态条与进度条吧?添加控件:Microsoft Windows Common Control
应该是可以的。
我自己写了个很好的进度条控件。你要吗/
要的话给我发email吧。
我的是[email protected]
光驱问题搞定了谢谢大家。