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

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

CD-ROM [D7, WinXP]

..::KraN::.. ©   (2007-04-05 22:30:00) 

Подскажите, как программно открыть\закрыть дверцу CD-ROM'a?

---

Romm   (2007-04-07 07:13:00) [1]

> нейропрограммированием швейцара

тогда-

> А если вертикальная крышка или скажем ноутбук с ручным приводом.

---

Romm   (2007-04-07 07:13:00) [2]

> нейропрограммированием швейцара

тогда-

> А если вертикальная крышка или скажем ноутбук с ручным приводом.

---

Leonid Troyanovsky   (2007-04-07 00:59:00) [3]

> SergGG ©   (06.04.07 09:41) [3]

> Я не понял, здесь находятся МАСТЕРА или ТРЕПАЧИ!!!!

А как ты их пытался различать? В смысле, что за критерии.

Во-ще-то, мастера по открыванию различных дверцев
у нас были, но сейчас они вынуждены скрываться.

--
Regards, LVT.

---

Anatoly Podgoretsky   (2007-04-06 21:42:00) [4]

> clickmaker  (06.04.2007 16:28:07)  [7]

А если вертикальная крышка или скажем ноутбук с ручным приводом.

---

clickmaker   (2007-04-06 16:28:00) [5]

> [6] Desdechado ©   (06.04.07 15:31)

тогда наверно вопрос будет таким: "как расширить или сузить щель?" )

---

Desdechado   (2007-04-06 15:31:00) [6]

А если у меня стоит привод с щелевой загрузкой?
Нем нет лотков и дверей.

---

Romm   (2007-04-06 13:57:00) [7]

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_Close,mci_Notify,LongInt(@GenParm));
end;

//закрытие
begin
  OpenParm.lpstrDeviceType:='CDAudio';
  mciSendCommand(0,mci_Open,mci_Open_Type,Longint(@OpenParm));
  DI:=OpenParm.wDeviceID;
  mciSendCommand(DI,mci_Set,mci_Set_Door_Closed,LongInt(@SetParm));
  mciSendCommand(DI,mci_Close,mci_Notify,LongInt(@GenParm));
end;

---

_Аноним   (2007-04-06 11:40:00) [8]

> МАСТЕРА или ТРЕПАЧИ


Мастера трепа

---

SergGG   (2007-04-06 09:41:00) [9]

> Leonid Troyanovsky ©   (05.04.07 23:20) [1]
> Германн ©   (06.04.07 01:08) [2]
Я не понял, здесь находятся МАСТЕРА или ТРЕПАЧИ!!!!


implementation
uses MMSystem;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;


---

Германн   (2007-04-06 01:08:00) [10]

> ..::KraN::..   (05.04.07 22:30)
>
> Подскажите, как программно открыть\закрыть дверцу CD-ROM'a?
>  

Когда-то у АП был "любимый ответ" на вопрос "Как выдвинуть/задвинуть лоток CD-ROM'a". :)
А у меня на компах ни на работе, ни дома у CD-ROM'ов нет "дверцев"! :(
И что тогда делать? :)

---

Leonid Troyanovsky   (2007-04-05 23:20:00) [11]

> ..::KraN::..   (05.04.07 22:30)  

> Подскажите, как программно открыть\закрыть дверцу CD-ROM'a?

Например, нейропрограммированием швейцара.

--
Regards, LVT.

---

Наверх