Передвинуть мышку,кликнуть мышкой.

[Kukkk]

Здравствуйте, подскажите мне пожалуйста как можно узнать когда пользователь кликает на мышку? В любой программе.

[Xardas]

Смотря что Вам надо... Где кликает, куда кликает...
Если нужно что-то сделать, после того как нажата кнопка мыши, пишите обработчики на OnClick, OnMouseDown, OnMouseUp, если я правильно понял. Все зависит от того, что Вам конкретно надо.

[Kukkk]

Надо просто получить факт нажатия мышки где угодно. В любом приложении.

[B_N]

Функцией SetWindowsHookEx ставить хук WH_MOUSE или (под NT) WH_MOUSE_LL и проверять всё, что нужно.

[Alex.rus]

Для начала надо написать DLL-ку.

library My_dll;
uses windows, Messages;
var
syshook : hHook=0;
Wnd: Hwnd=0;
Function SysMsgProc(code:integer; wParam:word;
Iparam:longint): longint; stdcall;
Begin
callNextHookEx(SysHook, code, wParam, Iparam);//Передаём дальше
if code=hc_action then
begin
wnd:=Tmsg(Pointer(IParam)^).hwnd;
if TMsg(pointer(IParam)^).message=WM_L BUTTONDOWN then //Если ЛКМ
begin
//Делаем свои действия
end;
end;
end;

Procedure RunStopHook(state:boolean)export;st dcall;
begin
if state=true then
begin
//Если из проги пришло True то устанавливаем хук и обработку =>собщений передаём в проц. SysMsgProc (во втором параметре SetWindowsHookEx)
syshook:=SetWindowsHookEx(WH_GETMES SAGE,@SysMsgProc,HInstance,0);
end
else
begin
UnHookWindowsHookEx(SysHook);//Если False то снимаем хук
syshook:=0;
end;
end;
exports RunStopHook index 1;
begin
end.

Далее пишим прогу для DLL:


unit Unit1;
...................
var
Form1: TForm1;
procedure RunStopHook(State : Boolean) stdcall;
external 'hackpass.dll' index 1;
implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
RunStopHook(true);//"Посылаем" в DLL true
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RunStopHook(false);//"Посылаем" в DLL false
end;

Вот и все событие FormShow посылает в DLL true, DLL-ка устанавливает хук который отлавливает все сообщения в системе, после того как хук отловил сообщение оно передается в процедуру SysMsgProc та в свою очередь передает это сообщение далее, но если была нажата левая кнопка мыши (ЛКМ), то делает свои действия.

[Kukkk]

А попроще кода нету? Я просто не особо с дллками разбираюсь..

[mihali4]

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

А попроще кода нету? Я просто не особо с дллками разбираюсь..

Вот тут вы можете скачать исходники, демонстрирующие работу с "мышиными" хуками:
http://coolsong.narod.ru/hook.rar