| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как отловить открытие закрытие CD-ROM а? [D6, WinXP]

SH ©   (2003-09-24 19:39:00) 

Необходимо отловить событие, возникающее, когда 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:00) [1]

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

---

Наверх