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

Constructors


constructor Create(AOwner:TComponent);



Functions

procedure Refresh;


procedure NoModify(value:string);

save the result

Properties

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


Events

Variables

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;



Constructors


constructor Create(AOwner:TComponent);


Functions


procedure Refresh;


procedure NoModify(value:string);

save the result


Properties


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


Events


Variables


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;