Class TSysInfo (unit SystemInfo)

Inherits from

TComponent

Constructors


constructor Create(AOwner : TComponent);

Public declarations

--------------------- TSysInfo ---------------------



Functions

procedure GetDiskDrives(MyDriveList : TDriveList);

Get information such as Volume Name and File System Type for a drive.

procedure GetComputerName;

Only present in Windows 95

function GetCPUSpeed : Comp;

Get the name of the currently logged in user

procedure GetDiskSpaceFree(Drive : PChar);

Case

procedure GetFreeSpaceOnDrive(intDrive : integer; var lngFreeSpace : longint; var lngTotalBytes : longint);

Date time in TZInfo contains zero in the year field.

procedure GetRegisteredInfo;


procedure GetTimeZoneInfo;

if

procedure GetUserName;

Get the computer's network name

procedure GetVideoInfo;

Case

function GetVolInfo(ADriveRec : TDrive_Rec) : TDrive_Rec;

Returns space free plus info about cluster sizes, etc.

procedure InitInfo;

Protected declarations

Info about drive C only


procedure LoadDiskFreeEx;


Properties

property ACLineStatus : string


property BatteryFullTime : longint


property BatteryLife : longint


property BatteryLifePercent : longint


property BatteryStatus : string


property Bias : longint


property BuildNo : longint


property BytesPerSector : longint


property CDNumber : string


property ComputerName : string


property CPUSpeed : Comp


property DaylightBias : longint


property DaylightDate : TDateTime


property DaylightSaving : boolean


property DaylightTimeZone : string


property DiskFree : longint


property FreeClusters : longint


property HostName : string


property MemAvailPhysical : longint


property MemAvailTotal : longint


property MemVirtualAvail : longint


property MemVirtualTotal : longint


property NumberOfColours : extended


property NumberOfProcessors : longint


property OperatingSystem : string


property OSVerMajor : longint


property OSVerMinor : longint


property PageFileAvail : longint


property PageFileTotal : longint


property ProcessorArchitecture : string


property ProcessorType : string

Published declarations

property RegisteredCompany : string


property RegisteredUser : string


property SectorsPerCluster : longint


property ServicePack : string


property StandardBias : longint


property StandardDate : TDateTime


property TimeZone : string


property TotalClusters : longint


property UserName : string


property VideoResolution : string


property WindowsDir : string


property WinSysDir : string


Events

Variables

fACLineStatus : string;


fAvailPageFile : longint;


fAvailVirtual : longint;


fBatteryFlag : string;


fBatteryFullTime : longint;


fBatteryLifePercent : integer;


fBatteryLifeTime : longint;


FBias : longint;


fBuildNo : longint;


fBytesPerSector : longint;


fCDNo : string;


fComputerName : string;


fCPUSpeed : Comp;


FDaylightBias : longint;


FDaylightDate : TDateTime;


fDaylightSaving : boolean;


FDaylightTimeZone : string;


fDiskFree : longint;


fFreeClusters : longint;


fHostName : string;


fMemAvailablePhys : longint;


fMemLoad : longint;


fMemTotalPhys : longint;


fNoColors : extended;


fNoProcessors : integer;


fOSMajor : longint;


fOSMinor : longint;


fOSName : String;


fProcessorArchitecture : String;


fProcessorType : String;

Private declarations

fRegisteredCompany : string;


fRegisteredUser : string;


fSectorsPerCluster : longint;


fServicePack : string;


FStandardBias : longint;


FStandardDate : TDateTime;


FTimeZone : string;


fTotalClusters : longint;


fTotalPageFile : longint;

Percent of memory in use

fTotalVirtual : longint;


fUserName : string;


fVideoRes : string;


fWinDir : string;


fWinSysDir : string;



Constructors


constructor Create(AOwner : TComponent);

Public declarations

--------------------- TSysInfo ---------------------


Functions


procedure GetDiskDrives(MyDriveList : TDriveList);

Get information such as Volume Name and File System Type for a drive. The ADriveRec should be initialised with the letter of the drive you want info about.


procedure GetComputerName;

Only present in Windows 95


function GetCPUSpeed : Comp;

Get the name of the currently logged in user


procedure GetDiskSpaceFree(Drive : PChar);

Case


procedure GetFreeSpaceOnDrive(intDrive : integer; var lngFreeSpace : longint; var lngTotalBytes : longint);

Date time in TZInfo contains zero in the year field. This causes an Invalid Call to Time Encode in Delphi, so set the year to the current year


procedure GetRegisteredInfo;


procedure GetTimeZoneInfo;

if


procedure GetUserName;

Get the computer's network name


procedure GetVideoInfo;

Case


function GetVolInfo(ADriveRec : TDrive_Rec) : TDrive_Rec;

Returns space free plus info about cluster sizes, etc. Sets properties for drive C:


procedure InitInfo;

Protected declarations

Info about drive C only


procedure LoadDiskFreeEx;


Properties


property ACLineStatus : string


property BatteryFullTime : longint


property BatteryLife : longint


property BatteryLifePercent : longint


property BatteryStatus : string


property Bias : longint


property BuildNo : longint


property BytesPerSector : longint


property CDNumber : string


property ComputerName : string


property CPUSpeed : Comp


property DaylightBias : longint


property DaylightDate : TDateTime


property DaylightSaving : boolean


property DaylightTimeZone : string


property DiskFree : longint


property FreeClusters : longint


property HostName : string


property MemAvailPhysical : longint


property MemAvailTotal : longint


property MemVirtualAvail : longint


property MemVirtualTotal : longint


property NumberOfColours : extended


property NumberOfProcessors : longint


property OperatingSystem : string


property OSVerMajor : longint


property OSVerMinor : longint


property PageFileAvail : longint


property PageFileTotal : longint


property ProcessorArchitecture : string


property ProcessorType : string

Published declarations


property RegisteredCompany : string


property RegisteredUser : string


property SectorsPerCluster : longint


property ServicePack : string


property StandardBias : longint


property StandardDate : TDateTime


property TimeZone : string


property TotalClusters : longint


property UserName : string


property VideoResolution : string


property WindowsDir : string


property WinSysDir : string


Events


Variables


fACLineStatus : string;


fAvailPageFile : longint;


fAvailVirtual : longint;


fBatteryFlag : string;


fBatteryFullTime : longint;


fBatteryLifePercent : integer;


fBatteryLifeTime : longint;


FBias : longint;


fBuildNo : longint;


fBytesPerSector : longint;


fCDNo : string;


fComputerName : string;


fCPUSpeed : Comp;


FDaylightBias : longint;


FDaylightDate : TDateTime;


fDaylightSaving : boolean;


FDaylightTimeZone : string;


fDiskFree : longint;


fFreeClusters : longint;


fHostName : string;


fMemAvailablePhys : longint;


fMemLoad : longint;


fMemTotalPhys : longint;


fNoColors : extended;


fNoProcessors : integer;


fOSMajor : longint;


fOSMinor : longint;


fOSName : String;


fProcessorArchitecture : String;


fProcessorType : String;

Private declarations


fRegisteredCompany : string;


fRegisteredUser : string;


fSectorsPerCluster : longint;


fServicePack : string;


FStandardBias : longint;


FStandardDate : TDateTime;


FTimeZone : string;


fTotalClusters : longint;


fTotalPageFile : longint;

Percent of memory in use


fTotalVirtual : longint;


fUserName : string;


fVideoRes : string;


fWinDir : string;


fWinSysDir : string;