如何屏蔽 系统的 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;

[happyzsl]

http://expert.csdn.net/Expert/topic/1209/1209807.xml?temp=.2132532

[Taken]

Win98下有效
var
n: Integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @n, 0);

end;