Maus sperren während Tastatureingabe

[Medium]

Das Problem ist wohl, dass du CallNextHook() in jedem Fall aufrufst.

Delphi-Quellcode:

function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  res: Cardinal;
begin
  case nCode < 0 of
    TRUE: exit;
    FALSE:
      begin
        // Handelt es sich um einen linken Mausklick?
        if (wParam = WM_LBUTTONDBLCLK) or (wParam = WM_LBUTTONDOWN) or (wParam = WM_LBUTTONUP) then
        begin
          // Dann Anwendung fragen, ob das OK ist
          SendMessageTimeOut(TargetHandle, WM_LMOUSECLK_CONFIRM, wParam, lParam, SMTO_ABORTIFHUNG or SMTO_BLOCK, MsgTimeOut, res);
          if res = 10 then // Mausklick verwerfen
            Result := 1 // Irgend ein nicht-null Wert. So hab ich es zumindest auch schon mal gemacht ;)
          else
            Result := CallNextHookEx(Mouse_HookHandle, nCode, wParam, lParam);
          end;
        end;
      end;
  end;
end;

Das einzige was ich jetzt nicht weiss ist, ob und wann nCode jemals <0 wird. Result ist in dem Fall dann undefiniert, und müsste mit einem konstanten Wert vorbelegt werden, der dazu führt dass der Wert von nCode ebenfalls Einfluss darauf hat ob das Ereignis durchkommt oder nicht. Man müsste nur mal schauen unter welchen Bedingungen nCode<0 auftritt.