Attribute VB_Name = "OCDoor"
Option Explicit

Public Result As Long
Public RString As String
Public OCDoorCmd As String

'Ce module permet d'ouvrir ou de fermer le lecteur CD.
'Il suffit de lancer le sous-programme OCDoor en envoyant True pour ouvrir
'et False pour fermer.
'Exemples :
'OCDoor (True) ouvre le lecteur.
'OCDoor (False) ferme le lecteur.


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



Public Sub OCDoor(RetVal As Boolean)

RString = Space$(128)

If RetVal = False Then OCDoorCmd = "set CDAudio door closed"
If RetVal = True Then OCDoorCmd = "set CDAudio door open"

Result = mciSendString(OCDoorCmd, RString, 128, 0)

End Sub