состояние CDRom

[joker]

Как проверить открыт CDRom или закрыт
шарился в справке win32sdk.hlp по MMSystem но не нашел что нужно

[rpy3uH]

однозначного решения нет. можно исходить из того что специально закрыть его, и уже потом "плясать" от того что точно CD-ROM закрыт и при надобности открыть его.

[JTG]

Решение есть, т.к. некоторые либы типа basscd умеют это правильно определять. Печенью чувствую - чёта с IOCTL, но что конкретно даже не представляю

[joker]

а если отправить комманду открытия, когда он открыт, или закрытия, когда он закрыт, и проверить на ошибки, в зависимости оттго удалась ли операция или нет, решать выполнить или нет противоположную. Или при отсылании комманды на CDRom, когда он уже закрыт или открыт, нет ошибок, и так не получится?

[JTG]

Может конечно и получится, но хотелось бы знать состояние привода без изменения его состояния (ну вообщем вы поняли )

[joker]

Мне вроде рассказали про способ с WM_DEVICECHANGE
по идее нужно просто обработать в очереди любого окна это сообщение
(ловушку не надо, вроде), но не работает

вот мой незатейливый алгоритм

для того, чтобы клавиатурный шпион работал нормально, регистрю и создаю, но не показываю, невидимое окно и на сообщении о создании устанавливаю ловушку, на об уничтожении убираю, добавляю в case оконной процедуры WM_DEVICECHANGE

WM_DEVICECHANGE:
  If ((wParam=$8000) or (wParam=$8004)) and
     (PDevBroadcastHdr(lparam)^.dbcd_devicetype=$2) then CDState:=not CDState;

Где CDState - глобальная переменная, а тип PDevBroadcastHdr объявлен так

type 
PDevBroadcastHdr = ^TDevBroadcastHdr; 
TDevBroadcastHdr = packed record 
dbcd_size: DWORD; 
dbcd_devicetype: DWORD; 
dbcd_reserved: DWORD; 
end;

Уже потом на основании значения CDState вытаскиваю или закрываю CDRom,
но беда в том, что CDState как был false так и остался, несмотря на выдвижение лотка

Подскажите в чем может быть ошибка

[JTG]

Код может и верный, но WM_DEVICECHANGE реагирует на открытие/закрытие лотка только если там есть диск

[kommunist]

Сообщение от joker

Как проверить открыт CDRom или закрыт
шарился в справке win32sdk.hlp по MMSystem но не нашел что нужно

Вот не знаю код рабочий или нет непроверял просто читал твою тему а на днях наткнулся на это

procedure TForm1.Button1Click(Sender: TObject);
 var
   s: array[0..64] of Char;
   error: Cardinal;
   Text: array[0..255] of Char;
 begin
   error := mciSendstring('open cdaudio alias geraet', nil, 0, Handle);
   if error <> 0 then
   begin
     mciGetErrorstring(error, @Text, 255);
     ShowMessage(text);
     mciSendstring('close geraet', nil, 0, Handle);
     Exit;
   end;

   error := mciSendstring('status geraet mode', @s, SizeOf(s), Handle);
   if error <> 0 then
   begin
     mciGetErrorstring(error, @Text, 255);
     ShowMessage(Text);
     mciSendstring('close geraet', nil, 0, Handle);
     Exit;
   end;

   mciSendstring('close geraet', nil, 0, Handle);
   ShowMessage( s);
 end;

[joker]

Код может и верный, но WM_DEVICECHANGE реагирует на открытие/закрытие лотка только если там есть диск

Хм, то есть WM_DEVICECHANGE приходит лишь когда вставляют диск в дисковод?

[JTG]

Приходит если открыть или закрыть дисковод, когда там есть диск.

When the user inserts a new compact disc or DVD into a drive, applications get a WM_DEVICECHANCE message with a DBT_DEVICEARRIVAL event. The application must check the event to make sure that the type of device arriving is a volume (DBT_DEVTYP_VOLUME) and that the event's media flag (DBTF_MEDIA) is set.

When the user removes a compact disc from a CD-ROM drive or DVD, applications will get a WM_DEVICECHANCE message with a DBT_DEVICEREMOVECOMPLETE event. As with DBT_DEVICEARRIVAL above, the application must check the event to make sure that the device being removed is a volume and that the event's media flag is set.

Кстати исходники basscd не распостраняются, но в ридми написано, что либу делали на основе akrip - http://akrip.sourceforge.net/