Автор Андрей Передельский задал вопрос в разделе Другие языки и технологии
Какая команда в Pascal ABC позволяет открыть CD-rom ? Срочно пипл) и получил лучший ответ
Ответ от Прапорщик Шматко[гуру]
Че над друзьями решил прикольнуться?
Открытие и закрытие привода CD-ROM
Есть ли Win32 API функция, позволяющая не только открыть НО И ЗАКРЫТЬ CD-ROM? Хотелось бы не тянуться ручками к РС, а нажать мышкой на кнопку. Компонентом TMediaPlayer пользоваться не хочу, тем более компакт он может только извлечь.. .
Для открытия CD-ROM:
mciSendString('Set cdaudio door open wait', nil, 0, handle);
Для закрытия CD-ROM:
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
Nomadic добавляет свой способ открытия CD-ROM:
mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
Не забудьте включить MMSystem в список используемых модулей (uses).