Пример

var

 i : integer;

begin

 // Обновление списка процессов

 RefreshProcessList;

 AddToLog('Количество процессов = '+IntToStr(GetProcessCount));

 // Цикл анализа полученного списка

 for i := 0 to GetProcessCount - 1 do begin

  // Вывод PID процесса и его имя

  AddToLog(IntToStr(GetProcessPID(i)) + ' '+ GetProcessName(i));

  // Остановка процесса по условию

  if pos('trojan.exe', LowerCase(GetProcessName(i))) > 0 then 

   TerminateProcess(GetProcessPID(i));

 end;

end.

Данный пример демонстрирует использование всех описанных выше функций для работы с процессам. Сначала при помощи функции RefreshProcessList производится обновление списка процессов. Затем производится просмотр списка в цикле с выводом информации в протокол.

Кроме того, производится завершение процессов, имя исполняемого файла которых содержит текст "trojan.exe"