Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с двумя CDRom'ами [D6, Win2k]

Mishenka © (2005-06-30 10:02:00)
Есть комп на котором стоят два сидюка. Нужно программно открывать и закрывать лоток CDRom'а.
Для одного сидюка всё прекрасно работает с помощью

mciSendString('Set cdaudio door open wait', nil, 0, handle);
mciSendString('Set cdaudio door closed wait', nil, 0, handle);

но в случае с двумя приводами, как здесь указать конкретно с каким именно CDrom'ом надо работать?

Вася Пупкин (2005-06-30 12:36:00) [1]
MORE INFORMATION
MCI solves the problem of how to control a particular CDAudio device. All you need to do is
open the CDAudio device, specifying the drive letter of the CD-ROM drive to be used as
the element to open. The MCI string syntax to do this is as follows:
open d: type cdaudio alias cd
In this case, the CD-ROM drive is drive D:
(MSDN)

Вася Пупкин (2005-06-30 12:34:00) [2]
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('open e: type cdaudio alias cd1', nil, 0, handle);
mciSendString('open f: type cdaudio alias cd2', nil, 0, handle);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cd1 door open wait', nil, 0, handle);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
mciSendString('Set cd2 door open wait', nil, 0, handle);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
mciSendString('Set cd1 door closed wait', nil, 0, handle);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
mciSendString('Set cd2 door closed wait', nil, 0, handle);
end;

Mishenka (2005-06-30 11:36:00) [3]
Да я это причитал в Хелпе, только никак не могу понять, чтоже в этой строке писать надо :(((

Smash (2005-06-30 10:17:00) [4]
The mciSendString function sends a command string to an MCI device. THE DEVICE THAT THE COMMAND IS SENT TO IS SPECIFIED IN THE COMMAND STRING.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »