borderAndreaVB free resources for Visual Basic developersborder

borderAndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2009 Andrea Tincaniborder

AndreaVB | Forum | News | Downloads | Register | Help | Member List | Statistics | Search | PM | Profile

Print This Topic
Previous Topic (disabled Ctrl+Alt+Delete)Next Topic (Ballon shaped tool tip text) New Topic New Poll Post Reply
AndreaVB Forum : API : Ejecting CD from multiple drives
Poster Message
JLS2001
Level: Guest


icon Ejecting CD from multiple drives  Archived to Disk

I have a DVD drive (E:) and a CDRW drive (F:).  The code below, like most code I've seen, only opens the DVD.  Is there some way to specify which drive I want to open?

    Dim i As Long, RS As String, cb As Long, id As Long
    RS = Space$(128)
    i = mciSendString("open cdaudio", RS, 128, cb)
    id = mciGetDeviceID("cdaudio")
    i = mciSendCommand(id, MCI_SET, MCI_SET_DOOR_OPEN, 0)

Thanks,

John


16-08-2002 at 07:07 PM
| Quote Reply
AndreaVB Forum : API : Ejecting CD from multiple drives
Previous Topic (disabled Ctrl+Alt+Delete)Next Topic (Ballon shaped tool tip text) New Topic New Poll Post Reply
Surf To:


Not Logged In? Username: Password: Lost your password?
Partners: Download Actual Software | Free Software Download
borderAndreaVB free resources for Visual Basic developersborder

borderAndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2009 Andrea Tincaniborder