library Hooks;
uses
Windows, Messages, SysUtils, Variants, Classes,
Dialogs, StdCtrls, ExtCtrls,ShellApi;
//{$R *.res}
var
SysHook: HHook;
wnd: hwnd;
function GlobalKeyBoardHook(code: integer; wParam: word; lParam: longword): longword; stdcall;
begin
if code<0 then begin
GlobalKeyBoardHook:=CallNextHookEx(SysHook,code,wParam,lparam);
Exit;
end;
Wnd:=Tmsg(Pointer(Lparam)^).hwnd;
if Tmsg(Pointer(Lparam)^).message=wm_lbuttondown then
begin
end;
CallNextHookEx(SysHook,code,wParam,lparam);
GlobalKeyBoardHook:=0;
Exit;
end;
procedure Hook(Flag:Boolean); stdcall;
Begin
IF Flag then
SysHook:=SetWindowsHookEx(WH_GetMessage,@GlobalKeyBoardHook,HInstance,0)
Else
Begin
UnhookWindowsHookEx(SysHook);
SysHook:=0;
End;
End;
exports Hook;
begin
end.
|
