Eject CD

[TudorSmith]

Hi,

I have a VB app that runs my MP3's from a CD. When I close the application I would like the CD to eject from the drive automatically as the program ends.

I am using the MediaPlayer control.

Anyone got any code I can use that will eject the CD?

Thanks

birklea birklea ~©¿©~ <><
I know what I know...don't presume that I know what I don't! Smithism!!!

 

[alistairpaul]

Go to:

http://161.58.84.209/graphics/tip197.html

and look for the Function EjectCD()

.. should do the trick ( as well as including the API ref )

 

[dsi]

Option Explicit

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

Sub OpenCD()
  Dim Ret    As Long
  Dim RetStr As String
  Ret = MCISendString("set CDAudio door open", RetStr, 127, 0)
End Sub
Sub CloseCD()
  Dim Ret    As Long
  Dim RetStr As String
  Ret = MCISendString("set CDAudio door closed", RetStr, 127, 0)
End Sub