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

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: