Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Мар

Отслеживание процесса

Posted by Chas under Пост-обзор

Значит есть такая вот функа:

function processlist:Tstringlist;
var
han : THandle;
ProcStruct : PROCESSENTRY32; // from “tlhelp32″ in uses clause
sID : string;
begin
  processlist:=Tstringlist.Create;
  // Get a snapshot of the system
  han := CreateToolhelp32Snapshot( TH32CS_SNAPALL, 0 );
  if han = 0 then exit;
  // Loop thru the processes until we find it or hit the end
  ProcStruct.dwSize := sizeof( PROCESSENTRY32 );
  if Process32First( han, ProcStruct ) then
  begin
    repeat
    sID := ExtractFileName( ProcStruct.szExeFile );
    processlist.Add(sid);
    until not Process32Next( han, ProcStruct );
  end;
  // clean-up
  CloseHandle( han );
end;

И допустим у нас есть на форме компонент Listbox
(Или любой другой, аналогичный компонент-список)

К примеру хочешь ты получать список процессов с интервалом,для этого в Timer вписываешь вот такую конструкцию:

listbox1.Items.Text:=processlist.Text;

Затем в button пишем такую конструкцию:

var i:integer;
begin
  for i:=0 to listobx1.items.count-1 do
  begin
  if listbox1.items.strings=’winamp.exe’ then showmessage(’Winamp, found!’);
end;

Присоединится к обсуждению