Неубиваемый процесс на делфи

[teranser]

uses ... ... ... TlHelp32, ... ...


...


...





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); 





или





non_killable('Project1.exe', True);

 

[Каратель12]

пробелов больше чем кода

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;

 

[teranser]

Каратель12, убери пробелы и не ной

 

[Каратель12]

Каратель12, убери пробелы и не ной

ты глаза разуй у меня пробелов нет

 

[bless]

Ты проверил хоть? На десятке не работает

 

[alextox.p]

bless, Хуцкер от бога, на винде 10 с телеметрией сидит

 

[bless]

alextox.p, с чего бы это? только ты с телеметрией сидеть будешь, а я ее отключил.
Умник.. на вопрос так и не смог ответить. Потому что кинул копипаст голимый не заморачиваясь

 

[teranser]

bless, тыж не такой как я умник,вот и давай,сделай так что бы на 10-ке работало)

 

[bless]

teranser, цель была не в этом и вопрос был в другом. Почитай внимательней и если не можешь ответить (как подобает автору топика), то не лезь

 

[alextox.p]

LOL, Где я, что то скопипастил?)

Потому что кинул копипаст голимый не заморачиваясь

? xD

 

[bless]

alextox.p, упс) я не про тебя) изначально первый вопрос был адресован автору