OC - Лекция 8 / SysInfo / SYSMAIN

unit SysMain;

interface

uses
  SysUtils, Windows, Classes, Controls, Forms, Dialogs, Menus,
  ExtCtrls, TlHelp32, StdCtrls, Buttons, ComCtrls, ImgList, InfoInt;

type
  TMainForm = class(TForm)
    Panel1: TPanel;
    btnClose: TButton;
    lvProcList: TListView;
    Button1: TButton;
    procedure ExitItemClick(Sender: TObject);
    procedure FontItemClick(Sender: TObject);
    procedure RefreshItemClick(Sender: TObject);
    procedure Memory1Click(Sender: TObject);
    procedure System2Click(Sender: TObject);
    procedure Environment1Click(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure AboutItemClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FWinInfo: IWin32Info;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

uses  WNTInfo, InfoU, AboutU;

procedure TMainForm.ExitItemClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.FontItemClick(Sender: TObject);
begin
  //if FontDialog.Execute then Font := FontDialog.Font;
end;

procedure TMainForm.RefreshItemClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  lvProcList.Items.BeginUpdate;
 // try
   // FWinInfo.FillProcessInfoList(lvProcList, ilProcIcons);
  //finally
    Screen.Cursor := crDefault;
    lvProcList.Items.EndUpdate;
  //end;
end;

procedure TMainForm.Memory1Click(Sender: TObject);
begin
  ShowInformation(ivMemory);
end;

procedure TMainForm.System2Click(Sender: TObject);
begin
  ShowInformation(ivSystem);
end;

procedure TMainForm.Environment1Click(Sender: TObject);
begin
  ShowInformation(ivEnvironment);
end;

procedure TMainForm.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.AboutItemClick(Sender: TObject);
begin
  ShowAboutBox;
end;

procedure TMainForm.Button1Click(Sender: TObject);
var
  T: TProcessEntry32;
  FCurSnap:THandle;
  ListItem: TListItem;
begin
    T.dwSize := SizeOf(T);
    FCurSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    lvProcList.Items.Clear;
    with lvProcList do
    begin
    if Process32First(FCurSnap,T) then
    repeat
         ListItem := Items.Add;
         ListItem.Caption :=T.szExeFile;
         ListItem.SubItems.Add(IntToStr(T.cntThreads));
         ListItem.SubItems.Add(IntToStr(T.th32ProcessID));
         ListItem.SubItems.Add(IntToStr(T.th32ParentProcessID));
         ListItem.SubItems.Add(IntToStr(T.dwSize));
    until not Process32Next(FCurSnap, T);
    end;
end;

end.