| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Извлечение 2-ух CD-приводов... [D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

Masta Hookah ©   (2005-05-23 21:41:00) 

Извлечь CD-привод в принципе могу... А ситуация стоит таким образом: Если стоит ДВА CD-Привода и извлекается по ходу только первый т.е. тот который стоит на раньшей шине (логично), а вот как извлеч ВТОРОЙ CD-привод или например ДЕСЯТЫЙ (+ засунуть его обратно)...???

---

alex-drob   (2005-05-23 22:01:00) [1]

Параметр Drive - буква CD-ROM

---

alex-drob   (2005-05-23 21:59:00) [2]

Из справки по WinAPI

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;



---

Наверх