| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Открыть/Закрыть CD-RW из Delphi [D5, WinXP]
Ufo_Log © (2002-03-23 15:04:00)Подскажите, plz, как из Delphi открыть/закрыть CD-RW дисковод.
Ufo_Log (2002-03-24 10:39:00) [1]Я пробовал через mmsystem указывать DeviceType dtOther, а потом обращаться к дисководу по его букве (F:), но тогда выскакивает ошибка, как будто я указал неверное имя файла и пытаюсь открыть MPlayer...
VID (2002-03-23 22:16:00) [2]ну не знаю, наверное для DVD тоже особенные функции есть :)))
Ufo_Log (2002-03-23 22:10:00) [3]2 VID:
Спасибо за ответ, но эти функции открывают и закрывают CD-ROM, а мне нужны функции для открытия и закрытия CD-RW дисковода..
VID (2002-03-23 20:57:00) [4]uses mmsystem;
....
Procedure TForm1.OPENcd;
begin
mciSendString("Set cdaudio door open wait", nil, 0, handle);
end;
Procedure TForm1.Closecd;
begin
mciSendString("Set cdaudio door closed wait", nil, 0, handle);
end;
| |
