Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.29;
Скачать: 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 вся ветка

Текущий архив: 2007.04.29;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.047 c
1-1172899120
VitAngel
2007-03-03 08:18
2007.04.29
Вопрос по COM-объектам


2-1176368485
-=MaxDelphi=-
2007-04-12 13:01
2007.04.29
Вопрос по TSynEdit


2-1176374578
Vlad Oshin
2007-04-12 14:42
2007.04.29
MSSQL2000. Возврат значения поля даты - мм.дд.гггг


2-1176187913
=Teddy=
2007-04-10 10:51
2007.04.29
Как в TreeView узнать индекс выбранного узла ?


6-1162409754
Amt2001
2006-11-01 22:35
2007.04.29
Типы Indy 10