[Mitiay]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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?