| Class TDiskInfo (unit Infodisk) |
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 );do nothing at all
| Functions |
procedure Update;
function DiskinDrive(ADrive: char): Boolean;
function DriveExists(ADrive: char): Boolean;
procedure DummySetDriveType(D:TDriveType);
procedure DummySetInt(i:integer);
procedure DummySetLong(i:longint);
procedure DummySetStr(s:string);
function FindDriveType(DriveNum: Integer): TDriveType;
procedure SetDrive(ADrive:char);| Properties |
property Drive : char
property DriveType : TDriveType
property FileSystem : string
property SerialNumber : string
property SpaceFree : longint
property SpaceTotal : longint
property VolumeLabel : string| Events |
| Variables |
FDrive : char;
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 : charPublished 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;