Перехват всех сообщений программы

← →
Dextor © (2005-05-23 17:27) [0]

Добрый день !!! Подскажите пожалуйста, как можно перехватить все сообщения программы на протежение всей ее работы ??? Благодарен зареннее, даже если не подскажите )) !!!

← →
Eraser © (2005-05-23 17:46) [1]

Dextor © (23.05.05 17:27)

1. Application.OnMessage
2. Подмена процедуры обработки сообщений конкретного окна.

Необходимо применять эти два способа одновременно.

← →
Marser © (2005-05-23 17:57) [2]

> Необходимо применять эти два способа одновременно.

Вовсе нет. Первый способ самодостаточен.

← →
Kerk © (2005-05-23 18:05) [3]

Marser © (23.05.05 17:57) [2]

OnMessage only receives messages that are posted to the message queue, not those sent directly with the Windows API SendMessage function.

← →
Eraser © (2005-05-23 18:05) [4]

Marser © (23.05.05 17:57) [2]

Note: OnMessage only receives messages that are posted to the message queue, not those sent directly with the Windows API SendMessage function.

← →
Eraser © (2005-05-23 18:05) [5]

Kerk © (23.05.05 18:05) [3]

))

← →
GuAV © (2005-05-23 18:08) [6]

хук

← →
Eraser © (2005-05-23 18:15) [7]

GuAV © (23.05.05 18:08) [6]

Тогда опять таки два хука ставить прийдётся...

← →
Игорь Шевченко © (2005-05-23 18:16) [8]

Заменой WindowProc нужного(ых) TControl

← →
GuAV © (2005-05-23 18:31) [9]

Eraser © (23.05.05 18:15) [7]

Не два, а столько, сколько потоков.

← →
Eraser © (2005-05-23 18:36) [10]

Уболтали. Но тогда первый пункт не нужен :-)

Внутренние сообщения VCL хук не поймает, или автору нужны только те что генерятся самой системой?

Я делал так:

unit HSControlMessagePumpHook; interface uses HSObjectList, Controls, Messages; type THSControlMessagePumpHook = class private FControl: TControl; FOldWndProc: TWndMethod; procedure HookWndProc (var Message: TMessage); public constructor Create (AControl: TControl); end; THSControlMessagePumpHookList = class(THSObjectList) end; const EnableMsgHook = true; implementation uses Windows, SysUtils, MessageLogger; { THSControlMessagePumpHook } constructor THSControlMessagePumpHook.Create(AControl: TControl); begin FControl := AControl; FOldWndProc := FControl.WindowProc; FControl.WindowProc := HookWndProc; end; procedure THSControlMessagePumpHook.HookWndProc(var Message: TMessage); begin if Assigned(FControl) and (FControl is TWinControl) and TWinControl(FControl).HandleAllocated then LogMessage(Format("%s.WndProc", [FControl.Name]), TWinControl(FControl).Handle, Message.Msg, Message.WParam, Message.LParam) else LogMessage(Format("%s.WndProc", [FControl.Name]), 0, Message.Msg, Message.WParam, Message.LParam); FOldWndProc(Message); LogMsgReturn(Format("%s.WndProc", [FControl.Name]), Message); end; end.

В той форме(ах), поведение которых при различных сообщениях мне нужно было изучить, вставлялся следующий код:

type
TForm1 = class(TForm)
....
private
FHooks: THSControlMessagePumpHookList;
protected
procedure Loaded; override;
...
end;

........

procedure TForm1.Loaded;
var
I: Integer;
begin
inherited;
if EnableMsgHook then begin
FHooks := THSControlMessagePumpHookList.Create;
FHooks.Add(THSControlMessagePumpHook.Create(Self));
for I:=0 to Pred(ComponentCount) do
if Components[I] is TControl then
FHooks.Add(THSControlMessagePumpHook.Create(TControl(Components[I])));
end;
end;

Перехват всех сообщений программы Найти похожие ветки