Открытие и закрытие дисковода

← →
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]

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

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

--

> [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 - и вопросов будет меньше.

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