CD rom

← →
pus (2002-02-04 04:01) [0]

Помогите мне пожалуйста.
Как сделать чтобы СD-ROM закрывался и открывался сам через промежутки времени.
Зарание спасибо.

← →
Василий Свиридов (2002-02-04 04:32) [1]

что-то было связанно с mciSendString

← →
Ghost. (2002-02-04 11:42) [2]

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;

← →
Олег_В (2002-02-04 12:04) [3]

Для открытия:
mciSendString("Set cdaudio Door Open Wait", nil, 0, handle);

закрыть:
mciSendString("Set cdaudio Door Closed", nil, 0, handle);

← →
gepard (2002-02-04 21:56) [4]

Можно еще проще
ShowMessage(Format("Повторно нажимайте кнопку на CD-ROMе через каждые %s сек ",[FTime]));

:))

← →
Anatoly Podgoretsky (2002-02-04 22:16) [5]

Таймер поставь

← →
WhiteRat (2002-02-15 13:46) [6]

2 pus:
Кому, если не секрет, напакостить открывающимся CDROM"ом собрался? :)

CD rom Найти похожие ветки