Как получить список процессов?
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; |