Помощь - Поиск - Пользователи - Календарь
Полная версия: Hooks api, несколько вопросов
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Unconnected
Привет всем, опять это я и API _)

Нужно мне было сделать глобальную ловушку на мышь. Чтобы какое-то время нигде, кроме окошка моего приложения, клики не имели действия. Решил смастерить сам, залез в MSDN и начал читать про SetWindowhookEx с WH_MOUSE и далее по ссылкам. Я так понял, мне в качестве HookId нужно использовать WH_MOUSE_LL, низкоуровневый перехват, что ли. Сделал такую Callback-функцию:

Function pinrct(x,y:integer):boolean;
begin
if (x>=form1.left) and (x<=form1.left+form1.width) and (y>=form1.top) and (y<=form1.top+form1.height) then result:=true else result:=false;
end;

function LowLevelMouseProc(var code:integer;wparam:wparam;lparam:lparam):integer;stdcall;
var mousep:TPoint;
begin
mousep:=PMouseHookStruct(lparam)^.pt;
if code=HC_ACTION then begin
if ((wparam=WM_LBUTTONDOWN) or (wparam=WM_RBUTTONDOWN)) and not(pinrct(mousep.x,mousep.y)) then begin
end else postmessage(form1.handle,wparam,lparam,nil);
end;
// Result := CallNextHookEx(hook,Code,wparam,lparam);
end;
end;


Если я правильно перевёл, то если code будет равно HC_ACTION, то какое-то сообщение пришло. С PostMessage-параметрами там напутано, не пойму, какое сообщение слать, и на закомментированное присвоение Result-у ругается, на первый параметр. В msdn пишут, что он optional и вообще ignored. Я вот чего не пойму, почему везде пишут, что глобальные ловушки должны быть в dll; какая разница-то? И ещё, вот пришло сообщение в мой глобальный хук, если я не вызову настоящий обработчик оператором Inherited, то сообщение дальше не пойдёт?
Unconnected
А, вроде чтобы сообщение закончило свои дни в ловушке, надо сделать result:=-1..
volvo
Для начала - о том, почему глобальный (действительно глобальный) хук должен находиться в DLL. А вот почему:

"В Dll код нужно выносить по той простой причине, что этот код должен быть внедрён в адресное пространство целевого процесса.

Например, другой процесс, не связанный с вами, ставит хук. Вот вы вызывали GetMessage. Должен сработать хук. Сейчас управление находится в вашем процессе. Как система вызовет обработчик хука, находящийся вообще в другом адресном пространстве? А никак.
Поэтому она требует, чтобы код был в DLL. Тогда она может спокойно загрузить DLL в ваш процесс, а когда вы вызываете GetMessage, то система просто проходит по списку хуков и вызывает код каждого обработчика, который сейчас сидит в вашем адресном пространстве. Очень просто."
(С) CodeMonkey

Кстати, именно по этой причине тебе здесь не нужна DLL:
Цитата(MSDN)
This hook is called in the context of the thread that installed it.
(LowLevelMouseProc Callback Function)

Соответственно, чтобы запретить любые действия с мышой за пределами твоего окна, достаточно:
var myHook: HHOOK;

function LowLevelMouseProc(nCode: Integer; myWParam: WPARAM; myLParam: LPARAM): LRESULT; stdcall;
var
MHS: PMOUSEHOOKSTRUCT;
CR: TRect;
begin
CR := Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, Form1.Top + Form1.Height);
result := 1;

MHS := PMOUSEHOOKSTRUCT(myLParam);

if nCode = HC_ACTION then
begin
case myWParam of

WM_RBUTTONDOWN,
WM_LBUTTONDOWN:
begin
if PtInRect(CR, MHS^.pt) then
begin
// Кнопка нажата в окне приложения, ничего делать не будем,
// нажатие передастся куда нужно
end
else
begin
// Ага... вот оно, нажатие вне окна... Вернем ненулевое число
// (как советует MSDN) для завершения его обработки, дальше оно не пройдет...
exit;
end;

end;
end;
end;
result:=CallNextHookEx(MyHook, nCode, myWParam, myLParam);
end;


// устанавливаем хук, например ,по нажатию какой-то кнопки или при создании формы
myHook := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseProc, hInstance, 0 );


// снимаем хук, нажатием другой кнопки (в твоем-то приложении кнопки нажимаются)
// или при удалении формы
UnhookWindowsHookEx(MyHook);

Unconnected
Клааасс, как всегда очень познавательно и понятно, спасибо ! good.gif Кстати, у меня WH_MOUSE_LL не опознаётся, говорит, что unknown identifier, ну я его просто на число 14 заменил smile.gif
volvo
Цитата
ну я его просто на число 14 заменил
Не надо этого делать... Опиши константу
const
WH_MOUSE_LL = 14;

, и используй ее... А пользоваться "магическими числами", да еще и при работе с хуками - себе дороже.
Unconnected
Кстати, если кому интересно, я тут заметил, что не всё подряд перехватывается smile.gif Например :

function LowLevelMouseProc(nCode: Integer; myWParam: WPARAM; myLParam: LPARAM): LRESULT; stdcall;
var
MHS: PMOUSEHOOKSTRUCT;
CR: TRect;
begin
CR := Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, Form1.Top + Form1.Height);
result := 1;
MHS := PMOUSEHOOKSTRUCT(myLParam);
if nCode = HC_ACTION then
begin
case myWParam of
WM_RBUTTONDOWN:exit;
end;
end;
result:=CallNextHookEx(MyHook, nCode, myWParam, myLParam);
end;


, позволяет кликнуть правой кнопкой на десктопе, чтобы появилось popup-меню. Наверное, его нельзя перехватывать. И ещё, если привязываться к координатам, то мышь всё равно будет работать, если чужое окно (или кусок того же popup-а) будет поверх моей формы smile.gif
volvo
Цитата
позволяет кликнуть правой кнопкой на десктопе, чтобы появилось popup-меню
А, собственно, кто тебе сказал, что меню появляется по WM_RBUTTONDOWN, а не по WM_RBUTTONUP? smile.gif Заблокируй и WM_RBUTTONUP, никакой поп-ап не появится...
Unconnected
И правда, ничего теперь не всплывает, спасибо smile.gif Надо было самому догадаться - ведь если правую кнопку зажать, то popup-а не будет, пока не отожмёшь)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.