Open and close the CD drive's door

Here's a short code snippet that lets you programmatically open and close the CD door. Note that not all the CD drives support these functions:


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 cmdOpenDoor_Click()
    mciSendString "Set CDAudio Door Open Wait", vbNullString, 0, 0
End Sub

Private Sub cmdCloseDoor_Click()
    mciSendString "Set CDAudio Door Closed Wait", vbNullString, 0, 0
End Sub

Francesco Balena

Submit a Tip

Browse "Web Development" Tips

Browse All Tips

0 Comments (click to add your comment)

Comment and Contribute