Чуть грубовато, но.. это глобальный хук на мышку и клаву.
По событию, делаешь WindowFromPoint и юзаешь..
| Код |
function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
msg: PEVENTMSG;
begin
if Code >= 0 then begin
result := 0;
msg := Pointer(LParam);
with Form1 do
case msg.message of
WM_MOUSEMOVE: ;// Двигаем мышой msg.ParamL - это Х msg.ParamH - Это У
WM_LBUTTONDOWN: ;// Нажали ЛКМ
WM_LBUTTONUP: ; // Отпустили ЛКМ
WM_RBUTTONDOWN: ; // Нажали ПКМ
WM_RBUTTONUP: ; // Отпустили ПКМ
WM_KEYUP: ;// Отпустили кнопочку
WM_KEYDOWN: ;// Нажали кнопочку
end;
end else
result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
if HookHandle = 0 then
MessageDlg(IntToStr(GetLastError), mtInformation, [mbOK], 0);
end;
|
С локальным хуком, чтобы его привязать на какое то не свое приложение, тебе прийдется делать DLL. Весь вышеперечисленный код переносишь в DLL и все...
| Код |
library MegaHook;
uses
Windows, Messages;
var
SysHook: HHook = 0;
function SysMsgProc(Code: Integer; WParam: LongInt; LParam: LongInt): LongInt; stdcall;
begin
if Code > 0 then
begin
...
end
else
Result := CallNextHookEx(SysHook, Code, WParam, LParam);
end;
procedure Hook(Flag: Boolean); export; stdcall;
begin
if Flag then
SysHook := SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, 0)
else
begin
UnhookWindowsHookEx(SysHook);
SysHook:=0;
end;
end;
exports Hook;
begin
end.
|
И программа которая юзает dll-ку с хуком
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
Hook: MyProcType;
begin
HDLL := LoadLibrary(PChar('MegaHook.dll'));
if HDLL > HINSTANCE_ERROR then
begin
@Hook := GetProcAddress(HDLL, 'Hook');
Hook(True);
end
else
MessageDlg('плохо с DLL.', mtError, [mbIgnore], 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Hook: MyProcType;
begin
if HDLL > HINSTANCE_ERROR then
begin
@Hook := GetProcAddress(HDLL, 'Hook');
Hook(False);
end;
End;
|
|
или ссылку где про это почитать. 