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

 

步骤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;