Class TForm1 (unit Testform)

Inherits from

TForm

for to test the drives.pas Unit Author: William R. Florac Company: FITCO, Verona, WI (wee little company from my house) Copyright 1996, FITCO. All rights reserved. Revision History 2/28/96 1.0 released

Constructors



Functions

procedure Button10Click(Sender: TObject);

get drive type

procedure Button2Click(Sender: TObject);

is drive ready

procedure Button4Click(Sender: TObject);

get drive label

procedure Button5Click(Sender: TObject);

set drive label

procedure Button6Click(Sender: TObject);

is it a CDROM?

procedure Button7Click(Sender: TObject);

get default drive number

procedure Button8Click(Sender: TObject);

get drive serial number

procedure Button9Click(Sender: TObject);

set drive serial number

procedure CloseBtnClick(Sender: TObject);

bye bye

procedure DriveComboBox1Enter(Sender: TObject);

stop dos critical error

procedure DriveComboBox1Exit(Sender: TObject);

a good programmer would retore the original!

procedure FormCreate(Sender: TObject);

some defaults

procedure TestInt1Click(Sender: TObject);

test interupt 21/440d/60

procedure TestInt2Click(Sender: TObject);

test interupt 21/69/0

procedure ClearExtErrors;

clear error list

procedure ShowExtErrors;

Private declarations

show last DOS error


Properties

Events

Variables

Button10 : TButton;


Button2 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Button7 : TButton;


Button8 : TButton;


Button9 : TButton;


CloseBtn : TButton;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


DriveToTest : TComboBox;


errAction : TLabel;


errClass : TLabel;


errCode : TLabel;


errLocus : TLabel;


errVolume : TLabel;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label18 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label20 : TLabel;


Label21 : TLabel;


Label22 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


StringGrid1 : TStringGrid;


TestInt1 : TButton;


TestInt2 : TButton;


VolLabel : TEdit;


VolSN : TEdit;



Constructors


Functions


procedure Button10Click(Sender: TObject);

get drive type


procedure Button2Click(Sender: TObject);

is drive ready


procedure Button4Click(Sender: TObject);

get drive label


procedure Button5Click(Sender: TObject);

set drive label


procedure Button6Click(Sender: TObject);

is it a CDROM?


procedure Button7Click(Sender: TObject);

get default drive number


procedure Button8Click(Sender: TObject);

get drive serial number


procedure Button9Click(Sender: TObject);

set drive serial number


procedure CloseBtnClick(Sender: TObject);

bye bye


procedure DriveComboBox1Enter(Sender: TObject);

stop dos critical error


procedure DriveComboBox1Exit(Sender: TObject);

a good programmer would retore the original!


procedure FormCreate(Sender: TObject);

some defaults


procedure TestInt1Click(Sender: TObject);

test interupt 21/440d/60


procedure TestInt2Click(Sender: TObject);

test interupt 21/69/0


procedure ClearExtErrors;

clear error list


procedure ShowExtErrors;

Private declarations

show last DOS error


Properties


Events


Variables


Button10 : TButton;


Button2 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Button7 : TButton;


Button8 : TButton;


Button9 : TButton;


CloseBtn : TButton;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


DriveToTest : TComboBox;


errAction : TLabel;


errClass : TLabel;


errCode : TLabel;


errLocus : TLabel;


errVolume : TLabel;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label18 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label20 : TLabel;


Label21 : TLabel;


Label22 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


StringGrid1 : TStringGrid;


TestInt1 : TButton;


TestInt2 : TButton;


VolLabel : TEdit;


VolSN : TEdit;