4

Реально ли перехватить, и управлять всеми событиями мыши в системе?
Цель: исправить неправильную работу колеса мыши.

0

1 ответ 1

2

Думаю реально. Когда-то фиксил у мышки проблему двойного клика из-за износившегося переключателя и дребезга контактов.

program MouseClickFix;

uses
  Windows,
  Classes,
  SysUtils,
  Messages;

var
  mHook: HHook = 0;
  gLastTime: DWORD = 0;

type
  TMSLLHOOKSTRUCT = packed record
    pt          : TPoint;
    mouseData   : DWord;
    flags       : DWord;
    time        : DWord;
    dwExtraInfo : PDWord;
  end;
  PMSLLHOOKSTRUCT = ^TMSLLHOOKSTRUCT;

const
  THRESHOLD = 40;

function LowLevelMouseProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
var
  VBlock: Boolean;
  VHookStruct: PMSLLHOOKSTRUCT;
  VCurrentTime: DWORD;
  VElapsedTime: DWORD;
begin
  if nCode < 0 then begin
    Result := CallNextHookEx(mHook, nCode, wParam, lParam);
    Exit;
  end;

  VBlock := False;

  if nCode = HC_ACTION then begin
    VHookStruct := PMSLLHOOKSTRUCT(lParam);
    VCurrentTime := VHookStruct.time;
    VElapsedTime := VCurrentTime - gLastTime;

    if wParam = WM_LBUTTONDOWN then begin
      if VElapsedTime < THRESHOLD then begin
        VBlock := True;
      end;
    end else if wParam = WM_LBUTTONUP then begin
      glastTime := VCurrentTime;
    end;
  end;

  if VBlock then begin
    Result := 1;
  end else begin
    Result := CallNextHookEx(mHook, nCode, wParam, lParam);
  end;
end;

const
  WH_MOUSE_LL = 14;

var
  VMsg: TMsg;
begin
  mHook := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseProc, hInstance, 0);

  while GetMessage(VMsg, 0, 0, 0) do begin
    TranslateMessage(VMsg);
    DispatchMessage(VMsg);
  end;

  UnhookWindowsHookEx(mHook);
end.

Делается установкой глобального хука при помощи SetWindowsHookEx и обработки событий WH_MOUSE_LL. Судя по тому, что в списке событий, на который срабатывает обработчик есть события WM_MOUSEWHEEL и WM_MOUSEHWHEEL можно и с колёсиком что-то сделать.

5
  • Спасибо, попробую.
    – 伝説の
    16 дек 2019 в 22:21
  • Перехватывать всё получается, а вот управлять ни в какую... вот как например инвентировать прокрутку? (скролл вверх = скролл вниз, скролл вниз = скролл вверх)
    – 伝説の
    16 дек 2019 в 23:29
  • @LEGENDED Лучше задайте новый вопрос с описанием конкретной проблемы. Ведь если не получается, значит что-то делаете неправильно. Вот и опишите что делаете. Могу подсказать только что, теоретически, при обработке сообщения WM_MOUSEWHEEL нужно изменить знак у WHEEL_DELTA на противоположный и передать изменённое значение дальше по цепочке хуков в CallNextHookEx.
    – zed
    17 дек 2019 в 6:36
  • То есть можно передавать свои значения по цепочке тем самым управляя событиями?
    – 伝説の
    17 дек 2019 в 11:10
  • 1
    @LEGENDED Естественно.
    – zed
    17 дек 2019 в 11:40

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.