delphi - 从任务管理器隐藏和显示流程

Question

德尔福2010

我有一个列表框，其中填充了所有进程ID的列表。

function EnumProcess(hHwnd: HWND;lParam : integer): boolean; stdcall;
var
  pPid : DWORD;
  title, className : string;
begin
  if(hHwnd=NULL) then
  begin
   result := false;
  end
  else
  begin
   GetWindowThreadProcessId(hHwnd,pPid);
   SetLength(className, 255);
   SetLength(className, GetClassName(hHwnd, PChar(className), Length(className)));
   SetLength(title, 255);
   SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
   //form1.ListBox1.Items.Add('Class Name = ' + className + '; Title = ' + title + '; HWND = ' + IntToStr(hHwnd) + '; Pid = ' + IntToStr(pPid));
   form1.ListBox1.Items.Add(IntToStr(pPid));
   result := true;
  end;
end;

有隐藏和显示PID的方法吗？我需要一个隐藏的函数和一个可以显示的函数，或者可以同时处理这两个函数的函数

function HidePID(Value: DWord): Boolean;

function ShowPID(Value: DWord): Boolean;

Answer 1

没有支持从系统任务管理器隐藏进程的方法。