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

Вниз

Как сделать программу, которая будет закрывать/открывать дисковод   Найти похожие ветки 

 
nikitos ©   (2004-03-13 19:55) [0]

Очень хочется программно открыть лоток дисковода. Пожалуйста, помогите.


 
Zeqfreed ©   (2004-03-13 20:09) [1]

Как выдвинуть дверцу CD-ROM?
mciSendString("Set cdaudio Door Open Wait", nil, 0, handle);
mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);

Взято с сайта http://blackman.wp-club.net/ (!!!)


 
nikitos ©   (2004-03-13 20:12) [2]

Большое спасибо! Испробую!


 
HepB   (2004-03-13 20:55) [3]

Недавно сам занялся этим и уже написал, могу поделиться :-)


 
ssk   (2004-03-14 15:37) [4]

>Zeqfreed

а если у меня два сидирома? ;-)


 
DDA ©   (2004-03-14 16:54) [5]

DelphiWorks

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;



 
http://my.samara.ru/~Delphi   (2004-04-15 18:09) [6]

скачай с сайта http://my.samara.ru/~Delphi прогу   " CD Open NEW "       Ver.28.03.04


 
http://my.samara.ru/~Delphi   (2004-04-15 18:14) [7]

будут вопросы по коду пиши по адресу: grom@bee-s.com


 
Mim1   (2004-04-15 21:21) [8]

http://my.samara.ru/~Delphi   (15.04.04 18:09) [6]

Када будет готова " CD Close NEW "? :)



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

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

Наверх




Память: 0.48 MB
Время: 0.023 c
4-1081046081
Prov
2004-04-04 06:34
2004.05.23
SW_HIDE


4-1081086796
Константин
2004-04-04 17:53
2004.05.23
Иконка на панели задач


9-1073854659
Stalker_23b
2004-01-11 23:57
2004.05.23
Игровая логика


3-1083156599
Санёк
2004-04-28 16:49
2004.05.23
Чтение данных с MS SQL блоками


4-1081421233
Makhanev A.S.
2004-04-08 14:47
2004.05.23
как отличить системное окно от обычного?