Форум: "Система";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Вниз

Как сделать программу, которая будет закрывать/открывать дисковод   Найти похожие ветки 

← →
nikitos ©   (2004-03-13 19:55) [0]

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

---

← →
Zeqfreed ©   (2004-03-13 20:09) [1]

Как выдвинуть дверцу 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/ (!!!)

---

← →
nikitos ©   (2004-03-13 20:12) [2]

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

---

← →
HepB   (2004-03-13 20:55) [3]

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

---

← →
ssk   (2004-03-14 15:37) [4]

>Zeqfreed

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

---

← →
DDA ©   (2004-03-14 16:54) [5]

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;



---

← →
http://my.samara.ru/~Delphi   (2004-04-15 18:09) [6]

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

---

← →
http://my.samara.ru/~Delphi   (2004-04-15 18:14) [7]

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

---

← →
Mim1   (2004-04-15 21:21) [8]

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

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

---

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

Форум: "Система";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Наверх

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