drvchk.dcu

(c)1996 J.S. Farley

---------------------------------------------------------------------------------

Description:

DrvChk is a Delphi non-visual component to identify drive types and status.
DrvChk has three properties and one procedure:

---------------------------------------------------------------------------------

Properties:

Drive : Char
MediaType : Enumerated (hard, compact, floppy, remote, invalid)
ValidDrive : boolean (True, false)

procedure : execute 

'Drive' is a char value for the drive a or A = A:\, b or B = B:\ etc, adjust this 
parameter to test a drive.

'MediaType' returns the type of drive associated with the drive letter passed.

'ValidDrive' returns a boolean value if the drive is valid, (empty drives and 
unformatted floppys are both considered as false at present. Hopefully this will be 
changed in a later version. Mediatype returns the media format.

The procedure 'execute' begins the media test. 

Example Code:

begin
DrvChk1.Drive := 'd';
DrvChk1.execute;
if (DrvChk1.Mediatype = compact) and DrvChk1.ValidDrive = false) then
Panel1.Caption := 'Put a CD in the drive - Idiot!';
end;


---------------------------------------------------------------------------------

License:

Oh yes, I officially declare the following:

The VCL is supplied 'as is', I bear no responsibility for damage to systems, computer 
crashes, triggering of nuclear wars etc etc etc....


This Unit is Freeware


Being an Archive Conservator by profession, and knowing that conservation units run on
tight budgets, this software Vcl is offered for your free, unrestricted use but I would 
like you to do the two things;

1) Seek out your nearest archive conservation unit, (usually to be found in record offices,
   libraries or museums), and make a donation of anything greater than 1.00 of your 
   local currency.

2) Send a postcard with the name of the conservation unit to which you have made the 
   donation to 81 Cherry Tree Lane, Beverley, East Riding, HU17 0AZ, England.


This does three things:

1) Allows you to use the material in any programme, commercial or otherwise. 
   (if the programme is commercial however, you are also bound to ask your purchaser to 
    make a donation to their nearest conservation unit as well).

2) Builds up a nice post card collection for me

3) Makes me feel I am doing something for my profession.

Isn't that worth something? and its cheaper than your lunch!

---------------------------------------------------------------------------------

The Address for the postcards:

J.S. Farley
81 Cherry Tree Lane
Beverley
East Riding of Yorkshire
HU17 0AZ
England

---------------------------------------------------------------------------------

Thats it, Enjoy.

Salutations

Jon Farley



