Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

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

 
ArthurKhamitov   (2004-05-10 21:08) [0]

Как программно (через Delphi) открыть CD-дисковод?


 
BillyJeans ©   (2004-05-10 21:10) [1]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619714&n=15


 
Palladin ©   (2004-05-10 21:12) [2]

Как программно (через Delphi (что нужно написать (какие клавиши нажать (в какой последовательности ( с какой силой нажимать (что бы работало (не задавало вопросов (не было ошибок)))))))) открыть CD-дисковод?


 
freak   (2004-05-10 21:46) [3]

Да, давненько этого вопроса не было.


 
DDA ©   (2004-05-10 22:11) [4]


> BillyJeans ©   (10.05.04 21:10) [1]

Дак ведь спросят а как быть если два CD или первый Виртуальный


function OpenCD(Drive : Char) : Boolean;
Var
 Err : MciError;
 OpenParm: TMCI_Open_Parms;

 Flags : DWord;
 S : String;
 DeviceID : Word;
begin
 Result:=false;
 S:=Drive+":";
 Flags:=mci_Open_Type or mci_Open_Element; // См. mci_Open
 With OpenParm do
 begin
   dwCallback := 0;
   lpstrDeviceType := "CDAudio";
   lpstrElementName := PChar(S);
 end;
 Err := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
 IF Err<>0 Then exit;
 DeviceID:=OpenParm.wDeviceID;
 try
 Err:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);

 IF Err=0 Then exit;
 Result:=True;
 finally
   mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
 end;
end;

function CloseCD(Drive : Char) : Boolean;
Var
 Err : 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;
 Err := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
 IF Err<>0 Then exit;
   DeviceID:=OpenParm.wDeviceID;
 try
 Err:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
 IF Err=0 Then exit;
 Result:=True;
 finally
 mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm));
 end;

end;




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

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.032 c
11-1072250148
PVOzerski
2003-12-24 10:15
2004.05.23
Новости от FPC Team


11-1071840200
Yury Sidorov
2003-12-19 16:23
2004.05.23
KOL и Large fonts


1-1083869605
Реактор
2004-05-06 22:53
2004.05.23
Выход из модального окна


14-1083303159
blackman
2004-04-30 09:32
2004.05.23
Что с усовершенствованием FAQ ? Усовершенствовали что-ли уже ?


14-1083222020
proteste
2004-04-29 11:00
2004.05.23
Стоит ли использовать антивирь