function KeyboardProc(nCode: Integer; wParam: wParam; lParam: lParam ): LParam; stdcall;
var
H: HWND;
begin

H := FindWindow(nil, 'Time.Meter');
if (nCode=HC_ACTION) then
  begin
    if ((wParam=WM_RBUTTONUP)or(wParam=WM_LBUTTONUP)
      or (wParam=WM_MOUSEWHEEL)or(lParam=WM_KEYDOWN)or((HiWord(lParam) and KF_UP)=KF_UP))then
        begin
          SendMessage(H,WM_ACTIVITY,0,0);
        end;
  end;

result := CallNextHookEx(0, nCode, wParam, lParam);
end;