Как отловить открытие закрытие CD-ROM а?

← →
SH (2003-09-24 19:39) [0]

Необходимо отловить событие, возникающее, когда CDROM открывают и закрывают вручную.

Нашёл следующий код:
--------------------
\Как отловить открытие\закрытие CD-ROM"а?
Использовать сообщение WM_DEVICECHANGE.
TForm1 = class(TForm)
procedure ReceiveMessage (var Msg: TMessage); message WM_DEVICECHANGE;
private
{ Private declarations }
public
{ Public declarations }
end;
...
procedure TForm1.ReceiveMessage(var Msg: TMessage);
begin
if Msg.WParam=32772 then
ShowMessage("CD-ROM Open");
if Msg.WParam=32768 then
ShowMessage("CD-ROM Close");
end;
--------------
Этот код почему-то не работает. Что можно сделать?

← →
Anatoly Podgoretsky (2003-09-24 20:28) [1]

И он конечно не работает, продолжай искать. :-)

Как отловить открытие закрытие CD-ROM а? Найти похожие ветки