如何实现关闭光驱

Question

如何实现关闭光驱？

Answer 1

参见：使用API函数弹出和关闭光驱
http://cache.baidu.com/c?word=vb%2C%B9%D8%B1%D5%3B%B9%E2%C7%FD&url=http%3A//www%2Evbgood%2Ecom/text/vb%2Egood/t538%2Ehtml&b=18&a=0&user=baidu'代码如下：
Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongCall CDdoor("set CDAudio door closed", 0, 0, 0) '关闭CD-ROM Call CDdoor("set CDAudio door open", 0, 0, 0)'弹出CD-ROM 

Answer 2

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 Command1_Click()
    If Command1.Caption = "打开" Then
        Command1.Caption = "关闭"
        retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
    Else
        retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
        Command1.Caption = "打开"
    End If
End Sub