Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

CD rom [D6, Win95/98]

pus © (2002-02-04 04:01:00)
Помогите мне пожалуйста.
Как сделать чтобы СD-ROM закрывался и открывался сам через промежутки времени.
Зарание спасибо.

WhiteRat (2002-02-15 13:46:00) [1]
2 pus:
Кому, если не секрет, напакостить открывающимся CDROM"ом собрался? :)

Anatoly Podgoretsky (2002-02-04 22:16:00) [2]
Таймер поставь

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

:))

Олег_В (2002-02-04 12:04:00) [4]
Для открытия:
mciSendString("Set cdaudio Door Open Wait", nil, 0, handle);

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

Ghost. (2002-02-04 11:42:00) [5]
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 04:32:00) [6]
что-то было связанно с mciSendString

Наверх

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