如何屏蔽 系统的 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 楼sowine（恐拜狼）回复于 2002-11-26 15:37:52 得分 20

 
  你是指在win2k和winxp里面？  
  很多以前的方法在win2k和winxp里面都行不通哪。  
  upTop

2 楼l0f（凌风）回复于 2002-11-26 15:48:36 得分 0

哦！我是在WIN2K做的！那应该如何做呢？？Top

相关问题

• win2k
• winxp
• tmessage
• win
• msg
• procedure tform1
• mod
• 应该
• k和winxp
• begin

• 帖主：l0f
• sowine

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