Убиваем процессы с помощью Delphi

AnGel

Команда форума

AnGel

Команда форума
Регистрация
27 Авг 2015
Сообщения
3.247
Симпатии
2.178
Время онлайн
13дн 15ч 11м 32с
Сегодня нужно было написать сие код для быстрого кила всякого говна автоматически

Код:
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

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


var Task: array[1..20] of string=(
'ibguard.exe',
'Fuel.Service.exe',
'GoogleCrashHandler.exe',
'GoogleCrashHandler64.exe',
'HTTPDebuggerSvc.exe',
'ibserver.exe',
'isesrv.exe',
'ksde.exe',
'ksdeui.exe',
'NvNetworkService.exe',
'nvSCPAPISvr.exe',
'NvStreamNetworkService.exe',
'NvStreamService.exe',
'NvStreamUserAgent.exe',
'nvvsvc.exe',
'PresentationFontCache.exe',
'RuntimeBroker.exe',
'SbieSvc.exe',
'TorchCrashHandler.exe',
'service_update.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 20 do
  KillProcess(Task[i]);
  Writeln('End');
  Readln;
end.
 

tarvartar

Новорег

tarvartar

Новорег
Регистрация
7 Мар 2017
Сообщения
13
Симпатии
4
Время онлайн
12м 43с
Привет, расскажи смысл работы. Если можно по подробнее
 
Данный пользователь недостаточно провел времени на форуме! Работа с ним может быть не безопасна!

Каратель12

Новорег
Регистрация
21 Окт 2015
Сообщения
297
Симпатии
229
Время онлайн
15ч 2м 18с
Привет, расскажи смысл работы. Если можно по подробнее
этот код убивает все эти процессы
Код:
'ibguard.exe',
'Fuel.Service.exe',
'GoogleCrashHandler.exe',
'GoogleCrashHandler64.exe',
'HTTPDebuggerSvc.exe',
'ibserver.exe',
'isesrv.exe',
'ksde.exe',
'ksdeui.exe',
'NvNetworkService.exe',
'nvSCPAPISvr.exe',
'NvStreamNetworkService.exe',
'NvStreamService.exe',
'NvStreamUserAgent.exe',
'nvvsvc.exe',
'PresentationFontCache.exe',
'RuntimeBroker.exe',
'SbieSvc.exe',
'TorchCrashHandler.exe',
'service_update.exe'
 
Сверху