lpView: TDLLData;
          CopyMemory(@lpView^.mouse, PMOUSEHOOKSTRUCT(lParam), sizeof(TMOUSEHOOKSTRUCT));
          SendMessage(HWND_BROADCAST, lpView^.WM_MOUSEHOOKMSG, wParam, lParam);

function InstallHooks(Hwnd: HWND): Boolean; stdcall; external 'hooks.dll' name 'InstallHooks';
function UninstallHooks: Boolean; stdcall; external 'hooks.dll' name 'UninstallHooks';

var WM_MOUSEHOOKMSG:cardinal;

InstallHooks(Application.Handle);

procedure TFormMain.GetHWNDBroadcast(var Msg: TMsg);
begin
if Msg.message = WM_MOUSEHOOKMSG then
 begin
    Memo1.Lines.Add(IntToStr(Msg.hwnd));
    (Self.Refresh;)
 end;
 (inherited;)
end;

procedure TformMain.FormCreate(Sender: TObject);
begin
  WM_MOUSEHOOKMSG := RegisterWindowMessage('WM_MOUSEHOOKMSG');
end;