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

Вниз

Смена активного привода CD   Найти похожие ветки 

 
SigalX   (2004-06-04 12:58) [0]

У меня два компакт-дисковода, при команде открыть/закрыть открывается первый. Подскажите, а как открыть/закрыть второй?


 
Clickmaker ©   (2004-06-04 13:03) [1]

Какую команду даешь?


 
BiN ©   (2004-06-04 14:51) [2]

SigalX   (04.06.04 12:58)
ты, очевидно, используешь
mciSendString("Set cdaudio door open wait", nil, 0, 0)

вот другой вариант

function SetCDDoorOpenState(Drive:Char; Open:Boolean):Boolean;
var
 Res : MciError;
 OpenParm: TMCI_Open_Parms;
 Flags,DeviceID : Word;
 DrvName:String;
 OpenCMD:DWORD;
begin
 DrvName:=Drive+":";
 Result:=false;
 Flags:=mci_Open_Type or mci_Open_Element;
 with OpenParm do
 begin
   dwCallback := 0;
   lpstrDeviceType := "CDAudio";
   lpstrElementName := PChar(DrvName);
 end;
 Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
 if Res<>0 then exit;
 DeviceID:=OpenParm.wDeviceID;
 try
   if Open
   then OpenCMD:=MCI_SET_DOOR_OPEN
   else OpenCMD:=MCI_SET_DOOR_CLOSED;
   Result:=mciSendCommand(DeviceID, MCI_SET, OpenCMD, 0)=0;
 finally
   mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
 end;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
1-1088678430
Akella
2004-07-01 14:40
2004.07.18
Обработка событий различных объектов одной процедурой


1-1088538970
Delphinist
2004-06-29 23:56
2004.07.18
Проблема с проигрыванием MIDI файлов!


1-1088762739
Максим
2004-07-02 14:05
2004.07.18
Формат отображения числа


3-1088204723
eLVik
2004-06-26 03:05
2004.07.18
Изменение структуры DBF


1-1088931071
ida
2004-07-04 12:51
2004.07.18
Как копировать в StringGrid?