Главная страница
    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.47 MB
Время: 0.114 c
2-1176440360
allucard
2007-04-13 08:59
2007.04.29
Как создать папку?


8-1155490917
h8394E
2006-08-13 21:41
2007.04.29
меню в игре (чужой)


15-1175169498
Kolan
2007-03-29 15:58
2007.04.29
Опрос для пользователей DMClient.


2-1176225192
ppcumax
2007-04-10 21:13
2007.04.29
Как завершить процесс


2-1175960490
Stratocaster
2007-04-07 19:41
2007.04.29
Delphi самопроизвольно убивает мои переменные.(





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский