利用MCI的方法可以方便的实现光驱门的开关

时间：2014-04-04 06:18:30 收藏：0 阅读：487

请看下例：
>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.设置其Caption = "打开"
>>步骤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()
    Static bOpen As Boolean
    Dim strStr As String

    If Not bOpen Then
        Screen.MousePointer = vbHourglass
        strStr = "set CDAudio door open"
    Command1.Caption = "关闭"
    Else
        Screen.MousePointer = vbHourglass
        strStr = "set CDAudio door closed"
     Command1.Caption = "打开"
    End If

    Call mciSendString(strStr, vbNull, 127, 0)
    Screen.MousePointer = vbDefault
    DoEvents
    bOpen = Not bOpen
End Sub

>>步骤3----编译运行,点击"打开",光驱弹出;点击"关闭",光驱关上.

利用MCI的方法可以方便的实现光驱门的开关,布布扣,bubuko.com

原文：http://www.cnblogs.com/Spacecup/p/3642873.html