Напишіть скрипт

Для наших клієнтів потрібні послуги розробника. Вам потрібно написати скрипт для припинення роботи файлів в системі. Мета полягає у тому, щоб зупинити сторонні процеси (всі крім системних процесів). Автор сценарію AVZ, він використовується в ньому.
Приклад
Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар Вар
i: ціле;
Починати.
// Оновлення переліку процесів
RefreshProcessList;
AddToLog ('Кількість процесів = ' + IntToStr' (GetProcessCount))
// Цикл аналізу отриманого списку
Для i := 0 для GetProcessCount - 1 робіть початок
// Вихід процесу PID та його ім'я
ДодатиToLog(IntToStr(GetProcessPID(i)) + ' + GetProcessName(i)');
// Стопування процесу за умов
Якщо pos('trojan.exe', LowerCase(GetProcessName(i))) > 0 потім
Приват24 (GetProcessPID(i)
кінець;
Кінець.

Використовуються наступні приклади: AddToLog, GetProcessCount, GetProcessName, GetProcessPID, RefreshProcessList, TerminProcess

Цей приклад показує використання всіх функцій, описаних вище для роботи з процесами. По-перше, список процесів оновлено за допомогою функції RefreshProcessList. Потім список переглядається в петлі з виходом інформації в протоколі.
Крім того, обробляє, назва якого з’являється файл містить текст «trojan.exe», який припиняється за допомогою TerminProcess, до якого передається ідентифікатор процесу (PID).