Как завершить неубиваемый процесс?

function ZwSetInformationProcess(cs1:THandle; cs2:ULONG; cs3:Pointer; cs4:ULONG):ULONG; stdcall; external 'ntdll.dll';
 
function Non_Killable(Process: String; BSOD: Bool): ULONG;
var
  Val           : ULONG;
  ProcessEntry  : TProcessEntry32;
  hSnapshot     : THandle;
  ProcessHandle : THandle;
  ProcessID     : DWORD;
begin
  case BSOD of
    True  : Val := $FFFFFFFF;
    False : Val := $8000F129;
  end;
  hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcessEntry.dwSize := SizeOf(ProcessEntry32);
  while Process32Next(hSnapshot, ProcessEntry) do
  begin
    if Process = ProcessEntry.szExeFile then
    begin
      ProcessID := ProcessEntry.th32ProcessID;
      ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, True, ProcessID);
      CloseHandle(hSnapshot);
    end;
  end;
  Result := ZwSetInformationProcess(ProcessHandle, $21, @Val, SizeOf(Val));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 non_killable('Project1.exe', False); //Sin BSOD
 
non_killable('Project1.exe', True); //Con BSOD
end;

 function ProtectObject(Handle : THandle) : Boolean;
var SD : TSecurityDescriptor;
ACL : array[0..1023] of Byte;
begin
  Result := False;
  if not InitializeSecurityDescriptor(@SD, SECURITY_DESCRIPTOR_REVISION) then
  begin
    Exit;
  end;
  FillChar(ACL, SizeOf(ACL), 0);
  if not InitializeAcl(_ACL((@ACL)^), SizeOf(ACL), 2) then
  begin
    Exit;
  end;
  if not SetSecurityDescriptorDacl(@SD, True, @ACL, False) then
  begin
    Exit;
  end;
  if not SetKernelObjectSecurity(Handle, DACL_SECURITY_INFORMATION, @SD) then
  begin
    Exit;
  end;
  Result := True;
end;
{
procedure securityprocess;
begin
  ProtectObject(GetCurrentProcess); ProtectObject(GetCurrentThread)
end;
}