Переопределение кнопок мышки

[yorri]

Нужно переназначить кнопки мышки (три кнопки: правая, средняя и левая). Например: нажимаем левую - срабатывает, скажем, средняя, среднюю - правая, правую - левая... Тут варианты.
Делаю через хуки.
Но столкнулся с проблемой. Зацикливание. Насколько понял, происходит так. Переназначаю кнопки: левая->средняя, средняя->левая.
Нажимаю левую -> срабатывает обработчик левой кнопки -> генерируется/имитируется нажимание средней кнопки -> далее срабатывает обработчик средней кнопки (так как мы это сами сгенерировали выше)->генерируется/имитируется нажимание левой кнопки... и так по кругу. Не могу справиться с той проблемой.

Вот кусок кода отвечающий за это. Тут для двух кнопок: левая и средняя.

if (EventStrut.message = WM_LBUTTONDOWN) or (EventStrut.message = WM_LBUTTONDOWN) or
          (EventStrut.message = WM_LBUTTONDBLCLK) then
          begin

               GetCursorPos(Pt);

               case MouseKey[1] of
               2:begin
                    EventStrut.message:=WM_NULL;
                    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MIDDLEDOWN, Pt.x, Pt.y, 0, 0);
                    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MIDDLEUP, Pt.x, Pt.y, 0, 0);

                 end;
               3:begin
                    EventStrut.message:=WM_NULL;
                    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN, Pt.x, Pt.y, 0, 0);
                    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP, Pt.x, Pt.y, 0, 0);

                 end;
               
               end;//case

          end;

        if (EventStrut.message = WM_MBUTTONDOWN) or (EventStrut.message = WM_MBUTTONDOWN) or
          (EventStrut.message = WM_MBUTTONDBLCLK) then
          begin

               GetCursorPos(Pt);

               case MouseKey[2] of
               1:begin
                    EventStrut.message:=WM_NULL;
                    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
                    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);

                 end;
               3:begin
                    EventStrut.message:=WM_NULL;
                    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN, Pt.x, Pt.y, 0, 0);
                    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP, Pt.x, Pt.y, 0, 0);

                 end;
               
               end;//case

          end;

Тут массив MouseKey содержит настройки переопределения: в первой ячейке номер назначеной кнопки для первой кнопки, во второй - номер назначеной кнопки для второй кнопки....

Спасибо.

[Toxa]

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

[yorri]

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

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

Да делал так, это первое пришло в голову - не работает...