Работа с двумя CDRom ами

← →
Mishenka (2005-06-30 10:02) [0]

Есть комп на котором стоят два сидюка. Нужно программно открывать и закрывать лоток CDRom"а.
Для одного сидюка всё прекрасно работает с помощью

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

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

← →
Smash (2005-06-30 10:17) [1]

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.

← →
Mishenka (2005-06-30 11:36) [2]

Да я это причитал в Хелпе, только никак не могу понять, чтоже в этой строке писать надо :(((

← →
Вася Пупкин © (2005-06-30 12:34) [3]

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;

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)

Работа с двумя CDRom ами Найти похожие ветки