зависания при использовании хука на мышь

[like_cloud]

доброго времени суток,господа!

пишу программку,которая должна вести лог нажатий на клавиши мыши например с координатами курсора в момент нажатия. Использую для этого dll привязанный к основной форме программы.

вот, к примеру, перехват нажатия правой кнопки:

library mdetect;

uses
  Winapi.Windows,
  Winapi.Messages,
  System.Classes;

const
  MouseHookMSG=WM_USER+$125;

{$R *.res}

var
MouseDetect:HHook;

function MouseDetectFunc(code: integer; wParam: WPARAM; lParam: LPARAM):DWORD;stdCall;export;
var
  x,y:integer;
  MouseStruct: TMouseHookStruct;
begin
    if code<0 then
      Result := CallNextHookEx(MouseDetect,Code, wParam, lParam)
  else
  begin
    if  wParam=WM_RBUTTONDOWN then
     begin
    MouseStruct:=TMouseHookStruct(Pointer(Lparam)^);
    y:=MouseStruct.PT.y;
    x:=MouseStruct.PT.x;
    PostMessage(FindWindow(nil, PChar('Form3')),MouseHookMSG, x, y);
    result:=CallNextHookEx(MouseDetect,Code, wParam, lParam);
  end;
  end;
end;


function SetMouseDetectHook:boolean;stdCall;export;
begin
  result:=true;
  MouseDetect:=SetWindowsHookEx(WH_MOUSE, @MouseDetectFunc, hInstance, 0);
end;

function UnHookMouseDetect:boolean;stdCall;export;
begin
  UnhookWindowsHookEx(MouseDetect);
  result:=true;
end;

exports
  SetMouseDetectHook,
  UnHookMouseDetect;

begin

end.

проблема в том,что перехват происходит через раз равно как и вообще срабатывание любого клика мышью. При этом интерфейс вызвавшей dll формы прилично подвисает. Подскажите в какую сторону копать?

[rpy3uH]

CallNextHookEx(<здесь можно ноль>,Code, wParam, lParam);

PostMessage(FindWindow(nil, PChar('Form3')),MouseHookMSG, x, y);

очень тяжёлый код особенно для хука. попробуй найти хендл формы заранее и сохранить его в переменную. а потом посмотрим что получится

[like_cloud]

Сообщение от rpy3uH

очень тяжёлый код особенно для хука. попробуй найти хендл формы заранее и сохранить его в переменную. а потом посмотрим что получится

переписал как советуете, результат тот же - висит интерфейс программы и "винды", левый и правый клики мышью срабатывают один из 5 или около того


нашел логическую ошибку, теперь вот так:

function MouseDetectFunc(code: integer; wParam: WPARAM; lParam: LPARAM):DWORD;stdCall;export;
var
  x,y:integer;
  MouseStruct: TMouseHookStruct;
begin
    if code<0 then
      Result := CallNextHookEx(MouseDetect,Code, wParam, lParam)
  else
  begin
    if  wParam=WM_RBUTTONDOWN then
     begin
    MouseStruct:=TMouseHookStruct(Pointer(Lparam)^);
    y:=MouseStruct.PT.y;
    x:=MouseStruct.PT.x;
    PostMessage(hh,MouseHookMSG, x, y);
  end;
  result:=CallNextHookEx(0,Code, wParam, lParam); //вынес из обработки ПКМ
  end;
end;

теперь все клики мышкой нормально срабатывают,но интерфейс программы продолжает подвисать и далеко не все клики ПКМ определяются