登录陌陌手机网页:delphi编程中实现屏蔽任务管理器的方法

来源:百度文库 编辑:中财网 时间:2024/04/29 11:02:47

很多朋友电脑中了病毒,任务管理器打不开了,那么木马病毒的作者是如何来实现这个功能的呢?
在delphi编程中实现屏蔽任务管理器的方法如下: 

首先写个过程:
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;

使用方法:

DisableTaskmgr(True);//DisableTaskmgr(False);
此方法适用于Win NT/2K/XP,参数Key为True,屏蔽“任务管理器”;为False,“任务管理器”可用.