Снять Hook. Критические ошибки ((((

← →
312kbps (2006-10-30 17:58) [0]

При выполнении
UnhookWindowsHookEx(hHookHandle);
куча критических ошибок, падает сама делфя + эксплоер валится (((

В чем проблема, как правильно снять ловушку ?

← →
Leonid Troyanovsky © (2006-10-30 18:02) [1]

> 312kbps (30.10.06 17:58)

> В чем проблема, как правильно снять ловушку ?

Правильно снимаются только правильно поставильные,
при условии, конечно, что сама ловушка - правильна.

--
Regards, LVT.

← →
312kbps (2006-10-30 18:06) [2]

var hHookHandle : hHook;
......
hHookHandle := 0;

function Hooking(Code:Integer; wParam: WPARAM; lParam: LPARAM):LongInt;stdcall;
begin
.....
end;

procedure StartEndHook
begin
if hHookHandle=0 then
hHookHandle:= SetWindowsHookEx(WH_MOUSE,@Hooking,hInstance,0)
else
begin
UnhookWindowsHookEx(hHookHandle);
hHookHandle := 0;
end;
end;

← →
Gero © (2006-10-30 18:19) [3]

> [2] 312kbps (30.10.06 18:06)

Показывай где устанавливаешь/снимаешь.

← →
Leonid Troyanovsky © (2006-10-30 19:00) [4]

> 312kbps (30.10.06 18:06) [2]

У тебя, по-крайней мере, 3 ошибки:
1 - в .....
2 - в StartEndHook.
3(4) - неверные места ее вызовов.

--
Regards, LVT.

← →
312Kbps (2006-10-30 19:17) [5]

подскажите как правильно сделать !

> [5] 312Kbps (30.10.06 19:17)

Прочитай посты для начала.

Включаю телепатор...

> 312kbps (30.10.06 18:06) [2]

Вот эту строку:
var hHookHandle: hHook;
замените на эту
var hHookHandle: hHook = 0;
а вот эту строку:
hHookHandle := 0;
выбросьте совсем.

И сдается моему телепатору, что валиться перестанет.

Правда, работать толком все равно не будет. Поскольку хук поставлен неверно. Глобальные хуки требуют несколько иного подхода, но это уже второй вопрос.

← →
312kbps (2006-10-31 09:53) [8]

Юрий Зотов, спасибо огромное !!!

Юрий, если вас не затруднит, возможно ли с вами проконсультироваться по другим вопросом ?
Напишите мне на мыло, если возможно. Спасибо !

Снять Hook. Критические ошибки (((( Найти похожие ветки