Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

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

 
Rammst   (2003-04-29 11:53) [0]

Подскажите пожалуйста, как одной кнопкой открыть и закрыть CD-ROM?


 
Слесарь Матерящийся ©   (2003-04-29 12:05) [1]

Нажать её. Кнопка расположена на корпусе драйва.


 
Snap ©   (2003-04-29 12:06) [2]

Smotri FAQ


 
Phantomouse ©   (2003-04-29 13:50) [3]

Открыть CD_ROM:
mciSendString("Set cdaudio door open wait", nil, 0, handle);
Закрыть CD_ROM:
mciSendString("Set cdaudio door closed wait", nil, 0, handle);

В Uses добавь MMSystem.

Чего получается:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Tag=0 then
begin
Button1.Tag:=1;
mciSendString("Set cdaudio door open wait", nil, 0, handle);
end
else
begin
Button1.Tag:=0;
mciSendString("Set cdaudio door closed wait", nil, 0, handle);
end;
end;


 
Yanis ©   (2003-05-03 00:02) [4]

Зачем всё усложнять:

procedure TForm1.Button1Click(Sender: TObject);
var open:boolean;
begin
If open then cd-rom:=open else cd-rom:=close;
{надеюсь понятна что надо ставить вместо cd-rom:=open
и cd-rom:=close}
end;


 
Yanis ©   (2003-05-03 00:03) [5]

Совсем забыл:
procedure TForm1.Button1Click(Sender: TObject);
var open:boolean;
begin
open:= not open;//именно это и забыл
If open then cd-rom:=open else cd-rom:=close;
{надеюсь понятна что надо ставить вместо cd-rom:=open
и cd-rom:=close}
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
14-70435
PVOzerski
2003-04-30 15:02
2003.05.22
как нормализовать ситуацию с телефоном


14-70508
Stexen
2003-05-04 21:38
2003.05.22
Почта, не в тему но надо


3-70119
Evgeny
2003-04-29 12:41
2003.05.22
addindex, детский вопрос


14-70500
Шоломицкий
2003-05-01 22:38
2003.05.22
Прикол №2. Решил повеселить вас ещё одной историей!


1-70280
bvv20
2003-05-08 11:11
2003.05.22
поис и копирование