如何屏蔽系统的 WIN（就是哪个有WINDOWS图标的毽子）

我是这么做的，可是什么效果都没有：我应该怎么办呀？？
procedure a(var msg:Tmessage); message wm_hotkey;//函数声明
........
procedure TForm1.FormCreate(Sender: TObject);
begin
id:=GlobalAddAtom('dir');
registerhotkey(handle,id,Mod_win,0);
end;
.........................
procedure tform1.a(var msg:tmessage);
begin
if msg.WParamLo=mod_win then
msg.Result:=0;
end;