Class TfrmInformation (unit SysAppInfo) |
Inherits from
TForm
-------------------------------------------------------------} { } { Programmer: Kevin S. Gallagher } { Version: 1.0.0 } { Description: } { This form shows various pieces of information for a PC. } { * System } { * Application } { * Network } { * Language } { * Directory } { * Disk } { * Proccesses } { * Window list } { Several freeware components are used to retrieve the above } { information (see credits below) } { } { Version: 1.0.0 } { Requires: } { TVersionInfoResource component by Brad Stower. This is a } { usually dropped onto a form and properties are set. } { I use it w/o dropping it, and create it when needed. } { Also, TProcList } { } { Credits (alpha order) } { Grahame S Marsh } { for lots of code used to retrieve various } { pieces of disk information. } { } { Peter.Plass } { Code to get loaded modules, and List of Windows } { } { Brad Stower } { A great deal of API stuff and components, and of course } { his own components. } { } { NOTE: Although the supplied components are listed as } { Freeware, there are some restricts. Make sure to read the } { headers in the units and all read-me files. } { } {-------------------------------------------------------------
procedure CheckBox3Click(Sender: TObject);
procedure cmdExitClick(Sender: TObject);
procedure cmdGetAllHiddenWinDozClick(Sender: TObject);
procedure cmdGetAllVisibleWinDozClick(Sender: TObject);
procedure cmdGetAllWinDozClick(Sender: TObject);
procedure cmdReportsClick(Sender: TObject);
Sends info from each TabSheet to a ASCII file.
procedure DrivesCBChange(Sender: TObject);
I think this is up to the developer how to code.
procedure FormCreate(Sender: TObject);
procedure ListBoxWinListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ListBoxWinListKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ListBoxWinListMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ListBoxWinListMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MemViewKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MemViewKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MemViewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ModViewKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ModViewKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ModViewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SysPageControlChange(Sender: TObject);
procedure FillDiskView;
procedure FillInImage (Sender: TObject);
function IsRegularKey(Shift: TShiftState):boolean;
procedure ListViewsChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
procedure PopulateAppSheet(Sender: TComponent);
AddFmt('Level', '%d', [wProcessorLevel]);
AddFmt('Revision', '%x', [wProcessorRevision]) KSG this does work
procedure PopulateDirSheet;
procedure PopulateDiskSheet;
procedure PopulateLangSheet;
procedure PopulateNetSheet;
More information could be added if so desired
procedure PopulateSysSheet;
procedure PopulateWinDozList;
procedure PreProcessListWin;
procedure RefreshWinList;
procedure RefreshWinListIcon;
procedure ShowMemoryInfo(ClearList: boolean);
Used to load ListView (left side) on "Processes" tabsheet
procedure UpDateMemoryViews(Sender: TListView);
Used to load ListView (right side) on "Processes" tabsheet.
procedure UpDateModViews(Sender: TListView);
AppTab : TTabSheet;
Bevel1 : TBevel;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
cmdExit : TButton;
cmdGetAllHiddenWinDoz : TButton;
cmdGetAllVisibleWinDoz : TButton;
cmdGetAllWinDoz : TButton;
cmdReports : TButton;
DirTab : TTabSheet;
DiskTab : TTabSheet;
DriveImageBitmap : TImage;
DrivesCB : TComboBox;
GroupBox1 : TGroupBox;
Image1 : TImage;
Image2 : TImage;
Image3 : TImage;
Label1 : TLabel;
LangTab : TTabSheet;
lblClassName : TLabel;
lblCntUsed1 : TLabel;
lblCountUsage1 : TLabel;
lblPath1 : TLabel;
lblPriority1 : TLabel;
lblPriority2 : TLabel;
lblWinListPath : TLabel;
ListBoxWinList : TListBox;
MemTab : TTabSheet;
MemView : TListView;
ModView : TListView;
NetTab : TTabSheet;
SysPageControl : TPageControl;
SysTab : TTabSheet;
txtModPath : TEdit;
txtPath1 : TEdit;
WinListTab : TTabSheet;
AppView : TListView;
DirView : TListView;
DiskView : TListView;
DriveImage : integer;
LangView : TListView;
NetView : TListView;
ProcLister : TProcList;
SysView : TListView;
WinList1 : TWinList;
Private declarations
procedure CheckBox3Click(Sender: TObject);
procedure cmdExitClick(Sender: TObject);
procedure cmdGetAllHiddenWinDozClick(Sender: TObject);
procedure cmdGetAllVisibleWinDozClick(Sender: TObject);
procedure cmdGetAllWinDozClick(Sender: TObject);
procedure cmdReportsClick(Sender: TObject);
Sends info from each TabSheet to a ASCII file. If the file
already exist it gets appended, else it is created
procedure DrivesCBChange(Sender: TObject);
I think this is up to the developer how to code.
There are many things to consider like will all
drives be ready, do we want, whats the best
way to format the report. Also do we get all
drives?
procedure FormCreate(Sender: TObject);
procedure ListBoxWinListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ListBoxWinListKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ListBoxWinListMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ListBoxWinListMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MemViewKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MemViewKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MemViewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ModViewKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ModViewKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ModViewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SysPageControlChange(Sender: TObject);
procedure FillDiskView;
procedure FillInImage (Sender: TObject);
function IsRegularKey(Shift: TShiftState):boolean;
procedure ListViewsChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
procedure PopulateAppSheet(Sender: TComponent);
AddFmt('Level', '%d', [wProcessorLevel]);
AddFmt('Revision', '%x', [wProcessorRevision]) KSG this does work
procedure PopulateDirSheet;
procedure PopulateDiskSheet;
procedure PopulateLangSheet;
procedure PopulateNetSheet;
More information could be added if so desired
procedure PopulateSysSheet;
procedure PopulateWinDozList;
procedure PreProcessListWin;
procedure RefreshWinList;
procedure RefreshWinListIcon;
procedure ShowMemoryInfo(ClearList: boolean);
Used to load ListView (left side) on "Processes" tabsheet
procedure UpDateMemoryViews(Sender: TListView);
Used to load ListView (right side) on "Processes" tabsheet.
This is tiggered by mouse/keyboard events for left-side ListView
procedure UpDateModViews(Sender: TListView);
AppTab : TTabSheet;
Bevel1 : TBevel;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
cmdExit : TButton;
cmdGetAllHiddenWinDoz : TButton;
cmdGetAllVisibleWinDoz : TButton;
cmdGetAllWinDoz : TButton;
cmdReports : TButton;
DirTab : TTabSheet;
DiskTab : TTabSheet;
DriveImageBitmap : TImage;
DrivesCB : TComboBox;
GroupBox1 : TGroupBox;
Image1 : TImage;
Image2 : TImage;
Image3 : TImage;
Label1 : TLabel;
LangTab : TTabSheet;
lblClassName : TLabel;
lblCntUsed1 : TLabel;
lblCountUsage1 : TLabel;
lblPath1 : TLabel;
lblPriority1 : TLabel;
lblPriority2 : TLabel;
lblWinListPath : TLabel;
ListBoxWinList : TListBox;
MemTab : TTabSheet;
MemView : TListView;
ModView : TListView;
NetTab : TTabSheet;
SysPageControl : TPageControl;
SysTab : TTabSheet;
txtModPath : TEdit;
txtPath1 : TEdit;
WinListTab : TTabSheet;
AppView : TListView;
DirView : TListView;
DiskView : TListView;
DriveImage : integer;
LangView : TListView;
NetView : TListView;
ProcLister : TProcList;
SysView : TListView;
WinList1 : TWinList;
Private declarations