Установка Hook

← →
Lony © (2002-11-07 23:02) [0]

Прочитал несколько статей о ловушках. Ничего не пойму, неужели, чтобы установить Hook надо написать столько текста? Как, например, установить WM_CREATE?

← →
Alex-eraser (2002-11-08 02:10) [1]

Поясни вопрос. Зачем тебе что-то WM_Create"дь?

← →
Lony © (2002-11-08 02:38) [2]

Надо контролировать загрузку приложений. Хотелось бы попробовать таким способом. Да и вообще просто научиться использовать ловушки.

← →
Song © (2002-11-08 10:04) [3]

Вы так сможете контролировать только оконные проги.
Можно WH_GETMESSAGE+WM_CREATE
А можно просто WH_CBT

← →
Lony © (2002-11-08 11:53) [4]

Song, спасибо.
Вы уже отвечали недавно мне на этот вопрос, но я так и не разобрался, как ставить ловушки. С помощью SetWindowsHookEx?

← →
Song © (2002-11-08 21:11) [5]

Точно.

← →
to666a © (2002-11-08 21:33) [6]

Используй SetWindowsHookEx(wh_JournalPlayBack,@Play, hInstance,0), где Play - функция обратного вызова
(подробности в Help"е).
Что-то вроде:
function Play(Code: integer; wParam, lParam: Longint): Longint; stdcall;
begin
case Code of
HC_SKIP:
begin
inc(MsgCount);
if MsgCount >= MessageList.Count then StopPlayback
else MessageBuffer := TEventMsg(MessageList.Items[MsgCount]^);
Result := 0;
end;
HC_GETNEXT:
begin
PEventMsg(lParam)^ := MessageBuffer;
Result := 0 { process immediately }
end
else
Result := CallNextHookEx(HookHandle, Code, wParam, lParam);
end;
end;

А где это использовать? Записать в поток? А как получить дескриптор запускающегося приложения? И вообще как использовать SetWindowsHookEx?

А, всё, понял. Но всё равно, это всё записать в поток?
А что означает StdCall и символ "^"?.

В статьях есть статья "Хуки. Аспекты реализации". Там всё подробно объяснено и с примерами.

Установка Hook Найти похожие ветки