delphi禁止某窗口被关闭的方法

关键词：Delphi,禁止窗口关闭，Alt+F4

delphi禁止某窗口被关闭的方法

逆流而上的鱼 发表于 2006-9-19 10:51:00

步骤1、最基本的，关闭该窗口右上角的“×”键

方法：form1的BorderIcons属性，bisystemmenu设为false

步骤2：任务栏右键屏蔽“关闭”选项

方法：var SysMenu: HMenu;

SysMenu :=GetSystemMenu(Application.Handle, False);
DeleteMenu(SysMenu, SC_CLOSE, MF_BYCOMMAND);

 

//(*本文出处：南山古桃(nsgtao)的百度空间：http://hi.baidu.com/nsgtao/ *)

步骤3：取消“alt＋f4”热键

方法：FormKeyDown事件：

if (Key=VK_F4) and (ssAlt in shift) then
begin
Key :=0;
end;
//此处有问题，需要焦点在Form上才行

 

步骤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
//(*本文出处：南山古桃(nsgtao)的百度空间：http://hi.baidu.com/nsgtao/ *)
Reg.WriteInteger('DisableTaskMgr',0);
Reg.CloseKey;
end;
except
Reg.Free;
end;
end;

古桃小注：禁止呼出任务管理器测了好几次，这个不太”灵验“，只成功了一次。对于“alt＋f4”那个需要焦点在Form上，需注意~

 

-------------------------------------------------------------------------------------------------