Не работает код.

[Messer]

программа для блокировки/разблокировки клавиатуры и мыши. сначала запускалась, а потом перестала. Может это компилятор лагает? Посмотрите код плиз.


interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
m_OldMHook: HHook = 0;
k_OldKBHook: HHook = 0;
implementation
function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
if code < 0 then
Result := CallNextHookEx(k_oldKbHook, code, wparam, lparam)
else
Result := 1;
end;
function MOUSEHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
if code < 0 then
Result := CallNextHookEx(m_oldMHook, code, wparam, lparam)
else
Result := 1;
end;
procedure KeyBoardOff;
begin
k_OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
end;

procedure KeyBoardOn;
begin
if k_OldKbHook <> 0 then
begin
UnHookWindowshookEx(k_OldKbHook);
k_OldKbHook := 0;
end;
end;

procedure MouseOff;
begin
m_OldMHook := SetWindowsHookEx(WH_MOUSE, @MOUSEHook, HInstance,0);
end;

procedure MOUSEON;
begin
if m_OldMHook <> 0 then
begin
UnHookWindowshookEx(m_OldMHook);
m_OldMHook := 0;
end;
end;

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

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

procedure TForm1.Button3Click(Sender: TObject);
begin
MouseOff;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
MOUSEON;
end;

end.