屏蔽“任務管理器”

//适用于win nt/2k/xp,

//參數key為true,屏蔽“任務管理器”；為false,“任務管理器”可用

//使用方法：

//disabletaskmgr(true);

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

if key then

reg.writestring('disabletaskmgr','1')

else

reg.writeinteger('disabletaskmgr',0);

reg.closekey;

end;

except

reg.free;