Inherits from
TForm
procedure About1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
if CheckDLL.
procedure CheckDLLClick(Sender: TObject);
Procedure CloseButtonClick(Sender: TObject);
Set information to screen
procedure Donotstayontop1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
Procedure FindDrives;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Check for Free Space
Function GetFileVersion (pThisModule: String): String;
Put Bottom of Page Line
procedure ListBox1Click(Sender: TObject);
procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Get Module Name
procedure ModulesTypesClick(Sender: TObject);
procedure PopupMenuPopup(Sender: TObject);
ItemIndex<>4
procedure Print1Click(Sender: TObject);
procedure RemoveClick(Sender: TObject);
procedure StayonTop1Click(Sender: TObject);
About1 : TMenuItem;
BitBtn1 : TBitBtn;
CheckDLL : TBitBtn;
CommentsLabel : TMemo;
CPUType : TEdit;
Donotstayontop1 : TMenuItem;
DriveGrid : TStringGrid;
DrivePanel : TPanel;
FileDescriptionlabel : TMemo;
FileHandlesLabel : TLabel;
FileVersionLabel : TMemo;
FreeFileHandles : TEdit;
GDILabel : TLabel;
hgResourceGauge1 : ThgResourceGauge;
hgResourceGauge2 : ThgResourceGauge;
hgResourceGauge3 : ThgResourceGauge;
InternalNameLabel : TMemo;
KeyboardType : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
ListBox1 : TListBox;
MainMenu1 : TMainMenu;
MathCo : TEdit;
ModulesTypes : TRadioGroup;
NumberOfKeys : TEdit;
Options1 : TMenuItem;
PagedMemory : TEdit;
Panel1 : TPanel;
PopupMenu : TPopupMenu;
Print1 : TMenuItem;
ProgramVendorlabel : TMemo;
Remove : TMenuItem;
StayonTop1 : TMenuItem;
SystemLabel : TLabel;
TabbedNotebook1 : TTabbedNotebook;
UserLabel : TLabel;
WinDir : TEdit;
WindowsMode : TEdit;
CloseButton : TBitBtn;
fStress : Boolean;
VersionPanel : Tpanel;
Public declarations
VersionStringGrid : TStringGrid;
procedure About1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
if CheckDLL.Visible=True} {Get current file handles
procedure CheckDLLClick(Sender: TObject);
Procedure CloseButtonClick(Sender: TObject);
Set information to screen
procedure Donotstayontop1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
Procedure FindDrives;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Check for Free Space
Function GetFileVersion (pThisModule: String): String;
Put Bottom of Page Line
procedure ListBox1Click(Sender: TObject);
procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Get Module Name
procedure ModulesTypesClick(Sender: TObject);
procedure PopupMenuPopup(Sender: TObject);
ItemIndex<>4
procedure Print1Click(Sender: TObject);
procedure RemoveClick(Sender: TObject);
procedure StayonTop1Click(Sender: TObject);
About1 : TMenuItem;
BitBtn1 : TBitBtn;
CheckDLL : TBitBtn;
CommentsLabel : TMemo;
CPUType : TEdit;
Donotstayontop1 : TMenuItem;
DriveGrid : TStringGrid;
DrivePanel : TPanel;
FileDescriptionlabel : TMemo;
FileHandlesLabel : TLabel;
FileVersionLabel : TMemo;
FreeFileHandles : TEdit;
GDILabel : TLabel;
hgResourceGauge1 : ThgResourceGauge;
hgResourceGauge2 : ThgResourceGauge;
hgResourceGauge3 : ThgResourceGauge;
InternalNameLabel : TMemo;
KeyboardType : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
ListBox1 : TListBox;
MainMenu1 : TMainMenu;
MathCo : TEdit;
ModulesTypes : TRadioGroup;
NumberOfKeys : TEdit;
Options1 : TMenuItem;
PagedMemory : TEdit;
Panel1 : TPanel;
PopupMenu : TPopupMenu;
Print1 : TMenuItem;
ProgramVendorlabel : TMemo;
Remove : TMenuItem;
StayonTop1 : TMenuItem;
SystemLabel : TLabel;
TabbedNotebook1 : TTabbedNotebook;
UserLabel : TLabel;
WinDir : TEdit;
WindowsMode : TEdit;
CloseButton : TBitBtn;
fStress : Boolean;
VersionPanel : Tpanel;
Public declarations
VersionStringGrid : TStringGrid;