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