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

Вниз

Открыть закрыть CD-ROM   Найти похожие ветки 

 
ILYUSHKA ©   (2003-11-16 18:18) [0]

Как сделать, чтобы если CD-ROM открыт, то программа его закрывает, а если CD-ROM закрыт, то программа его открывает. Есть пример, но исходники утеряны :(


 
DillerXX ©   (2003-11-16 18:42) [1]

А в ФАК слабо глянуть? Там Игорь Шевченко приводит отличный код!! В разделе АПИ поищи...


 
ILYUSHKA ©   (2003-11-16 19:00) [2]

Не, наверное я не правильно объяснил.
Я хочу с ОДНОЙ кнопки либо открыть, либо закрыть CD-ROM, причем если он открыт, то закрывается, и наоборот.


 
zax2   (2003-11-16 23:52) [3]

В uses нужно сначала объявить модуль MMSystem:
Объявим переменную логического типа x для обозначения времени когда открыт CD-ROM:
public
{ Public declarations }
x:boolean;
Вначале запуска программы будем считать, что CD-ROM закрыт:
procedure TForm1.FormCreate(Sender: TObject);
begin
x:=false;
end;
Обработчик для кнопки Button пишем
if x=false then begin
mciSendString("Set cdaudio door open wait",nil,0,handle);
x:=true;
end
else begin
mciSendString(""Set cdaudio door closed wait"",nil,0,handle);
x:=false;
И всё!


 
ILYUSHKA ©   (2003-11-17 13:59) [4]

Конечно, верно, но если CD-ROM открыт, то придется ДВА раза жать кнопку! А хотелось бы один раз. Есть работающий пример проги, при открытии которой (OnCreate) CD-ROM закрывается, если был открыт, и наоборот. Кому надо, могу дать. Исходники утеряны :(



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

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

Наверх




Память: 0.47 MB
Время: 0.027 c
14-2368
Rauf
2004-01-13 01:59
2004.02.02
Есть ли в Дельфи оптимизация кода?


14-2328
VID
2004-01-11 17:47
2004.02.02
С помощью системы Radmin 2.1...


14-2375
Fenik
2004-01-07 11:51
2004.02.02
Вечный двигатель или самодостаточный насос.


1-2156
OlegL
2004-01-21 17:03
2004.02.02
ComboBox


7-2385
Дмитрий Дикун
2003-10-29 18:08
2004.02.02
Отключение клавиатуры в Notebook