Текущий архив: 2003.11.20;
Скачать: 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 вся ветка
Текущий архив: 2003.11.20;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.055 c
