核心提示：步骤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;
