Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Зависание меню после установки хука   Найти похожие ветки 

 
Новичок   (2009-03-25 11:13) [0]

Добрый день.
Пожалуйста помогите разобраться с хуками. Ситуация такая: устанавливаю локальный хук на мышь и клавиатуру в MDI приложении. Задачей хука является отсылка уведомления в главное окно. При попытке выбрать мышкой пункт выпадающего меню, не главного!,  а, например, "Главное->Файл->Открыть", приложение замерзает. Более того, ощутимо начинает тормозить система пока не срубишь это приложение. Проблема решается заменой PostMessage в коде хука на SendMessage. Причем проблема не возникает если выбирать меню с клавиатуры! Не могли бы Вы объяснить причину происходящего?!

implementation

....

var
 KbrdInputHook: HHOOK = 0;
 MouseInputHook: HHOOK = 0;

function KbrdHookProc(code: integer; wparam: WPARAM; lparam: LPARAM): LRESULT; stdcall;
begin
 Result:= CallNextHookEx(KbrdInputHook, code, wparam, lparam);
 if code >= 0 then
   begin
     PostMessage(Application.MainForm.Handle, FRX_IDLE_USER_INPUT, 0, 0);
   end;
end;

function MouseHookProc(code: integer; wparam: WPARAM; lparam: LPARAM): LRESULT; stdcall;
begin
 Result:= CallNextHookEx(MouseInputHook, code, wparam, lparam);
 if code >= 0 then
   begin
     PostMessage(Application.MainForm.Handle, FRX_IDLE_USER_INPUT, 0, 0);
   end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
 KbrdInputHook:= SetWindowsHookEx(WH_KEYBOARD, @KbrdHookProc, 0, MainThreadID);
 MouseInputHook:= SetWindowsHookEx(WH_MOUSE, @MouseHookProc, 0, MainThreadID);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
 if KbrdInputHook <>0 then UnhookWindowsHookEx(KbrdInputHook);
 if MouseInputHook <> 0 then UnhookWindowsHookEx(MouseInputHook);
end;


 
Сергей М. ©   (2009-03-25 12:04) [1]

Не понятна сама затея с хуком ..

Если хук устанавливается на основной поток процесса своего собственного приложения, то что мешает вместо этого просто обрабатывать событие выбора пункта интересующего меню или событие выполнения акции, ассоциированной с этим пунктом меню ?


 
Новичок   (2009-03-25 12:21) [2]

Обработка действия по пункту меню здесь абсолютно не при чем. Просто возникает проблема с меню при установленом хуке. Задача заключается в том, чтобы отследить отсутствие клавиатурно/мышиного ввода от пользователя.

Удалось найти решение!
В процедуре условие


if code >= 0 then
  begin
    PostMessage(Application.MainForm.Handle, FRX_IDLE_USER_INPUT, 0, 0);
  end;

изменяется на

if code = HC_ACTION then
  begin
    PostMessage(Application.MainForm.Handle, FRX_IDLE_USER_INPUT, 0, 0);
  end;

и все работает!!!

Просто получается так, что если в момент прихода code = HC_NOREMOVE отправлять PostMessage.. то приложение попадает в мертвую петлю. В общем, решение вроде как найдено, но основного вопроса это не снимает:
Не могли бы Уважаемые Мастера доступно объяснить суть происходящего? Спасибо за внимание.


 
Сергей М. ©   (2009-03-25 12:36) [3]


> доступно объяснить суть происходящего

https://wasm.ru/forum/viewtopic.php?id=12047


> отследить отсутствие клавиатурно/мышиного ввода от пользователя


А если юзер просто тупо бесцельно елозит мышью, это разве не считается мышиным вводом ?


 
Новичок   (2009-03-25 12:54) [4]

Насчет бесцельного тыканья мышью - вопрос десятый. Я потом напишу необходимые проверки. Это просто демонстрационный пример.

Спасибо за ссылку. По тексту все равно не понял, почему мой PostMessage вгоняет систему в ступор.


 
Сергей М. ©   (2009-03-25 13:06) [5]


> все равно не понял


Windows вызывает хук WH_KEYBOARD/WH_MOUSE с кодом HC_NOREMOVE, когда клавиатурное/мышиное сообщение не удаляется из очереди, потому что приложение вызвало функцию PeekMessage с параметром PM_NOREMOVE.



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

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

Наверх




Память: 0.48 MB
Время: 0.052 c
15-1266874205
Юрий
2010-02-23 00:30
2010.08.27
С днем рождения ! 23 февраля 2010 вторник


2-1273233990
Rolls
2010-05-07 16:06
2010.08.27
ListView вывод иконок


15-1275383564
boriskb
2010-06-01 13:12
2010.08.27
Образование в СССР


2-1271335314
LVP
2010-04-15 16:41
2010.08.27
Вопрос по TImage


6-1221664307
denissoft
2008-09-17 19:11
2010.08.27
Как переслать огромный файл по ТСП/ИП от 100 Мб- 4 Гб.