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

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

Как сделать программу, которая будет закрывать/открывать дисковод [D7, WinXP]

nikitos ©   (2004-03-13 19:55:00) 

Очень хочется программно открыть лоток дисковода. Пожалуйста, помогите.

---

Mim1   (2004-04-15 21:21:00) [1]

http://my.samara.ru/~Delphi  (15.04.04 18:09) [6]

Када будет готова " CD Close NEW "? :)

---

http://my.samara.ru/~Delphi   (2004-04-15 18:14:00) [2]

будут вопросы по коду пиши по адресу: grom@bee-s.com

---

http://my.samara.ru/~Delphi   (2004-04-15 18:09:00) [3]

скачай с сайта http://my.samara.ru/~Delphiпрогу   " CD Open NEW "       Ver.28.03.04

---

DDA   (2004-03-14 16:54:00) [4]

DelphiWorks

function OpenCD(Drive: Char): Boolean;
var
 Res: 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;
 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: Char): Boolean;
var
 Res: 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;
 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;



---

ssk   (2004-03-14 15:37:00) [5]

>Zeqfreed

а если у меня два сидирома? ;-)

---

HepB   (2004-03-13 20:55:00) [6]

Недавно сам занялся этим и уже написал, могу поделиться :-)

---

nikitos   (2004-03-13 20:12:00) [7]

Большое спасибо! Испробую!

---

Zeqfreed   (2004-03-13 20:09:00) [8]

Как выдвинуть дверцу CD-ROM?
mciSendString('Set cdaudio Door Open Wait', nil, 0, handle);
mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);

Взято с сайта http://blackman.wp-club.net/(!!!)

---

Наверх