Текущий архив: 2004.04.18;
Скачать: CL | DM;

Вниз

Байда с отловом сообщений системы!   Найти похожие ветки 

← →
Dimaxx ©   (2003-08-25 13:55) [0]

Сабж. Вешаю на Fomr.OnMessage отлов сообщения WM_DEVICECHANGE:

function TMainForm.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
 inherited;
 if Msg.Message=WM_DEVICECHANGE then
   case Msg.wParam of
     $8000,$8004: <действия, если вынули/вставили диск в cd-rom>
   end;
end;


На VCL все проходит на "ура". А в KOL"е нифига не ловит и форма на экране не появляется. Пробовал вешать на апплет - тот же результат!
Подскажите как отловить правильно!? Кто подскажет как на лыжах по песку кататься?

---

← →
Gandalf ©   (2003-08-25 14:54) [1]

У нас Бартов любитель WM_DEVICECHANGE - меня с ним пытал долго. Короче все ловится можешь мне поверить - см. BAPDriveBox.

А inherited зачем? Result:=False;

---

← →
Dimaxx ©   (2003-08-27 22:50) [2]

Сенькс! Скачал, нашел, воспроизвел у себя - работает!!!

---

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

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c