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?
Otvaranje i zatvaranje CD-roma
Zaključano
Zakačeno
Otvaranje
Zatvaranje
Pre toga u uses dodaj MMSystem unit
poz
Code:
mciSendString('Set cdaudio door open wait', nil, 0, Handle);
mciSendString('Set cdaudio door open wait', nil, 0, Handle);
Zatvaranje
Code:
mciSendString('Set cdaudio door closed wait', nil, 0, Handle);
mciSendString('Set cdaudio door closed wait', nil, 0, Handle);
Pre toga u uses dodaj MMSystem unit
poz