Проблемма с глобальными переменными в процедуре хука
Turbid © (2006-04-04 00:15:00)
Объясните пожалуйста, почему ниже следующий вариант хука
работает, но если я объявлю переменную hTargetWnd как глобальную и
присвою ей хендл окна вне процедуры MouseProc (оптимизации ради),
то она всегда будет равна 0? Вроде понимаю, что это как-то связано
с тем, что хук ставится с указателем на эту процедуру и она
находится в другом аддресном пространстве, но до конца
осмыслить не получается. Должен же быть способ работы с глобальными
переменными внутри это процедуры.
library Hook;
uses
Windows, Messages, SysUtils;
var
WheelHook: HHOOK = 0;
function MouseProc(nCode: Integer; wParam: Longint; lParam:
Longint): Longint; stdcall;
var
aCopyData: TCopyDataStruct;
hTargetWnd: HWND;
begin
if nCode < 0 then
begin
Result := CallNextHookEx(MouseHook, nCode,
wParam, lParam);
Exit;
end;
if nCode = HC_ACTION then
if (TMsg(Pointer(lParam)^).message =
WM_MOUSEWHEEL) then
begin
...
...
with aCopyData do
begin
dwData := 0;
cbData := StrLen(PChar('Text
Data')) + 1;
lpData := PChar('Text Data');
end;
hTargetWnd := FindWindowEx(0, 0, nil,
PChar('MyProgram'));
SendMessage(hTargetWnd, WM_COPYDATA, 0,
Longint(@aCopyData));
end;
Result := CallNextHookEx(WheelHook, nCode, wParam,
lParam);
end;
procedure SetHook(Flag: Boolean) export; stdcall;
begin
if Flag = True then
WheelHook := SetWindowsHookEx(WH_GETMESSAGE,
@MouseProc, HInstance, 0)
else
begin
UnhookWindowsHookEx(WheelHook);
WheelHook := 0;
end;
end;
exports
SetHook;
begin
end.
Eraser (2006-04-04 00:56:00) [1]
> Turbid © (04.04.06 00:15)
> Вроде понимаю, что это как-то связано с тем, что хук
ставится
> с указателем на эту процедуру и она находится в другом
аддресном
> пространстве
в правильном направлении понимаешь.
Бороться с этим можно используя трюк с MMF.
Пример вот
http://kladovka.net.ru/index.cgi?pid=list&rid=195
Наверх 
ЧАТ |
Орешник |
|
