Остановка выполнения при отжатии кнопки мыши.

[vers0]

Есть код, который выполняется при нажатии левой кнопки мыши (глобальный хук через DLL), а при отжатии этой кнопки должно происходить прекращение выполнения...но не происходит, пока полностью не отработает до конца

procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited;
  if (Msg.Msg = MWM_LBUTTONDOWN) then
  begin
...
if (sRadioGroup1.ItemIndex=0) and (sComboBox1.ItemIndex=4) then
        begin
        GetCursorPos(p);
        SetCursorPos(p.X-4, p.Y+3);
        Sleep(85);
... и т.д. (смещение курсора)
end;
if (Msg.Msg = MWM_LBUTTONUP) then
  begin
    Exit; 
  end;
end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
  if StartMouseHook(True, Handle) = True then
    begin
    HookEnable := True;
    sButton1.Enabled := False;
    sButton2.Enabled := True;
    end else
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
  if StopMouseHook = True then
    begin
    HookEnable := False;
    sButton2.Enabled := False;
    sButton1.Enabled := True;
    end else
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotkey(Handle, ID1);
  GlobalDeleteAtom(ID1);
  UnregisterHotkey(Handle, ID2);
  GlobalDeleteAtom(ID2);
  if HookEnable <> False then
    StopMouseHook;

end;

initialization
  MWM_LBUTTONDOWN := RegisterWindowMessage('MWM_LBUTTONDOWN');
  MWM_LBUTTONUP := RegisterWindowMessage('MWM_LBUTTONUP');
end.

[Stilet]

Все верно. На то он и хук. Клики по клавишам конвертируются в сообщения. А хуки - это программы, которые по очереди эти сообщения обрабатывают. По очереди!
Поэтому пока первое сообщение не будет хуком обработано - второе может и не наступить. Вернее оно то наступит, но винда о нем своим программам не сообщит.

[vers0]

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

Все верно. На то он и хук. Клики по клавишам конвертируются в сообщения.

И как с этим бороться? Вернее что предпринять-то, для достижения задуманного?

[Stilet]

Эт я тебе не скажу... Я хуки не использую, и другим не советую.
По крайней мере не помешало бы услышать твою задачу. Зачем тебе понадобились хуки. Может тогда чего и посоветовать можно было бы.

[Krasiosoft]

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

глобальный хук через DLL

Можно и без DLL это сделать:

#define WM_MOUSEWHEEL 0x020A
#define WM_MOUSEHWHEEL 0x020E

HHOOK MouseHook=0;

LRESULT CALLBACK MainMouseProc(int code, WPARAM wParam, LPARAM lParam)
{
        if (code>=0){
        tagMSLLHOOKSTRUCT* mhs = (tagMSLLHOOKSTRUCT*)lParam;

        switch(wParam){
                case WM_LBUTTONDOWN:
                Form1->Memo1->Lines->Add("WM_LBUTTONDOWN");
                break;

                case WM_LBUTTONUP:
                Form1->Memo1->Lines->Add("WM_LBUTTONUP");
                break;

                case WM_MOUSEMOVE:
                Form1->Memo1->Lines->Add("WM_MOUSEMOVE");
                break;

                case WM_MOUSEWHEEL:
                Form1->Memo1->Lines->Add("WM_MOUSEWHEEL");
                break;

                case WM_MOUSEHWHEEL:
                Form1->Memo1->Lines->Add("WM_MOUSEHWHEEL");
                break;

                case WM_RBUTTONDOWN:
                Form1->Memo1->Lines->Add("WM_RBUTTONDOWN");
                break;

                case WM_RBUTTONUP:
                Form1->Memo1->Lines->Add("WM_RBUTTONUP");
                break;
        }
  }
  return CallNextHookEx(MouseHook, code, wParam, lParam);
}

void SetHook(){
        if(!MouseHook) MouseHook = SetWindowsHookEx(WH_MOUSE_LL, (HOOKPROC)MainMouseProc,  GetModuleHandle(0),0);
        if(!MouseHook) MessageBoxA(0,"Ошибка установки хука","Ошибка",0);
}
void DelHook(){
        if(MouseHook){
                UnhookWindowsHookEx(MouseHook);
                MouseHook=0;
        }
}

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

Есть код, который выполняется при нажатии левой кнопки мыши, а при отжатии этой кнопки должно происходить прекращение выполнения.

Для этого нужно запускать выполнение Вашего кода не в функции обработки сообщений, а в новом потоке, который должен создаваться при нажатии кнопки и убиваться при отжатии кнопки.

[vers0]

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

Можно и без DLL это сделать:

Можно, но не суть...да и код не Delphi, а C у вас ))

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

Для этого нужно запускать выполнение Вашего кода не в функции обработки сообщений, а в новом потоке, который должен создаваться при нажатии кнопки и убиваться при отжатии кнопки.

С этого места поподробнее, пожалуйста.

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

По крайней мере не помешало бы услышать твою задачу. Зачем тебе понадобились хуки. Может тогда чего и посоветовать можно было бы.

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

[Stilet]

Ну не знаю... Хуки это вообще-то отладочный механизм. Так их использовать ИМХО бессмысленно. Ну или себе дороже.

[Krasiosoft]

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

код не Delphi, а C у вас ))

Извините, перепутал, но это же WinAPI, поэтому должно быть все понятно, а если нет, сообщите, и я перепишу на Delphi.

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

С этого места поподробнее, пожалуйста.

Общую информацию про потоки можно почитать тут.

Для работы с потоками в Delphi используется TThread.

И тут есть 2 варианта реализации:

1) Поток создается при нажатии кнопки и убиваться при отжатии кнопки.
2) Поток создается при запуске программы и ожидает события нажатия кнопки, выполняет Ваш код, а по событию отжатия кнопки опять переходит в ожидание.

Как по мне, то вариант 2 тут лучше подойдет. Хотя может и нет, если в потоке будет стоять sleep, и по отжатию кнопки он не сможет сразу перейти в ожидание.

[ResourceSpace]

А какая вообще цель-то? Что нужно сделать/добиться? Вы что-то с чужим приложением делаете что ли? Что?

[Krasiosoft]

Когда нажата кнопка мыши, нужно начать перемещать курсор в нужном направлении, а как только будет отжата кнопка мыши - прекратить перемещение.