Otvaranje i zatvaranje CD-roma

[ freespace @ 29.08.2004. 10:04 ] @

Preko Delphijeve komponente MediaPlayer napravio sam da na click dugmeta otvori CD-rom, ali problem je u tome sto mi nece ocitati sve CD-ove a ako promjenim Device type nece uopce raditi. Dali je ikako moguce napraviti da mi otvori CD-rom na neki drugi nacin i da cita sve vrste CD-a i da li postoji naredba za zatvaranje CD-roma?

[ reiser @ 29.08.2004. 14:16 ] @

Otvaranje

Code:
mciSendString('Set cdaudio door open wait', nil, 0, Handle);

Zatvaranje

Code:
mciSendString('Set cdaudio door closed wait', nil, 0, Handle);

Pre toga u uses dodaj MMSystem unit

poz