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