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