devxlogo

Opening and closing the CD door

Opening and closing the CD door

 Shared Function _    mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As _    String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As _    IntegerEnd FunctionSub OpenCDDoor()    mciSendString("Set CDAudio Door Open Wait", vbNullString, 0, 0)End SubSub CloseCDDoor()    mciSendString("Set CDAudio Door Closed Wait", vbNullString, 0, 0)End Sub

devx-admin

Share the Post: