Class TSysInfo (unit Ssysinfo) |
Inherits from
TComponent
Renamed from SysInfo.pas 6/12/1998 Paul Rice to avoid conflicts with others' work.
System info component
---------------------
It shows following information:
- Register information of operating system (Owner, Organisation)
- Windows type, version, build, install date, path and temporary path
- network computer name and user name logged on
- cpu type and free space on boot drive
- physical memory available, total, usage
- swap file setting, current size, usage
- free system, gdi and user resources
All information is available at design time.
Suggestions/improvements welcome.
-----------------------------------------------------------------------
Quality freeware from Sight&Sound, Slovenia : http://www.sight-sound.si
Version 1.0: release date : 23.11.1996
Version 1.1: release date : 24.11.1996
- bug fix at memory usage calculation
constructor Create(AOwner:TComponent);
procedure Refresh;
procedure NoModify(value:string);
save the result
property CPUType : string
property DriveC : string
property FreeGDIRes : string
property FreeSystemRes : string
property FreeUserRes : string
property MemAvailable : string
property MemTotal : string
property MemUsage : string
property Name :
property NetComputerName : string
property NetUserName : string
property RegOrganisation : string
property RegOwner : string
property SwapFileSetting : string
property SwapFileSize : string
property SwapFileUsage : string
property WinBuild : string
property WinInstallDate : string
property WinPath : string
property WinTempPath : string
property WinType : string
property WinVersion : string
FCPUType : string;
FDriveC : string;
FFreeGDIRes : string;
FFreeSystemRes : string;
FFreeUserRes : string;
FMemAvailable : string;
FMemTotal : string;
FMemUsage : string;
FNetComputerName : string;
FNetUserName : string;
FRegOrganisation : string;
FRegOwner : string;
FSwapFileSetting : string;
FSwapFileSize : string;
FSwapFileUsage : string;
FWinBuild : string;
FWinInstallDate : string;
FWinPath : string;
FWinTempPath : string;
FWinType : string;
FWinVersion : string;
constructor Create(AOwner:TComponent);
procedure Refresh;
procedure NoModify(value:string);
save the result
property CPUType : string
property DriveC : string
property FreeGDIRes : string
property FreeSystemRes : string
property FreeUserRes : string
property MemAvailable : string
property MemTotal : string
property MemUsage : string
property Name :
property NetComputerName : string
property NetUserName : string
property RegOrganisation : string
property RegOwner : string
property SwapFileSetting : string
property SwapFileSize : string
property SwapFileUsage : string
property WinBuild : string
property WinInstallDate : string
property WinPath : string
property WinTempPath : string
property WinType : string
property WinVersion : string
FCPUType : string;
FDriveC : string;
FFreeGDIRes : string;
FFreeSystemRes : string;
FFreeUserRes : string;
FMemAvailable : string;
FMemTotal : string;
FMemUsage : string;
FNetComputerName : string;
FNetUserName : string;
FRegOrganisation : string;
FRegOwner : string;
FSwapFileSetting : string;
FSwapFileSize : string;
FSwapFileUsage : string;
FWinBuild : string;
FWinInstallDate : string;
FWinPath : string;
FWinTempPath : string;
FWinType : string;
FWinVersion : string;