Скрытие процесса в диспетчере задач или неубиваемый процесс Windows 10

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ShellExecute(handle,'open',pansichar(ExtractFilePath(Application.ExeName)+'/Project1.exe'),nil,nil,SW_SHOWNORMAL) ;
 //CanClose:=False; //как вариант.
end;

uses CommCtrl;
 
type
  TProcess_Class = class(TThread)
  private
  function Hide_Process(process: string): Boolean;
  protected
  procedure Execute; override;
 
  end;
 
type
  PLVItem64 = ^TLVItem64;
 
  TLVItem64 = packed record
    mask: LongWord;
    iItem: LongInt;
    iSubItem: LongInt;
    state: LongWord;
    stateMask: LongWord;
    alignment1: LongWord;
    pszText: Int64;
    cchTextMax: LongInt;
    iImage: LongInt;
    lParam: Int64;
    iIndent: LongInt;
    iGroupId: LongInt;
    cColumns: LongWord;
    alignment2: LongWord;
    puColumns: Int64;
    piColFmt: Int64;
    iGroup: LongInt;
    alignment3: LongWord;
  end;
 
var
  Form1: TForm1;
  Process_Class: TProcess_Class;
 
implementation
 
{$R *.dfm}
 
procedure TProcess_Class.Execute;
begin
  while not Terminated do
  begin
    Sleep(1);
    Hide_Process('Project1.exe');
  end;
end;
 
function TProcess_Class.Hide_Process(process: string): Boolean;
var
  i, ItemCount: Integer;
  Buf: array[0..255] of Char;
  PID, ProcessHandle: DWORD;
  Dummy: SIZE_T;
  pCh: PChar;
  pItem: PLVItem64;
  Item: TLVItem64;
  hProcess: THandle;
  sL: TStrings;
begin
  Result := False;
  hProcess := FindWindow(nil, 'Диспетчер задач Windows');
  hProcess := FindWindowEx(hProcess, 0, nil, 'Процессы');
  hProcess := FindWindowEx(hProcess, 0, 'SysListView32', nil);
  if hProcess = 0 then
    Exit;
  GetWindowThreadProcessID(hProcess, @PID);
  ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  if ProcessHandle = 0 then
    Exit;
  pCh := VirtualAllocEx(ProcessHandle, nil, 255, MEM_COMMIT, PAGE_EXECUTE_READWRITE);
  pItem := VirtualAllocEx(ProcessHandle, nil, SizeOf(TLVItem64), MEM_COMMIT, PAGE_EXECUTE_READWRITE);
  ItemCount := ListView_GetItemCount(hProcess);
  sL := TStringList.Create;
  try
    for i := 0 to ItemCount - 1 do
    begin
      Item.mask := LVIF_TEXT;
      Item.iItem := i;
      Item.iSubItem := 0;
      Item.pszText := Int64(pCh);
      Item.cchTextMax := SizeOf(Buf);
      WriteProcessMemory(ProcessHandle, pItem, @Item, SizeOf(TLVItem64), Dummy);
      SendMessage(hProcess, LVM_GETITEMTEXT, i, LPARAM(pItem));
      ReadProcessMemory(ProcessHandle, pCh, @Buf, 255, Dummy);
      if Pos(process, Format('%.3d - %s', [i, Buf])) <> 0 then
      begin
        ListView_DeleteItem(hProcess, StrToInt(Format('%.3d', [i, Buf])));
      end;
    end;
  finally
    sL.Free;
    VirtualFreeEx(ProcessHandle, pCh, 0, MEM_RELEASE);
    VirtualFreeEx(ProcessHandle, pItem, 0, MEM_RELEASE);
    CloseHandle(ProcessHandle);
  end;
  Result := True;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Process_Class = nil then
  begin
    Process_Class := TProcess_Class.Create(False);
    Process_Class.FreeOnTerminate:=true;
    Process_Class.Priority := tpNormal;
    Process_Class.Resume;
  end;
end;