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. **} {
constructor Create(AOwner: TComponent );
- Public declarations
do nothing at all
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.
property Drive : char
Published declarations
property DriveType : TDriveType
property FileSystem : string
property SerialNumber : string
property SpaceFree : longint
property SpaceTotal : longint
property VolumeLabel : string
FDrive : char;
Private declarations
FDriveType : TDriveType;
FFileSystem : string;
FFree : longint;
FLabel : string;
FSerial : string;
FSize : longint;
constructor Create(AOwner: TComponent );
Public declarations
do nothing at all
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
property Drive : char
Published declarations
property DriveType : TDriveType
property FileSystem : string
property SerialNumber : string
property SpaceFree : longint
property SpaceTotal : longint
property VolumeLabel : string
FDrive : char;
Private declarations
FDriveType : TDriveType;
FFileSystem : string;
FFree : longint;
FLabel : string;
FSerial : string;
FSize : longint;