Скачать: CL | DM;

CD-ROM   Найти похожие ветки 

← →
..::KraN::..   (2007-04-05 22:30) [0]

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

---

← →
Leonid Troyanovsky ©   (2007-04-05 23:20) [1]

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

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

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

--
Regards, LVT.

---

← →
Германн ©   (2007-04-06 01:08) [2]

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

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

---

← →
SergGG ©   (2007-04-06 09:41) [3]

> 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 11:40) [4]

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


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

---

← →
Romm ©   (2007-04-06 13:57) [5]

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;

---

← →
Desdechado ©   (2007-04-06 15:31) [6]

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

---

← →
clickmaker ©   (2007-04-06 16:28) [7]

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

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

---

← →
Anatoly Podgoretsky ©   (2007-04-06 21:42) [8]

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

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

---

← →
Leonid Troyanovsky ©   (2007-04-07 00:59) [9]

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

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

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

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

--
Regards, LVT.

---

← →
Romm ©   (2007-04-07 07:13) [10]

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

тогда-

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

---

← →
Romm ©   (2007-04-07 07:13) [11]

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

тогда-

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.039 c