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

  • На форуме работает ручное одобрение пользователей. Это значит, что, если Ваша причина регистрации не соответствует тематике форума, а также Вы используете временную почту, Ваша учётная запись будет отклонена без возможности повторной регистрации. В дальнейшем - пожизненная блокировка обоих аккаунтов за создание мультиаккаунта.
  • Мы обновили Tor зеркало до v3!
    Для входа используйте следующий url: darkv3nw2...bzad.onion/
  • Мы вновь вернули telegram чат форуму, вступайте, общайтесь, задавайте любые вопросы как администрации, так и пользователям!
    Ссылка: https://t.me/chat_dark_time

AnGel

Администратор
Команда форума

AnGel

Администратор
Команда форума
27 Авг 2015
3,410
2,024
Сегодня нужно было написать сие код для быстрого кила всякого говна автоматически

Код:
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.
 
21 Окт 2015
299
102
Привет, расскажи смысл работы. Если можно по подробнее
этот код убивает все эти процессы
Код:
'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'
 

О нас

  • Наше сообщество существует уже много лет и гордится тем, что предлагает непредвзятое, критическое обсуждение различных тем среди людей разных слоев общества. Мы работаем каждый день, чтобы убедиться, что наше сообщество является одним из лучших.

    Dark-Time 2015 - 2022

    При поддержке: XenForo.Info

Быстрая навигация

Меню пользователя