WEB开发网
开发学院软件开发Delphi 屏蔽“任务管理器” 阅读

屏蔽“任务管理器”

 2006-02-04 13:43:51 来源:WEB开发网   
核心提示: //适用于Win NT/2K/XP,//参数Key为True,屏蔽“任务管理器”;为False,“任务管理器”可用//使用方法://DisableTaskmgr(True);PRocedure DisableTaskmgr(Key: Boolean);Var Reg:TRegistry;Begin Reg:=TR
 

//适用于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
   begin
    if Key then
     Reg.WriteString('DisableTaskMgr','1')
    else
     Reg.WriteInteger('DisableTaskMgr',0);
    Reg.CloseKey;
   end;
  except
   Reg.Free;
  end;
end;

Tags:屏蔽 任务 管理

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接