Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: beginner
Jul 25, 2001



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date