Текущий архив: 2003.07.31;
Скачать: CL | DM;

Вниз

CD-ROM   Найти похожие ветки 

← →
Zew   (2003-05-19 21:06) [0]

Подскажите пожалуйста как выдвинуть именно тот CD-ROM который мне надо, а то у меня их 2 да ещё Nero с виртуальным и получается что выдвигается виртуальный. Если можно пример.

---

← →
Song ©   (2003-05-19 21:11) [1]

mciSendCommand+mci_Open
mciSendCommand+MCI_SET_DOOR_OPEN

---

← →
Zew   (2003-05-19 21:13) [2]

Это я знаю а как чтобы открывался Например "E" а не "F"

---

← →
Song ©   (2003-05-19 21:15) [3]

В команду mci_Open передаётся структура, где описывается буква диска. Да ты не стесняйся, хэлп почитай!

---

← →
Zew   (2003-05-19 21:18) [4]

Напиши пожалуйста!

---

← →
Song ©   (2003-05-19 21:20) [5]

.....
uses
... MMSystem;

function OpenCD(Drive : Char) : Boolean;
Var
Err : MciError;
OpenParm: TMCI_Open_Parms;

Flags : DWord;
S : String;
DeviceID : Word;
begin
Result:=false;
S:=Drive+":";
Flags:=mci_Open_Type or mci_Open_Element; // См. mci_Open
With OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(S);
end;
Err := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
IF Err<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Err:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
IF Err=0 Then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

function CloseCD(Drive : Char) : Boolean;
Var
Err : MciError;
OpenParm: TMCI_Open_Parms;
Flags : DWord;
S : String;
DeviceID : Word;
begin
Result:=false;
S:=Drive+":";
Flags:=mci_Open_Type or mci_Open_Element;
With OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(S);
end;
Err := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
IF Err<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Err:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
IF Err=0 Then exit;
Result:=True;
finally
mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm));
end;
end;

Здесь Drive - буква диска.

---

← →
Zew   (2003-05-19 21:23) [6]

Спасибо сейчас попробую!

---

← →
Zew   (2003-05-19 21:35) [7]

А подскажи пожалуйста как сделать чтобы это происходило при нажатии на кнопку а то я воопще туплю

---

← →
Song ©   (2003-05-19 21:38) [8]

:))

Procedure TForm1.Button1Click(Sender: TObject);
Begin
OpenCD("d"); // Открыть
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
CloseCD("d"); // Закрыть
End;

---

← →
Zew   (2003-05-19 21:42) [9]

Не открывает

---

← →
Song ©   (2003-05-19 21:44) [10]

Ну тогда брось это дело, в ДНК у тебя проблема :))

---

← →
Zew   (2003-05-19 21:46) [11]

У меня маленький вопросик Drive+ зачем +

---

← →
Song ©   (2003-05-19 21:46) [12]

Это буква диска.

---

← →
Zew   (2003-05-19 21:50) [13]

А плюс та зачем ( Наверное я тебя достал)

---

← →
Song ©   (2003-05-19 21:51) [14]

К букве диска прибавляется символ двоеточия.

---

← →
Zew   (2003-05-19 21:52) [15]

Я сделал Это Большое спасибо

---

← →
Song ©   (2003-05-19 21:53) [16]

Wow!!!
Пожалуйста.

---

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

Текущий архив: 2003.07.31;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.013 c