cd door open
Здравствуйте!
Существует ли API для открытия лотка CD-Rom'а?
А то не очень хочется использовать для этого mediaplayer.
Подписаться
Бесплатный дискуссионный лист
Подписчиков 308
| ← Апрель 2004 → | ||||||
|
6
|
||||||
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Модератор
Статистика
308 подписчиков
0 за неделю
0 за неделю
Ответы:
Здравствуйте Surin_bp,
Saturday, April 17, 2004, 2:07:19 PM, вы писали:
выходит
Извини, забыл%) На Дельфи. Спасибо, действительно замечательно входит
и выходит, хех.
Здравствуйте, keel.
uses MMSystem;
//procedure OpenCD;
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;
С уважением, Евгений...
mailto:recru***@p*****.ru
ICQ - 237652277
Номер выпуска : 2874
Возраст листа : 209 (дней)
Количество подписчиков : 385
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/128378
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Тема: cd door open
Пишите, на каком языке :)). Даю для Delphi: входит и выходит - замечательно выходит
...
uses MMSystem;
procedure TForm1.FormClick(Sender: TObject);
var
OpenParm: TMCI_Open_Parms;
GenParm : TMCI_Generic_Parms;
SetParm : TMCI_Set_Parms;
DI: Cardinal;
begin
OpenParm.lpstrDeviceType:='CDAudio';
mciSendCommand(0, mci_open, mci_Open_Type, Longint(@OpenParm));
DI := OpenParm.wDeviceID;
mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm));
mciSendCommand(DI, mci_Set, mci_Set_Door_Closed, Longint(@SetParm));
mciSendCommand(DI, mci_Close, mci_Notify, Longint(@GenParm));
end;