Программа для завершення процесив

[oleh1818]

Моя программа для завершення процесив
Скачать:

Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!

 

[AnGel]

Зачем цикл и задержка?

 

[dhusss]

Я этой прогой пользуюсь уже лет 5, у меня только не каких задержек нет. Это прога старее наверное у меня все работает как часы убивает процессы на ура. Могу скинуть пишите в ЛС. Или создам тему.
--- Пост обновлен ---
У меня прога называется не как у автора темы а PROCESS KILLER

 

[loloLOSH]

Я этой прогой пользуюсь уже лет 5, у меня только не каких задержек нет. Э

"Цикл и задержка" про код имелось ввиду

 

[Spam_Yakovich]

Чем диспетчер задач неугодил?Я на крайняк юзал Process Explorer, там вдобавок много мониторов системы.:Thumbs Up@2x:

 

[AnGel]

Если кто-то решится написать подобное, то ниже пример, писал для себя в одно время.

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Winapi.TlHelp32,
  Winapi.Windows;


var Task: array[1..11] of string=(
'atieclxx.exe',
'BBSvc.EXE',
'mDNSResponder.exe',
'dragon_updater.exe',
'cavwp.exe',
'cmdagent.exe',
'fraps64.dat',
'fraps.exe',
'HTTPDebuggerSvc.exe',
'SkyDrive.exe',
'sqlwriter.exe');
    i: Integer;

function KillProcess(ExeName: string): LongBool;
var
 B: BOOL;
 ProcList: THandle;
 PE: TProcessEntry32;
begin
 Result := False;
 ProcList := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 PE.dwSize := SizeOf(PE);
 B := Process32First(ProcList, PE);
 while B do begin
   if (UpperCase(PE.szExeFile) = UpperCase(ExtractFileName(ExeName))) then
     Result := TerminateProcess(OpenProcess($0001, False, PE.th32ProcessID), 0);
    B := Process32Next(ProcList, PE);
 end;
 CloseHandle(ProcList);
end;


begin
  Writeln('Begin');
  for I := 1 to 11 do
  KillProcess(Task[i]);
  Writeln('End');
  Readln;
end.

 

[oleh1818]

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

Я этой прогой пользуюсь уже лет 5, у меня только не каких задержек нет. Это прога старее наверное у меня все работает как часы убивает процессы на ура. Могу скинуть пишите в ЛС. Или создам тему.
--- Пост обновлен ---
У меня прога называется не как у автора темы а PROCESS KILLER

Не может такого быть, я ее написал 2 года назад

 

[AnGel]

Задержка сделана для того чтобы на процессор большой нагрузки

Так в проце имеются семафоры, подобного просто не будет. К тому же, мало у кого будет более > 400 активных задач.

 

[oleh1818]

Если на 1 секунду 1000 раз идет запрос на завершение процесса я думаю нагрузка немножко будет