PRB: MCI Eject Button Fails to Close Caddyless CD-ROM Drive (116451)

WORKAROUND

1. Start a new project in Visual Basic. Form1 is created by default.
2. From the File menu, choose Add File. In the Add File dialog box, select the MCI.VBX custom control file, which is usually located in the \WINDOWS\SYSTEM directory.
3. Add the MultiMedia MCI control (MMControl1) and two Command Button controls (Command1 and Command2) to Form1.
4. Set the following properties for the three controls at design time:

      Control     Property      Setting
      ---------------------------------
      Command1    Caption       Init CD
      Command2    Caption       Eject
      MMControl1  EjectVisible  False
   						

5. Place the following code in the (general) (declarations) section of Form1:

      ' Place the following Declare statement on one, single line:
      Declare Function mciSendString Lib "MMSystem.DLL"
         (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any,
         ByVal wReturnLength As Integer, ByVal hCallback As Integer) As Long
   
      Dim Ejected As Integer
   						

6. Add the following code to the Command1_Click event:

      Sub Command1_Click ()
         MMControl1.UpdateInterval = 0
         MMControl1.DeviceType = "CDAudio"
         MMControl1.Command = "Open"
         Ejected = False
         Command1.Enabled = False
         Command2.Enabled = True
      End Sub
   						

7. Add the following code to the Command2_Click event:

      Sub Command2_Click ()
         Dim Status As Integer
         If Ejected Then
            Status = mciSendString("Set CDAudio Door Closed Wait", 0&, 0, 0)
            Ejected = False
            Command2.Caption = "Eject CD"
         Else
            Status = mciSendString("Set CDAudio Door Open Wait", 0&, 0, 0)
            If (Status <> 0) Then
               Command1.Enabled = True
               Command2.Enabled = False
               MMControl1.Command = "Close"
            End If
            Ejected = True
            Command2.Caption = "Load CD"
         End If
      End Sub
   						

8. Open the caddyless CD-ROM drive manually, insert a CD-ROM disk and close the drive. Run the application. Click the Init CD button to enable the controls. Click the Eject button to eject the CD-ROM, and click the Load CD button to load the CD-ROM. Click the buttons on the MultiMedia MCI custom control itself to play the CD-ROM.