Подобные приколы уже прошлый век, ну раз хочется, то пожалуйста.
Для открытия CD-ROM:
mciSendString('Set cdaudio door open wait', nil, 0, handle);
Для закрытия CD-ROM:
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
P.S. Не забываем про гугл.
|