Перехват нажатия ЛКМ [Delphi/Hooks]

[anGeee]

По-тихоньку пытаюсь изучать хуки. Взял из инета пример для разбора, однако, он не работает. По идее, по нажатию ЛКМ должен проигрываться системный звук... Возможно, я как-то неправильно работаю работаю с библиотекой, так как в примере был только код библиотеки..
Вот исходник библиотеки MouseBeep.dll

library mousebeep;
    
uses
  Windows, Messages,Sysutils, Dialogs;

var
  ourHook: HHook;

function HookProc(Code: integer; wParam: Word;   
  lParam: Longint): Longint;
begin
  if (wParam = WM_LBUTTONDOWN) then
    MessageBeep(0);
  result := CallNextHookEx(ourHook, Code, wParam, lParam);
end;

procedure SetHook; stdcall; export;
begin  
  if ourHook = 0 then
    exit;
  ourHook := SetWindowsHookEx(WH_MOUSE, @HookProc, HInstance, 0);
end;   
    
procedure UnHookHook; stdcall; export;
begin
  if ourHook <> 0 then
    begin
      UnHookWindowsHookEx(ourHook);
      OurHook := 0;
    end;
end;

exports
  SetHook, UnHookHook;
    
begin
  OurHook := 0;
end.

Исходник самой программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure SetHook; stdcall; external 'mousebeep.dll';
procedure UnHookHook; stdcall; external 'mousebeep.dll';

procedure TForm1.FormCreate(Sender: TObject);
begin
  LoadLibrary(PChar('mousebeep.dll'));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetHook;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  UnHookHook;
end;

end.

[raxp]

исправьте тут:

library mousebeep;
...


function HookProc(Code: integer; wParam: Word;   
  lParam: Longint): longint; stdcall;
begin
  if (wParam = WM_LBUTTONDOWN) then
    windows.Beep(1000,100);
  result := CallNextHookEx(ourHook, Code, wParam, lParam);
end;

procedure SetHook; stdcall;
begin  
  // if ourHook = 0 then exit; // смысла нет, он и так вначале ноль
  ourHook := SetWindowsHookEx(WH_MOUSE, @HookProc, HInstance, 0);
end; exports SetHook;
...

и тут:

unit Unit1;
...
var 
procedure SetHook; stdcall; external 'mousebeep.dll';
procedure UnHookHook; stdcall; external 'mousebeep.dll';

implementation
{$R *.dfm}


//не нужно, так как вы явно уже вызвали подключение
procedure TForm1.FormCreate(Sender: TObject);
begin
  //LoadLibrary(PChar('mousebeep.dll')); // сие нужно, если вы динамически хотите, а так у вас в var-ах уже это сделано
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetHook
end;

и все будет работать