Диспетчер задач на Delphi7

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,TlHelp32;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  structure:TProcessEntry32;
  hSnap:THandle;
  ProcessesList:array of string;
  count:integer;
  i:integer;
  SelectedIndex:string;
 
 
 
implementation
 
{$R *.dfm}
 
{Функция для создания снимка процессов}
 function CreateSnapshot():THandle;
 begin
 result:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 end;
 
 {Процедура для получения всех проессов в указанный массив}
procedure GetAllProc();
begin
SetLength(ProcessesList,0);
count:=0;
hSnap:=CreateSnapshot;   //Делаем снимок
structure.dwSize:=SizeOf(TProcessEntry32);   //Устанавливаем размер структуры
Process32First(hSnap,structure);            //Идем к 1 процессу
count:=count+1;                              //Прибавляем к счетчику 1
{Тут мы подсчитаем количество процессов}
while Process32Next(hSnap,structure) do     //Пока Process32Next возвращает true
begin
count:=count+1;                             //Увеличиваем счетчик на 1
end;
{Закончили считать}
SetLength(ProcessesList,count);             //Устанавливаем размер массива в количество процессов
Process32First(hSnap,structure);             //Опять идем к 1 процессу дабы начать чтение сначала
ProcessesList[0]:=structure.szExeFile;
{Тут мы заполним массив названиями процессов}
for i:=Low(ProcessesList)+1 to High(ProcessesList) do //Цикл от начала и до конца массива
begin
ProcessesList[i]:=structure.szExeFile;           //Заносим имя в элемент массива
Process32Next(hSnap,structure);                  //Переходим к сслежующему
end;
{заполнили}
ShowMessage(IntToStr(count));
end;
 
{Процедура для экранизации массива}
procedure PrintProcesses(ListBox1:TListBox);
begin
ListBox1.Items.Clear;
for i:=Low(ProcessesList)+1 to High(ProcessesList) do
begin
ListBox1.Items.Add(ProcessesList[i]);
end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
GetAllProc();
PrintProcesses(ListBox1);
end;
 
 
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var prioritet:integer;
begin
Label1.Caption:='Базовый приоритет:';
SelectedIndex:=ListBox1.Items[ListBox1.ItemIndex];
ShowMessage(SelectedIndex);
Process32First(hSnap,structure);
for i:=Low(ProcessesList) to High(ProcessesList) do
begin
Process32Next(hSnap,structure);
if structure.szExeFile=SelectedIndex then Break;
end;
prioritet:=structure.pcPriClassBase;
if (prioritet=4) or (prioritet=5) or (prioritet=6) or (prioritet=7) then
Label1.Caption:=Label1.Caption+'Низкий'
else if (prioritet=8) or (prioritet=9) or (prioritet=10) or (prioritet=11) or (prioritet=12) then
Label1.Caption:=Label1.Caption+'Средний'
else if (prioritet=13) or (prioritet=14) or (prioritet=15) or (prioritet=16) or (prioritet=17) then
Label1.Caption:=Label1.Caption+'Высокий'
else if prioritet=0 then
Label1.Caption:=Label1.Caption+'Не могу получить приоритет'
else
Label1.Caption:=Label1.Caption+'Реального времени'
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
end.

unit Unit1;
 
interface
 
uses        tlhelp32,     
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var p:PROCESSENTRY32;ct:cardinal;th:Cardinal; mp:array[0..255] of char;
 mm:pchar;ts:TSearchRec; sst:STARTUPINFO;  ss,s:string;
 
begin
ct:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
 Process32First(ct,p);
 while Process32Next(ct,p) do begin
  begin
  if ExtractFileName(Application.ExeName)=string(p.szExeFile) then
   form1.Tag:=form1.Tag+1;
    OpenProcessToken(p.th32ProcessID,TOKEN_READ,th);
   ListBox1.Items.Append(string(p.szExeFile));
   ListBox2.Items.Append(inttostr(p.th32ProcessID));
  end;
 end;  {}
 
 end;
end.