您现在的位置:首页 >> 界面报表 >> 界面报表 >> 内容

Delphi中如何禁止某窗口被关闭的

时间:2011/9/3 15:24:53 点击:

  核心提示:步骤1、最基本的,关闭该窗口右上角的“×”键方法:form1的BorderIcons属性,bisystemmenu设为false步骤2:任务栏右键屏蔽“关闭”选项方法:varSysMenu: HMen...

步骤1、最基本的,关闭该窗口右上角的“×”键

方法:form1的BorderIcons属性,bisystemmenu设为false

步骤2:任务栏右键屏蔽“关闭”选项

方法:var   SysMenu: HMenu;
    SysMenu :=GetSystemMenu(Application.Handle,   False);
    DeleteMenu(SysMenu,   SC_CLOSE,   MF_BYCOMMAND);

步骤3:取消“alt+f4”热键

方法:FormKeyDown事件:
    if (Key=VK_F4) and (ssAlt in shift) then
    Key :=0;

步骤4:禁止呼出任务管理器

方法:uses Registry;
procedure DisableTaskmgr(Key: Boolean);
  Var  Reg:TReGIStry;
  Begin
  Reg:=TRegistry.Create;
  try
  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', True) then
  begin
  if Key then
  Reg.WriteString('DisableTaskMgr','1')
  else
  Reg.WriteInteger('DisableTaskMgr',0);
  Reg.CloseKey;
  end;
  except
  Reg.Free;
  end;
  end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2017 版权所有 All Rights Reserved.
  • 沪ICP备05001939号