Add(MainForm,2953706,105,105)
{
 Position=1
 Point(Handle)
 link(onCreate,15561254:doPopup,[])
}
Add(InlineCode,12360657,252,343)
{
 @Hint=#24:Глобальный перехват мыши|
 EventPoints=#2:ev|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,windows,messages;|0:|4:type|27: tagMSLLHOOKSTRUCT = record|12:  pt:TPoint;|18:  mouseData:dword;|14:  flags:dword;|13:  time:dword;|23:  dwExtraInfo:^Cardinal|5: end;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    ev:THI_Event;|0:|23:    constructor Create;|33:    destructor Destroy; override;|0:|5: end;|0:|14:var H:THandle;|20:    hac:THiAsmClass;|0:|14:implementation|0:|49:function hook(code,w,l:integer):Lresult; stdcall;|15:var str:string;|25:    ll:tagMSLLHOOKSTRUCT;|15:    d:LongWord;|5:begin|38: ll := tagMSLLHOOKSTRUCT(pointer(l)^);|0:|26: d := ll.mouseData shr 16;|46: if d and $8000 <> 0 then d := d or $FFFF0000;|0:|30: str := Int2Str(w)+Int2Str(d);|25: _hi_OnEvent(hac.ev,str);|38: result := CallNextHookEx(H,code,w,l);|4:end;|0:|31:constructor THiAsmClass.Create;|5:begin|18: inherited Create;|13: hac := self;|48: H := SetWindowsHookEx(14, @hook, hInstance, 0);|82: if H = 0 then messagebox(ReadHandle,'Ошибка перехвата мыши','ERROR',mb_iconhand);|4:end;|0:|31:destructor THiAsmClass.Destroy;|5:begin|24: UnhookWindowsHookEx(H);|19: inherited Destroy;|4:end;|0:|4:end.|
 link(ev,14423304:doAdd,[])
}
Add(Memo,14423304,308,343)
{
 Left=10
 Top=5
 Width=160
 Height=260
 AddType=1
 ScrollBars=2
}
Add(InfoTip,13344029,238,140)
{
 Info=#20:5120 - движение мыши|55:522ХХХ - прокрутка колеса, где ХХХ - значение прокрутки|18:5130 - нажатие ЛКМ|21:5140 - отпускание ЛКМ|18:5160 - нажатие ПКМ|21:5170 - отпускание ПКМ|21:5190 - нажатие колеса|24:5200 - отпускание колеса|33:5231 - нажатие 1-й боковой кнопки|36:5241 - отпускание 1-й боковой кнопки|33:5232 - нажатие 2-й боковой кнопки|35:5242 - отпускание 2-й боковй кнопки|
 Frame=2
 Transparent=1
 HAlign=0
 Width=316
 Height=172
 Margin=5
}
Add(WinTools,15561254,154,112)
{
 link(Handle,2953706:Handle,[(160,100)(136,100)(136,149)(111,149)])
}

#pas
function hook(code,w,l:integer):Lresult; stdcall;
var str:string;
    ll:tagMSLLHOOKSTRUCT;
    d: LongWord;
begin
 ll := tagMSLLHOOKSTRUCT(pointer(l)^);
 
 d := ll.mouseData shr 16;
 if d and $8000 <> 0 then d := d or $FFFF0000;
 
 str := Int2Str(w)+Int2Str(d);
 _hi_OnEvent(hac.ev,str);
 result := CallNextHookEx(H,code,w,l);
end;