Автор Echuy@mail.ru задал вопрос в разделе Другие языки и технологии
Delphi не срабатывает SetWindowsHookEx и получил лучший ответ
Ответ от Jurijus Zaksas[гуру]
2 момента:
1. Настоящий кошерный хук должен быть оформлен в виде библиотеки.
2. Есть у меня подозрение, что твоя процедура сама себя зацикливает, посылая сообщение. То есть сама себя ловит за яйца и тут же входит в саму себя. Как виндоза относится к рекурентным хукам - я без понятия, не баловался...
Ответ от Dnikitaa[гуру]
procedure RunStopHook(State: boolean);
begin
if State then
SysHook:= SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, GetCurrentThreadId)
else begin
UnhookWindowsHookEx(SysHook); SysHook:=0;
end;
end;
Поток кто будет указывать
procedure RunStopHook(State: boolean);
begin
if State then
SysHook:= SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, GetCurrentThreadId)
else begin
UnhookWindowsHookEx(SysHook); SysHook:=0;
end;
end;
Поток кто будет указывать
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Delphi не срабатывает SetWindowsHookEx