Delphi-Help

Главная Статьи Windows Как получить список процессов?

Как получить список процессов?

Оцените материал
(1 Голосовать)


Как получить список процессов?

uses
  ..., TlHelp32;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  hSnap: THandle;
  pe: TProcessEntry32;
begin
   ListBox1.Clear;
   pe.dwSize := SizeOf( pe );
   hSnap := CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0 );
   if Process32First( hSnap, pe ) then
   begin
      ListBox1.Items.Add( pe.szExeFile );
      while Process32Next( hSnap, pe ) do
         ListBox1.Items.Add( pe.szExeFile );
   end;
end;
Прочитано 5467 раз

Авторизация



Счетчики