И опять. Hooks

library Project2;
uses
  System.SysUtils,
  System.Classes, Windows, Messages;
 
{$R *.res}
 
var
  MyHook: HHook;
 
function MyFunc(nCode:integer;wP:WPARAM;lP:LPARAM): LPARAM; stdcall;
var
  _msg:TCWPStruct;
begin
 
 if nCode = HC_ACTION then
 begin
  _msg:=PCWPStruct(lP)^;
   if _msg.message = WM_USER + 31845 then
  SendMessage(findwindow('TForm1','Form1'), WM_USER+100, _msg.wParam, _msg.LParam);
 end;
 
result := CallNextHookEx(MyHook, nCode, wP, lP);
 
end;
 
procedure StartHook; export; stdcall;
begin
  MyHook := SetWindowsHookEx(WH_CALLWNDPROC, @MyFunc, HInstance, 0);
end;
 
procedure StopHook; export; stdcall;
begin
  UnhookWindowsHookEx(MyHook);
end;
 
exports StartHook,StopHook;
 
begin
 
end.

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
 procedure MyCoolHandler(var Message: TMessage); message WM_USER+31845;
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.MyCoolHandler(var Message: TMessage);
 begin
   Memo1.Lines.Add(inttostr(Message.WParam)+'  -  '+ inttostr(Message.LParam));
   Memo1.Lines.SaveToFile('C:\1.txt');
 end;
 
end.