Opening or closing the optical disk drive(ODD) tray door in any Visual Basic and Visual Basic.NET language is easy to do thanks to the Windows API. This article will be using code based on the MCISendString Api which I made a complete tutorial for starting MCI. Click this link to check it out.
These codes are setup for VB.NET but all you have to do is change Integers to Longs which will then work pefectly fine with Visual Basic 6.0.
So the first thing you’ll want is this API call…
'Api call to send the commands to the mci device Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As _ String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As _ Integer) As Integer
'Api call to send the commands to the mci device 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
Now just need to send the commands.
The code below will open and close the default CD/DVD Door and you won’t need to set/specify the ODD drive path.
'Pop it open mciSendString("set cdaudio door open", 0, 0, 0) 'Shut it mciSendString("set cdaudio door closed", 0, 0, 0)
Use the codes below will setup and use the variables and the specified alias you want to use.
' 'This will simply get the api call return value that can be used if you use the MCIGetErrorString API. 'This example won’t be using that API though. Dim retVal As Integer 'This will contain the drive you want to open. Ex: D:\ or E:\ or whatever. Dim cdDrive As String ' 'Now setup the path to your computers cd or dvd drive you want to open or close. 'Remember to put Quotes around any path you pass to the mci device. 'Also specify the correct drive letter for the CD/DVD Drive. 'I’m using drive “D:” which is the location of the DVD/CDRom on my computer. 'You can specify the drive path like ‘D:’ or ‘D:\’ cdDrive = Chr(34) & "d:" & Chr(34) 'Now its time to setup the MCI Device using the CDAudio driver. 'First setup a new device using the CDAudio driver with alias named “cd”. retVal = mciSendString("open " & cdDrive & " type cdaudio alias cd wait shareable", 0, 0, 0) 'Now that the MCI Device is programmed and ready to go, you can start sending it commands. 'The codes below will Open the CD or DVD Tray Door and Close the CD/DVD Door… 'This will Open the door. retVal = mciSendString("set cd door open", 0, 0, 0) 'This will Close the door. retVal = mciSendString("set cd door closed", 0, 0, 0)
Thats all there is to it! If the code executed properly, your optical drive should have opened and/or closed. The code here will work with all VBs and VB.NET languages.
Just Change all Integer types to Long types if your using VB 6.0.
If your wanting to make a complete CD Player application, I have complete libraries for both VB 5/6 and Visual Basic.NET at my Visual Basic Code Source website. Anyways, have fun!