Breadcrumbs

[shekoasinger]

To be clear, I didnt write this code but there is not much special about it, you can find it anywhere on the internet. Althought this is the most succesful version.

Declarations:

Code: Select all

Private setTrayStatus As Long
    'API
    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

Open Tray:

Code: Select all

setTrayStatus = mciSendString("Set CDAudio Door Open", Nothing, 0, 0)

Close Tray:

Code: Select all

setTrayStatus = mciSendString("Set CDAudio Door Closed", Nothing, 0, 0)