Class TDiskInfo (unit Infodisk)

Inherits from

TComponent

********************************************************************} {** InfoDisk - provides information about the physical screen. **} {** ---------------------------------------------------------------- **} {** Written By - Warren F. Young. **} {** ---------------------------------------------------------------- **} {** History - Version 1.00 (29/Oct/1996). Initial release. **} {** - Version 1.40 (08/Nov/1996). Removed Error Dialogs. **} {** ---------------------------------------------------------------- **} {** Copyright - ©copyright 1996 by Warren F. Young. **} {** Free to use and redistribute, but my name must **} {** appear somewhere in the source code. No warranty **} {** is given by the author, expressed or implied. **} {

Constructors


constructor Create(AOwner: TComponent );

Public declarations

do nothing at all



Functions

procedure Update;

TDiskInfo.

function DiskinDrive(ADrive: char): Boolean;

This function DiskInDrive was obtained from an Internet Newsgroup

function DriveExists(ADrive: char): Boolean;

TDiskInfo.

procedure DummySetDriveType(D:TDriveType);

do nothing at all

procedure DummySetInt(i:integer);

Protected declarations

procedure DummySetLong(i:longint);

do nothing at all

procedure DummySetStr(s:string);

do nothing at all

function FindDriveType(DriveNum: Integer): TDriveType;

check for single FAT

procedure SetDrive(ADrive:char);

TDiskInfo.

Properties

property Drive : char

Published declarations

property DriveType : TDriveType


property FileSystem : string


property SerialNumber : string


property SpaceFree : longint


property SpaceTotal : longint


property VolumeLabel : string


Events

Variables

FDrive : char;

Private declarations

FDriveType : TDriveType;


FFileSystem : string;


FFree : longint;


FLabel : string;


FSerial : string;


FSize : longint;



Constructors


constructor Create(AOwner: TComponent );

Public declarations

do nothing at all


Functions


procedure Update;

TDiskInfo.FindDriveType } {$ifdef win32


function DiskinDrive(ADrive: char): Boolean;

This function DiskInDrive was obtained from an Internet Newsgroup


function DriveExists(ADrive: char): Boolean;

TDiskInfo.DiskinDrive } {This function DiskInDrive was obtained from an Internet Newsgroup


procedure DummySetDriveType(D:TDriveType);

do nothing at all


procedure DummySetInt(i:integer);

Protected declarations


procedure DummySetLong(i:longint);

do nothing at all


procedure DummySetStr(s:string);

do nothing at all


function FindDriveType(DriveNum: Integer): TDriveType;

check for single FAT


procedure SetDrive(ADrive:char);

TDiskInfo.Create


Properties


property Drive : char

Published declarations


property DriveType : TDriveType


property FileSystem : string


property SerialNumber : string


property SpaceFree : longint


property SpaceTotal : longint


property VolumeLabel : string


Events


Variables


FDrive : char;

Private declarations


FDriveType : TDriveType;


FFileSystem : string;


FFree : longint;


FLabel : string;


FSerial : string;


FSize : longint;