[Mitiay]

неубиваемый процесс windows 7.Не могу найти исходники которые работают на win7.Подскажите как реализовать данный вопрос

Код:

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;
non_killable('Project1.exe', False); //Sin BSOD
non_killable('Project1.exe', True); //Con BSOD

MAD: Нужно писать CODE, а не QUOTE

Что нужно писать в uses?