Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Delphi и WinAPI

Войти
Регистрация
Восстановить пароль
 
Woha28
0 / 0 / 0
Регистрация: 25.12.2013
Сообщений: 16
#1

Хук на клик мыши - Delphi WinAPI

26.11.2016, 03:44. Просмотров 500. Ответов 1
Метки нет (Все метки)

Помогите разобраться пожалуйста!!!
Нашел в инете код для dll, хука на отлов клика мыши, но не могу понять один нюанс:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
library Hook;
 
uses
  Windows, Messages;
 
var
SysHook : HHook = 0;
 
function MHook(code : integer; wParam : word; IParam : longint) : longint; export; stdcall;
  begin
    CallNextHookEx(SysHook, Code, wParam, IParam);
    if code>=0 then
      begin
        if wParam = WM_LBUTTONDOWN then
          begin
              // То действие которое я не знаю как сформулировать, чтобы потом в своей программе проверять какое либо событие если нажата левая кнопка мыши.
          end;  
      end;
        
  end;
 
procedure RunHook(State : Boolean) export; stdcall;
    begin
        if State=true then
          begin
            SysHook:= SetwindowsHookEx(WH_MOUSE, @MHook, HInstance, 0);
          end
        else
          begin
            UnhookWindowsHookEx(SysHook);
            SysHook:=0;
          end;
    end;
  exports RunHook index 1;
begin
end.
В то место где написано комментарием, я никак не пойму что нужно писать чтобы в самой программе понять был клик мышей или нет.
Если кто знает подскажите плз.
P.S. Кстати отлов клика мыши нужен для определения координат (х,у) и записи их в мемо.
За ранее благодарен!

Клики мыши будут происходить вне формы программы (это важно, так как на форме я в курсе как узнать координаты).
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2016, 03:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Хук на клик мыши (Delphi WinAPI):

Глобальный хук мыши - Delphi WinAPI
Подскажите, пожалуйста, почему при таком способе перехвата событий мыши, курсор(не самой игры, а системный) пропадает при запущенном 3D...

Сложный хук - Delphi WinAPI
Доброго времени уважаемые люди) На тему хуков много написано и спрошено, всё перерыл, клава и мышка легко перехватывается, но это всё не то...

Хук на DblClick - Delphi WinAPI
НЕ совсем в моей программе (я ее переделываю) используются всем известные функции MouseDown, MouseUp. в них пользователь ВЫБИРАЕТ объект,...

Программа не реагирует на хук - Delphi WinAPI
Доброго времени суток всем. Вот собственно код библиотеки с хуком: library Hook; uses SysUtils, Classes, windows, ...

Хук на буквенные кнопки клавиатуры - Delphi
Здравствуйте уважаемые программисты!Как-то раз пришла мне в голову мысль как можно сделать так,чтобы при нажатии на кнопку A/ф, комп не...

Глобальный Хук на клавиатуру и MessageDlg - Delphi WinAPI
Здравствуйте Уважаемые Знатоки! Недавно возникла задача отлавливать нажатые клавиши на клавиатуре во всей Винде, определить скорость, если...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
ILinker
9 / 9 / 1
Регистрация: 25.11.2016
Сообщений: 55
14.12.2016, 19:57 #2
Woha28

Если ещё актуально, можете попробовать воспользоваться WinAPI-функцией
OutputDebugString() сообщения можно будет увидеть через программу DebugView.
Удачи.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2016, 19:57
Привет! Вот еще темы с ответами:

Хук для полного отключения клавиатуры. - Delphi
У меня новый вопрос. Я отключаю через Delphi клаву, но при нажатии на 3 комбинации клавиш она работает. 1) ctrl+alt+delete 2) alt+tab...

KeyboardProc, глобальный хук клавиатуры, dll - Delphi WinAPI
Написал dll для установки хука на клаву, по книге "Нестандартные приемы программирования на Delphi (Ю. Ревич)" Программа должна...

Хук на копирование директории (ICopyHook). Изменение атрибута - Delphi WinAPI
Вешаю хук на копирование папки. Как в примере от Delphi 7. CopyCallback определяю примерно так: function TCopyHook.CopyCallBack(Wnd:...

Глобальный хук на клавиатуру и мышь без dll - Delphi
Все пытаюсь определить время простоя системы, ни один из вариантов не работате на 64 битной системе, НО удалось поставить хуки на мышь и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru