Байда с отловом сообщений системы!

← →
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;

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

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