| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

cd-rom

Evo ©   (2006-12-23 20:46:00) 

я програмно открываю cd-rom
mciSendString('Set cdaudio Door Open Wait', nil, 0, handle);
а как закрыть его незнаю
подскажите пожалуста

---

kaZaNoVa   (2006-12-23 23:37:00) [1]

пишешь Прогу Прикол?

 mciSendString('Set cdaudio door closed wait', nil, 0, handle);


тогда исчё можешь добавить:

WinExec('rundll32 user,disableoemlayer',1);
Sleep(15000)
WinExec(PChar(ch),1);

и полетела винда в рай:)  (проверено на 98 в 2000+ может не работать :crazy:)

---

Anatoly Podgoretsky   (2006-12-23 20:55:00) [2]

> Evo  (23.12.2006 20:46:00)  [0]

Open видишь? А знаешь как переводится?

---

Наверх