Форум: "Система";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
ВнизОткрыть закрыть 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c