Class TSysInfo (unit SystemInfo) |
Inherits from
TComponent
constructor Create(AOwner : TComponent);
- Public declarations
--------------------- TSysInfo ---------------------
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;
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
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;
constructor Create(AOwner : TComponent);
Public declarations
--------------------- TSysInfo ---------------------
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;
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
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;