Главная страница
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.022 c
4-1086684573
Vlad2
2004-06-08 12:49
2004.07.18
Как в run-time получить список экспортируемых функций DLL


1-1088673972
}|{yk
2004-07-01 13:26
2004.07.18
По наследованию


6-1085044499
OlegM
2004-05-20 13:14
2004.07.18
Почему не запускается TClientSocket


1-1089094832
MadGhost
2004-07-06 10:20
2004.07.18
Рисование на канве ячеект и вставка текста: траблы :(


1-1088753591
Provodnick
2004-07-02 11:33
2004.07.18
Как вставить в Worde текст с новой страницы?