Скачать: CL | DM;

Работа с двумя 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;

---

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

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)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c