怎么屏蔽鼠标在程序本身的消息

如何屏蔽鼠标在程序本身的消息
我写了个程序,是放在桌面看的,但是在桌面做别的事情时,经常点到程序
想屏蔽这程序的鼠标按下的消息
就算在程序里按下鼠标键,也就相当于是在桌面按下鼠标键(类似IE浏览器的锁定工具栏那样)

[解决办法]
以前用过，给你贴段代码
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
HookHandle: HHOOK = 0;

implementation

{$R *.dfm}

function Mouse(code: integer; wParam, lParam: Longint): longint; stdcall;
begin
Result := 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
HookHandle := SetWindowsHookEx(WH_MOUSE, Mouse, HInstance, 0);
end;

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

end.