Скачать: CL | DM;

Как отловить открытие закрытие 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.02 c