Class TDiskCaps (unit DiskCaps)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions

procedure ChangeDiskLabel(NewLabel:string);


destructor Destroy;


procedure ExamineDrive;


procedure DriveStateChecker(Sender: TObject);


procedure SetCheckPeriod(value: integer);


procedure SetCheckSNChange(value: boolean);


procedure SetDrive(Value: char);


Properties

property CheckPeriod : integer


property CheckSNChange : boolean


property ComponentLen : integer


property DiskLabel : string


property DiskSerial : string


property Drive : Char


property DriveFlags : DWord


property DriveType : integer


property FileSystem : string


Events

event OnDriveChanged : TNotifyEvent


event OnSNChanged : TNotifyEvent


Variables

FCheckPeriod : integer;


FCheckSNChange : boolean;


FComponentLen : integer;


FDiskLabel : string;


FDiskSerial : string;


FDrive : Char;


FDriveFlags : DWord;


FDriveType : integer;


FFileSystem : string;


FLastSerial : string;


FOnDriveChanged : TNotifyEvent;


FOnSNChanged : TNotifyEvent;


Timer : TTimer;



Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions


procedure ChangeDiskLabel(NewLabel:string);


destructor Destroy;


procedure ExamineDrive;


procedure DriveStateChecker(Sender: TObject);


procedure SetCheckPeriod(value: integer);


procedure SetCheckSNChange(value: boolean);


procedure SetDrive(Value: char);


Properties


property CheckPeriod : integer


property CheckSNChange : boolean


property ComponentLen : integer


property DiskLabel : string


property DiskSerial : string


property Drive : Char


property DriveFlags : DWord


property DriveType : integer


property FileSystem : string


Events


event OnDriveChanged : TNotifyEvent


event OnSNChanged : TNotifyEvent


Variables


FCheckPeriod : integer;


FCheckSNChange : boolean;


FComponentLen : integer;


FDiskLabel : string;


FDiskSerial : string;


FDrive : Char;


FDriveFlags : DWord;


FDriveType : integer;


FFileSystem : string;


FLastSerial : string;


FOnDriveChanged : TNotifyEvent;


FOnSNChanged : TNotifyEvent;


Timer : TTimer;