Программа учёта работы компьютера

uses TlHelp32;
 
procedure TForm1.btn1Click(Sender: TObject);
var sh:THandle; pe:TProcessEntry32; b:LongBool;
begin
lst1.Clear;
sh:=CreateToolhelp32Snapshot($00000002,2);
pe.dwSize:=SizeOf(pe);
b:=Process32First(sh,pe);
while Integer(b)<>0 do begin
lst1.Items.Add(pe.szExeFile);
b:=Process32Next(sh,pe);
end;
CloseHandle(sh);
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,TlHelp32, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    lst1: TListBox;
    tmr1: TTimer;
    procedure tmr1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  P_1,P_2:array[0..100] of string;
  i,i2:Integer; sch:Boolean;
implementation
 
{$R *.dfm}
 
procedure TForm1.tmr1Timer(Sender: TObject);
var sh:THandle; pe:TProcessEntry32; b:LongBool;
begin
for i:=0 to 100 do P_2[i]:=P_1[i];
for i:=0 to 100 do P_1[i]:='';
sh:=CreateToolhelp32Snapshot($00000002,2);
pe.dwSize:=SizeOf(pe);
b:=Process32First(sh,pe);  i:=0;
while Integer(b)<>0 do begin
p_1[i]:=pe.szExeFile; i:=i+1;
b:=Process32Next(sh,pe);
end;
CloseHandle(sh);
for i:=0 to 100 do if Length(P_2[0])>0 then begin
sch:=False;
for i2:=0 to 100 do if P_1[i]=P_2[i2]then sch:=True;
if sch=False then lst1.Items.Add(P_1[i]+' '+timetostr(time));
end;
lst1.ItemIndex:=lst1.Count-1;
end;
 
end.