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

[AnGel]

Сегодня нужно было написать сие код для быстрого кила всякого говна автоматически

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]

Привет, расскажи смысл работы. Если можно по подробнее

 

[Каратель12]

Привет, расскажи смысл работы. Если можно по подробнее

этот код убивает все эти процессы

'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'