-
Здравствуйте. Есть глобальный хук WH_MOUSE в dll, обработчик передает сообщения в программу SendMessage(FindWindow(nil,'Pipetka'),WM_USER+2,wParam,lParam); Задача такая: в определенной ситуации нужно, чтобы сообщение передалось в программу, но мышь не сработала, т.е. чтобы перехваченное мной сообщение обработалось моим обработчиком но не передалось дальше.
function ms_hook(code : integer; wParam : word; lParam : longint) : longint; stdcall;
begin
if code >=0 then
begin
SendMessage(FindWindow(nil,'myForm'),WM_USER+2,wParam,lParam);
end;
if (условие) then Result:= CallNextHookEx(MouHook, Code, wParam, lParam)
else end;
-
> inferno
В справке черным по белому написано:
Return Values
To enable the system to process the message, the return value must be zero. To discard the message, the return value must be a nonzero value.
-
Спасибо, но, если я правильно понял, то такой вариант я уже пробовал.
function ms_hook(code : integer; wParam : word; lParam : longint) : longint; stdcall;
begin
if code >=0 then
begin
SendMessage(FindWindow(nil,'MyForm'),WM_USER+2,wParam,lParam);
end;
if ((wParam=WM_LBUTTONDOWN) or (wParam=WM_NCLBUTTONDOWN) and (MouEnab=false) then
Result:=0
else Result:= CallNextHookEx(MouHook, Code, wParam, lParam);
end;
-
> inferno (11.01.09 11:23) [2] > Спасибо, но, если я правильно понял, то такой вариант я > уже пробовал.
If the hook procedure processed the message, it may return a nonzero value to prevent the system from passing the message to the target window procedure.
-- Regards, LVT.
-
Спасибо что ткнули носом ))
|