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

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

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

Открыть <u> все </u> CDROM на компе [D7, Win95/98]

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

grom2 (2004-05-09 18:21:00) [1]
//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;

Тимофей (2004-05-06 11:04:00) [2]
Да были здесь примеры и исходники, один мой. Поройся хорошенько, иногда полезно пошарьть по сайту, можно на ткнуться на интересные вещи...

Тимофей (2004-05-06 11:04:00) [3]
Удалено модератором
Примечание: Дубль

Spawn (2004-05-04 21:50:00) [4]
Использовать ASPI интерфейс. Я приводил пример на Винграде - http://forum.vingrad.ru/index.php?showtopic=20598&hl=cdrom

AlexZ_CRC (2004-05-04 21:09:00) [5]
(извиняюсь, 2 раза тема отправилась. Вторую забейте, плз.
Чёрт, это как-то связано с объединением конференций)

Игорь Шевченко (2004-05-04 20:39:00) [6]
AlexZ_CRC (04.05.04 20:32)

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

Наверх

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