uses
  Windows, Messages, SysUtils, Classes, Dialogs, menus, Forms;

  procedure SetHook;
  procedure UnSetHook;


implementation


var
  MyHook: HHOOK;

function CBTProc(Code: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;
begin
  if Code = 0 then
  begin
    Result:= CallNextHookEx(MyHook, Code, WParam, LParam);
    Exit;
  end;
  case Code of
    HCBT_CREATEWND: ShowMessage('1');
  end;
end;

procedure SetHook;
begin
  MyHook:= SetWindowsHookEx(WH_CBT, @CBTProc, HInstance, 0);
  if MyHook = 0 then
     ShowMessage('error');
end;

procedure UnSetHook;
begin
  UnHookWindowsHookEx(MyHook);
end;

end.

unit MU;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sButton, sMemo;

type
  TMF = class(TForm)
    Button_SetHook: TsButton;
    Memo: TsMemo;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button_SetHookClick(Sender: TObject);
  private
    procedure wmUser(var Msg: tMessage); message WM_USER + $125;
  public
    { Public declarations }
  end;

var
  MF: TMF;

implementation

{$R *.dfm}

var
  HOOK: THandle;
  SetHook: function(wnd: hwnd): boolean; stdcall;
  UnSetHook: procedure; stdcall;

procedure TMF.wmUser(var Msg: tMessage);
begin
  Memo.Lines.Add(Msg.WParam.ToString);
end;

procedure TMF.Button_SetHookClick(Sender: TObject);
begin
  SetHook(Self.Handle);
end;

procedure TMF.FormCreate(Sender: TObject);
begin
  @SetHook := nil;
  @UnSetHook := nil;
  HOOK := LoadLibrary('HOOK.dll');
  if HOOK <> 0 then
  begin
    @SetHook := GetProcAddress(HOOK, 'SetHook');
    if not Assigned(@SetHook) then
      raise Exception.Create('Функция с именем "SetHook" не найдена в библиотеке "HOOK"!');

    @UnSetHook := GetProcAddress(HOOK, 'UnSetHook');
    if not Assigned(@UnSetHook) then
      raise Exception.Create('Функция с именем "UnSetHook" не найдена в библиотеке "HOOK"!');
  end else
  ShowMessage('Не удалось подрузить DLL "HOOK"');
end;

procedure TMF.FormDestroy(Sender: TObject);
begin
  UnSetHook;
  FreeLibrary(HOOK);
end;

library HOOK;

uses
  System.SysUtils,
  System.Classes,
  Vcl.Dialogs,
  Winapi.Windows,
  Winapi.Messages;

{$R *.res}

const
  HookMsg = WM_USER + $125;

var
  MyHook: hwnd;
  AppWnd: hwnd;

//------------------------------------------------------------------------------
// CBTProc
//------------------------------------------------------------------------------
function CBTProc(Code: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;
begin
  if Code < 0 then
    Result := CallNextHookEx(MyHook, Code, wParam, lParam);
  case Code of
    HCBT_CREATEWND: PostMessage(AppWnd, HookMsg, wParam, 0);
  end;
  Result := CallNextHookEx(MyHook, Code, wParam, lParam);
end;

//------------------------------------------------------------------------------
// SetHook
//------------------------------------------------------------------------------
function SetHook(wnd: hwnd): boolean; export; stdcall;
begin
  AppWnd := wnd;
  MyHook:= SetWindowsHookEx(WH_CBT, @CBTProc, HInstance, 0);
  if MyHook = 0 then
    Result := false else
    Result := true;
end;

//------------------------------------------------------------------------------
// UnSetHook
//------------------------------------------------------------------------------
procedure UnSetHook; export; stdcall;
begin
  UnHookWindowsHookEx(MyHook);
end;

exports
  SetHook, UnSetHook;

begin

end.