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

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