Вверх ↑
Ответов: 1926
Рейтинг: 172
#1: 2020-04-02 18:32:10 ЛС | профиль | цитата
Add(MainForm,2953706,217,343)
{
Position=1
Point(onKeyDown)
link(onKeyDown,3830916:doCase,[])
}
Add(InlineCode,10339731,266,196)
{
@Hint=#24:Глобальный перехват мыши|
EventPoints=#11:onMouseMove|13:onLButtonDown|11:onLButtonUp|13:onRButtonDown|11:onRButtonUp|11:onWheelDown|9:onWheelUp|8:onScroll|14:onX1ButtonDown|11:onX1BttonUp|14:onX2ButtonDown|11:onX2BttonUp|
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|26: onMouseMove:THI_Event;|28: onLButtonDown:THI_Event;|26: onLButtonUp:THI_Event;|28: onRButtonDown:THI_Event;|26: onRButtonUp:THI_Event;|26: onWheelDown:THI_Event;|24: onWheelUp:THI_Event;|23: onScroll:THI_Event;|29: onX1ButtonDown:THI_Event;|27: onX1ButtonUp:THI_Event;|29: onX2ButtonDown:THI_Event;|27: onX2ButtonUp: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:|10: case w of|36: 512: _hi_OnEvent(hac.onMouseMove);|38: 513: _hi_OnEvent(hac.onLButtonDown);|36: 514: _hi_OnEvent(hac.onLButtonUp);|38: 516: _hi_OnEvent(hac.onRButtonDown);|36: 517: _hi_OnEvent(hac.onRButtonUp);|36: 519: _hi_OnEvent(hac.onWheelDown);|34: 520: _hi_OnEvent(hac.onWheelUp);|45: 522: _hi_OnEvent(hac.onScroll, int2str(d));|12: 523: begin|17: case d of|44: 1: _hi_OnEvent(hac.onX1ButtonDown);|44: 2: _hi_OnEvent(hac.onX2ButtonDown);|12: end;|11: end;|12: 524: begin|17: case d of|42: 1: _hi_OnEvent(hac.onX1ButtonUp);|42: 2: _hi_OnEvent(hac.onX2ButtonUp);|12: end;|11: end;|5: end;|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(onX1ButtonDown,6694040:doEvent1,[])
}
Add(PictureStream,12249112,448,252)
{
FileName=".\photo.jpg"
link(onLoad,8590706:doLoad,[])
}
Add(Image,8590706,511,252)
{
Left=20
Top=15
Width=350
Height=230
}
Add(Hub,6694040,343,252)
{
InCount=2
OutCount=3
link(onEvent1,12249112:doLoad,[])
link(onEvent3,12312137:doTimer,[(381,272)(381,300)])
}
Add(Timer,12312137,448,294)
{
Enable=1
AutoStop=1
link(onTimer,8590706:doClear,[(496,300)(496,265)])
}
Add(Case,3830916,266,364)
{
Value=Integer(13)
link(onTrue,6694040:doEvent2,[(320,377)(320,265)])
}
Вот такой простой код и рядом прикреплён файл изображения, на котором тестировалось.

Суть в том, что программа загружает картинку, отображает (и стирает через секунду - это нужно для эксперимента).
Загрузка происходит как при нажатии одной из боковых кнопок мыши, так и при нажатии на Enter. Так вот, Enter всегда работает отлично. А вот хук мыши слетает после нескольких нажатий на боковую кнопку, причём только если картинка достаточно больших размеров и JPG (как в примере). На маленьких картинках хук не слетает. Причём в XP всё работало отлично, в 7 - слетает.

Т.е. последовательность действий такая:
1. Положить картинку JPG во вложении рядом с программой (или попробовать свою JPG, размерами не меньше 3648*2736).
2. Запустить программу в Win7 (или, возможно, выше), понажимать на одну из боковых кнопок мыши - картинка будет загружаться и исчезать.
3. Через несколько нажатий хук перестаёт работать, тогда как по Enter работать продолжает.
С загрузкой картинок других форматов такой проблемы нет.

Проблема обнаружилась совершенно случайно, перерыл всё, что знал, но не могу её решить. В чём может быть дело?
карма: 9
0
файлы: 1photo.rar [1MB] [369]
Редактировалось 2 раз(а), последний 2020-04-02 18:38:42