Open / Close CD Door
Ivan F Moala
Google
Can Do
Goto Guest book sign in page [Home]
Greatest place to be
Thanks for visiting my site lucky visitor:
This page was last updated on: April 25, 2006
Copyright © 2002. XcelFiles. All Rights Reserved Ivan F Moala
Tell a friend about this page
Option Explicit



Public Declare Function SendCDcmd Lib "winmm.dll" _

    Alias "mciSendStringA" ( _

    ByVal lpstrCommand As String, _

    ByVal lpstrReturnString As String, _

    ByVal uReturnLength As Long, _

    ByVal hwndCallback As Long) As Long



Dim lRet As Long



Public Sub EjectCD()

    lRet = SendCDcmd("set CDAudio door open", vbNullString, 127, 0)

End Sub



Public Sub CloseCD()

    lRet = SendCDcmd("set CDAudio door closed", vbNullString, 127, 0)

End Sub

Open and close your CD Door with this code.

Used as a Coffee cup holder LOL, don't laugh, someone actually thought that this was

what it was used for !