Форум: "Потрепаться";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c