Class TDLLS (unit Freer)

Inherits from

TForm

Constructors



Functions

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);


Properties

Events

Variables

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;



Constructors


Functions


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);


Properties


Events


Variables


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;