| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Открыть закрыть CD-ROM
ILYUSHKA © (2003-11-16 18:18:00)
Как сделать, чтобы если CD-ROM открыт, то программа его закрывает, а если CD-ROM закрыт, то программа его открывает. Есть пример, но исходники утеряны :(
ILYUSHKA (2003-11-17 13:59:00) [1]
Конечно, верно, но если CD-ROM открыт, то придется ДВА раза жать кнопку! А хотелось бы один раз. Есть работающий пример проги, при открытии которой (OnCreate) CD-ROM закрывается, если был открыт, и наоборот. Кому надо, могу дать. Исходники утеряны :(
zax2 (2003-11-16 23:52:00) [2]
В 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-16 19:00:00) [3]
Не, наверное я не правильно объяснил.
Я хочу с ОДНОЙкнопки либо открыть, либо закрыть CD-ROM, причем если он открыт, то закрывается, и наоборот.
DillerXX (2003-11-16 18:42:00) [4]
А в ФАК слабо глянуть? Там Игорь Шевченко приводит отличный код!! В разделе АПИ поищи...
| |
