AndreySt
Зарегистрирован: 16.03.2007 Сообщения: 6 Откуда: Россия, Курган
|
Добавлено: Ср Сен 19 2007 13:18 Заголовок сообщения: Проблема с хуком WH_DEBUG |
|
|
Здравствуйте!
Проблема в следующем:
Почемуто не на всех компах Срабатывает глобальный хук а точнее на одном(на остальных все замечательно работает). В чем может быть проблема?
Код: | library hook_dll1;
uses
Windows,
Messages;
var
SysHook : HHook = 0;
Wnd : Hwnd = 0;
function DebugProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var
str: string;
h,h1: integer;
begin
Wnd:=TMsg(Pointer(lParam)^).hwnd;
if TMsg(Pointer(lParam)^).message = BN_CLICKED then begin
h1 := FindWindow(nil,'Результат расчета площади');
if h1 <> 0 then
h := FindWindowEx(h1, 0, 'Button', '&Выход');
if h <> 0 then begin
if TMsg(Pointer(lParam)^).lParam = h then begin
SendMessage(FindWindow(nil,'Характеристики позиции'),wm_user + 5002, 0, 0);
SendMessage(FindWindow(nil,'Характеристики позиции'),wm_user + 5001, 0, 0);
end;
end;
end;
Result:= CallNextHookEx(SysHook, Code, wParam, lParam);
end; |
|
|