Открыть закрыть 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;
И всё!

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

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