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

Открытие и закрытие дисковода   Найти похожие ветки 

← →
VVR   (2007-04-27 00:17) [0]

Помогите!!!!!!!!!!!!!
Как открыть и закрыть дисковод по нажатию кнопки?

---

← →
{RASkov} ©   (2007-04-27 00:33) [1]

Дисковод 3,5"?
Кнопку на приводе нажимать?
Если все не так - то может это:
mciSendString("Set cdaudio door open wait", nil, 0, handle);
mciSendString("Set cdaudio door closed wait", nil, 0, handle);
соответственно: "открыть" и "закрыть" CD-ROM....
в uses MMSystem.

---

← →
Джо ©   (2007-04-27 01:15) [2]

> [1] {RASkov} ©   (27.04.07 00:33)
> Дисковод 3,5"?

А что же, в Маках именно такие дисководы и были раньше (сейчас не знаю). И в нек. других машинах, вроде.

---

← →
{RASkov} ©   (2007-04-27 01:24) [3]

> [2] Джо ©   (27.04.07 01:15)
> А что же, в Маках именно такие дисководы

Не думаю, что VVR пишет прогу для Мака на D7 ;)
И вообще.... может он купил новый CD-ROM, а питание не пристегнул, вот и не может - ни открыть, ни закрыть его :)
А D7 - на всякий случай указал, увидал в другой ветке...

---

← →
Desdechado ©   (2007-04-27 11:19) [4]

Традиционный вопрос:
А если дисковод без кнопки и лотка, просто щель? Что ты там собираешься открывать?

---

← →
homm ©   (2007-04-27 11:50) [5]

> Как открыть и закрыть дисковод по нажатию кнопки?

«Нейропрограммированием швейцара»
© не помню чей, но очень понравилось :)

---

← →
clickmaker ©   (2007-04-27 12:14) [6]

> Помогите!!!!!!!!!!!!!

количество воскл. знаков наводит на мысль, что кто-то в этом самом дисководе застрял...

---

← →
Asail   (2007-04-27 14:02) [7]

> Как открыть и закрыть дисковод по нажатию кнопки?

1. Нажать на кнопку - открыть дисковод.
2. Нажать на кнопку - закрыть дисковод.

---

← →
zdm ©   (2007-04-27 14:46) [8]

> clickmaker ©   (27.04.07 12:14) [6]

Супер ;))))

---

← →
Anatoly Podgoretsky ©   (2007-04-27 19:44) [9]

> {RASkov}  (27.04.2007 01:24:03)  [3]

Он там диск оставил.

--

---

← →
{RASkov} ©   (2007-04-27 19:54) [10]

> [9] Anatoly Podgoretsky ©   (27.04.07 19:44)

:)
Тут вон в [6] выдвинули версию, что друг автора там застрял, диск это мелоч....

---

← →
Novice   (2007-04-28 09:22) [11]

вот:

unit DriveTools;

interface

uses

 Windows, SysUtils, MMSystem;

function CloseCD(Drive: Char): Boolean;
function OpenCD(Drive: Char): Boolean;

implementation

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;

end.

(c) DelphiWorld - и вопросов будет меньше.

---

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

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



Память: 0.48 MB
Время: 0.027 c