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

Открыть <u> все </u> CDROM на компе   Найти похожие ветки 

← →
AlexZ_CRC   (2004-05-04 20:32) [0]

Здрасте!
как открыть ВСЕ имеющиеся приводы CD на тачке при помощи Делфи? (Вроде такого ещё не было)
______
PS Вся беда в том, что формулировка вопроса гибкая, поэтому на search-systems проблемно...

---

← →
Игорь Шевченко ©   (2004-05-04 20:39) [1]

AlexZ_CRC   (04.05.04 20:32)

Можно вопрос: нафига ?

---

← →
AlexZ_CRC   (2004-05-04 21:09) [2]

(извиняюсь, 2 раза тема отправилась. Вторую забейте, плз.
Чёрт, это как-то связано с объединением конференций)

---

← →
Spawn ©   (2004-05-04 21:50) [3]

Использовать ASPI интерфейс. Я приводил пример на Винграде - http://forum.vingrad.ru/index.php?showtopic=20598&hl=cdrom

---

← →
Тимофей ©   (2004-05-06 11:04) [4]

Да были здесь примеры и исходники, один мой. Поройся хорошенько, иногда полезно пошарьть по сайту, можно на ткнуться на интересные вещи...

---

← →
Тимофей ©   (2004-05-06 11:04) [5]

Удалено модератором
Примечание: Дубль

---

← →
grom2   (2004-05-09 18:21) [6]

//vvvvvvvvvvvvvvvvvvvvvvvvv/ Open CD / Close CD /vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
function OpenCD(Drive:string):Boolean;
var
Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags,DeviceID : Word;
begin
Result:=false;
Flags:=mci_Open_Type or mci_Open_Element;
with OpenParm do begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(Drive+":");
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res<>0 then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
if Res=0 then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

function CloseCD(Drive:string):Boolean;
var
Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags,DeviceID : Word;
begin
Result:=false;
Flags:=mci_Open_Type or mci_Open_Element;
with OpenParm do begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(Drive+":");
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res<>0 then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
if Res=0 then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

---

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

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



Память: 0.46 MB
Время: 0.019 c