Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > mciSendCommand

Автор: _8989 4.12.2003, 13:07

Здравствуйте.
Не могу открыть указанный привод CD-ROM (E:\). Самое интересное то, что mciSendCommand возвращает не нуль, а CD-ROM все равно не открывается.

Код

procedure TForm1.Button8Click(Sender: TObject);
var
 dwrc: DWORD;
 cdDevice: UINT;
 OpenParms: TMCI_Open_Parms;
begin
  OpenParms.lpstrDeviceType:= PChar(MCI_DEVTYPE_CD_AUDIO);
  OpenParms.lpstrElementName := PChar('E:\');
  dwrc := mciSendCommand(0,MCI_OPEN, MCI_OPEN_ELEMENT or MCI_OPEN_TYPE,DWORD(@OpenParms));
  if dwrc <> 0 then
  begin
   cdDevice:= OpenParms.wDeviceID;
   mciSendCommand(cdDevice, MCI_SET_AUDIO, MCI_SET_DOOR_OPEN, 0);
   caption := 'No Error';
  end
  else
   caption := 'Bad';
end;

Автор: Gloomy 4.12.2003, 17:32

Код


procedure OpenCloseCD(Disk: String; Open: Boolean);
var
  OpenParm: MCI_OPEN_PARMS;
  deviceID: Cardinal;
begin
  OpenParm.dwCallback:= 0;
  OpenParm.lpstrDeviceType:= 'CDAudio';
  OpenParm.lpstrElementName:= @Disk[1];
  mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, LongInt(@OpenParm));
  deviceID:= OpenParm.wDeviceID;
  if Open then
    mciSendCommand(deviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0)
  else
    mciSendCommand(deviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
end;

Применение:

Код


  OpenCloseCD('E:', True); // откроем лоток
  Sleep(1500); // подождем 1,5 секунды
  OpenCloseCD('E:', False); // закроем лоток

Автор: _8989 4.12.2003, 19:43

Спасибо, пример работает!

Но почему не работает директива MCI_DEVTYPE_CD_AUDIO???
А с 'CDAudio' всё нормально? В чём тут дело?