Глобальный хук. Проблема с dll =\\

[BOBAH13]

p.s. даже не заметил сразу... Ну вы и игоист с чего вы взяли что ваш хук в системе может быть только один ?

procedure GetMouseClick(Code, wParam, lParam: integer) stdcall;
begin
if Code = HC_ACTION then
  if wParam = WM_LBUTTONUP then
    windows.Beep(900,100);
CallNextHookEx(HookH, Code, wParam, lParam);
end;

не в коем случае так нельзя делать... В вашем случае ваш хук должен вернуть результат выполнения

Result := CallNextHookEx(HookH, Code, wParam, lParam);

[Zeraim]

Ага, я потом наткнулся на строчку что я не 1 в системе сижу 8) Всё таки я эгоист 8)