KING CD

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 Command1_Click()
Dim RetVal As Long
Dim RString As String
RString = Space$(128)

RetVal = mciSendString("set CDAudio door closed", RString, 128, 0)

End Sub

Private Sub Command2_Click()
Dim RetVal As Long
Dim RString As String
RString = Space$(128)

RetVal = mciSendString("set CDAudio door open", RString, 128, 0)

End Sub 

Télécharger le zip