Получение списка запущенных процессов

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TLHelp32, Grids, StdCtrls, Buttons;
 
type
  TForm4 = class(TForm)
    StringGridProcess: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
  procId,Ex : Cardinal;
  Handlep : Thandle;
  i: integer;
implementation
 
{$R *.dfm}
 
procedure TForm4.Button1Click(Sender: TObject);
begin
     Procid:=StrToInt(Edit1.Text);   // Окно служит для ручного ввода идентификатора завершаемого процесса
     HANDLEp:= OpenProcess( PROCESS_TERMINATE, false, procid);
     TerminateProcess( HANDLEp,Ex);
end;
 
 
procedure TForm4.Button2Click(Sender: TObject);
begin
  //StringGridProcess.Invalidate;
  StringGridProcess.Refresh;
end;
 
procedure TForm4.FormCreate(Sender: TObject);
type
  TStringGrigOption = (GoRowSizing, goColSizing, goColMoving);
  TStringGrigOptions = set of TStringGrigOption;
var
 SH: Cardinal;
 Num: Integer;
 PPE : TProcessEntry32;
 PTE : TThreadEntry32;
 Full_Path, Exe_name: array [0..255]of string;
 ProcessID : array [0..255] of integer;
 lpdwProcessId: pointer;
 PRocessPotoka : array [0..255] of integer;
 H: HWND;
 
begin
 
  //получение информации о первом процессе
  Num := 0;
  SH := CreateToolHelp32SnapShot(Th32cs_SnapAll, 0);
  PPE.dwSize := sizeof(ProcessEntry32);
  Process32First(SH, PPE);
  Full_Path[Num] := PPE.szExeFile;
  Exe_Name[Num] := ExtractFileName(Full_Path[Num]);
  ProcessID[Num] := PPE.Th32ProcessID;
  PRocessPotoka[Num] := GetWindowThreadProcessId(H, lpdwProcessId);
  Num := Num + 1;
 
  //получение информации о других процессах
  while Process32Next(SH, PPE) do
  begin
    Full_Path[Num] := PPE.szExeFile;
    Exe_Name[Num] := ExtractFileName(Full_Path[Num]);
    ProcessID[Num]:= PPE.Th32ProcessID;
    Num := Num + 1;
  end;
 
  StringGridProcess.Cells[0, 0] := '№';
  StringGridProcess.Cells[1, 0] := 'Имя процесса';
  StringGridProcess.Cells[2, 0] := 'Идентификатор';
  StringGridProcess.Cells[3, 0] := 'Дескриптор';
  StringGridProcess.Cells[4, 0] := 'идентификатор потока'; 
 
  i := 1;
  while Num <> i - 1 do
  begin
  StringGridProcess.RowCount := i + 1;
  StringGridProcess.Cells[0, i] := IntToStr(i);
  StringGridProcess.Cells[1, i] := Exe_Name[i - 1];
  StringGridProcess.Cells[2, i] := IntToStr(ProcessID[i - 1]);
  StringGridProcess.Cells[3, i] := IntToStr(OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID[i - 1]));
  StringGridProcess.Cells[4, i] := IntToStr(PRocessPotoka[i-1]);
  Inc(i);
  end;
 
 
 end;
end.