如何屏蔽 系统的 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;  
   
  问题点数：20、回复次数：2Top

1 楼happyzsl（学习）回复于 2002-11-28 09:13:42 得分 10

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

2 楼Taken（铁拳）回复于 2003-01-27 16:55:46 得分 10

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

相关问题

• tmessage
• win
• procedure tform1
• msg
• expert
• mod
• begin
• var

• 帖主：l0f
• happyzsl
• Taken

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载