eject the cd player

[denniske]

Wich API should I use to eject(and close) a cd-rom device?

[oetje]

http://forums.vb-world.net/showthread.php?threadid=21392

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 cmdOpen_Click()
'Open the CD Drive
mciSendString "set CDAudio door open", 0, 127, 0
End Sub

Private Sub cmdClose_Click()
'Close the CD Drive
mciSendString "set CDAudio door closed", 0, 127, 0
End Sub