Board index » delphi » Closing a open cd-rom tray in Delphi3

Closing a open cd-rom tray in Delphi3

hi

Ive search every API, all the Vcl, cant find a single hint on how to
(un)Eject an Ejected Cd-Rom device...

Can anyone help?

 

Re:Closing a open cd-rom tray in Delphi3


Gabrio,
  I'm not sure about D3 but in D1 and D2 you could use something like:

To open the CD-ROM:

        mciSendString('Set cdaudio door open wait', nil, 0, handle);

To close the CD-ROM:

        mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Remember to include the MMSystem unit in your uses clause.

Hope this helps!
--

Rodney E Geraghty
GERA-Tech
Ottawa, Canada
gera...@ibm.net

Gabrio Frantzen <gab...@icenet.no> wrote in article
<33F9629C.A3E89...@icenet.no>...

Quote
> hi

> Ive search every API, all the Vcl, cant find a single hint on how to
> (un)Eject an Ejected Cd-Rom device...

> Can anyone help?

Other Threads