Отловить событие при открытии/закрытии дисковода

[k1r1ch]

Мне надо отловить событие дисковода. Пробовал такой код:

private
  { Private declarations }
  procedure ReceiveMessage(var Msg: TMessage); message WM_DEVICECHANGE;

procedure TMainForm.ReceiveMessage(var Msg: TMessage);
const
 DBT_DEVICEARRIVAL = $8000; //insert
 DBT_DEVICEREMOVECOMPLETE = $8004;  //eject
begin
  inherited;
  case Msg.wParam of
    DBT_DEVICEARRIVAL: //что-то делаем
    DBT_DEVICEREMOVECOMPLETE: //что-то делаем
  end;
end;

Но ничего не происходит, это событие даже не вызывается!
Что делать?

[ОДИНОЧЕСТВО В СЕТИ]

Проверить, открыт ли CD-ROM
--------------------------------------------

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   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('Message: ' + s);
 end;

[k1r1ch]

Получается, что мне надо запихать это в таймер. Но это ведь как-то неправильно! Может есть какое-нибудь событие?

P.S.: Тем более что оно еще неправильно работает!

[JTG]

WM_DEVICECHANGE работает, если в приводе есть диск
Вот тут http://khv-inviz.livejournal.com/28024.html через DeviceIOControl, но там вроде не без ошибок

[k1r1ch]

Жалко, что на C, а не на Delphi! Видимо дисковод вообще не вызывает никаких событий в винде при закрытии-открытии, тогда наверное откажусь от этой идеи...