Unit CPSysInf

Classes

TDiskInfo - TDiskInfo
TInformationEditor - TInformationProperty
TInformationProperty - TSysInfo
TMemoryInfo - TVolInfo TMemoryInfo
TProcInfo -
TSysInfo - TMemoryInfo TSysInfo
TVersionInfo - TProcInfo TVersionInfo
TVolInfo -

Functions

Register - Assumed

Edit

Types

TBoolMask
TFSFlag
TFSFlags
TInfoStr
TLanguage
TSpaceUnit
TUniqStr

Constants

DS_SIZES
INFO_STRS
PROCESSOR_ALPHA_21046
PROCESSOR_ARCHITECTURE_ALPHA
PROCESSOR_ARCHITECTURE_INTEL
PROCESSOR_ARCHITECTURE_MIPS
PROCESSOR_ARCHITECTURE_PPC
PROCESSOR_INTEL_386
PROCESSOR_INTEL_486
PROCESSOR_INTEL_PENTIUM
PROCESSOR_MIPS_R4000
UNIQ_STRS
VERSION_ID

Variables


Functions


procedure Register;

Assumed

Edit


Types


TBoolMask = array[0..31] of boolean;
TDiskInfo TProcInfo
TFSFlag  = (ffCasePreserved, ffCaseSensitive, ffUnicodeStored,
							ffFileCompression, ffCompressedVolume);
TVersionInfo TVolInfo
TFSFlags = set of TFSFlag

TInfoStr	= (isVer32s, isVer9532, isVerNT, isUnknown, isArchBlocked, isModel,
							 isStepPass, isNoRoot, isRemovable, isFixed, isRemote, isCDRom,
							 isRamDisk, isByte, isKB, isMB);

TLanguage  = (lgFrench, lgEnglish, lgItalian);

TSpaceUnit = (suByte, suKB, suMB);

TUniqStr  = (usPAIntel, usPAMips, usPAAlpha, usPAPPC, usI386, usI486, usI586,
							 usR4000, usA21046, usK386, usK486, usK586, usK4000, usK21064,
							 usK21066, usK21164, usK601, usK603, usK604, usK603p, usK604p,
							 usK620);

Constants

DS_SIZES = (1, 1024, 1048576)

TInformationEditor

INFO_STRS = ( ('Windows 3.1x avec Win32s','Windows 95 ou Win32', 'Windows NT','Introuvable','Introuvable car l''architecture est'+ ' inconnue','Modèle','Passe','Racine inexistante','Amovible/'+ 'Disquette','Fixe','Lecteur réseau','Lecteur CD-ROM','Disque '+ 'RAM','octet(s)','Ko','Mo' ), ('Windows 3.1x with Win32s','Windows 95 or Win32', 'Windows NT','Unknown','Unknown because architecture is missing', 'Model','Pass','Inexistant root','Removable/Floppy','Fixed', 'Remote drive','CD-ROM drive','RAM Disk','byte(s)','Kb','Mb' ), ('Windows 3.1x con Win32s','Windows 95 o Win32', 'Windows NT','Sconosciuto','Architettura sconosciuta', 'Modello','Num.','Root inesistente','Rimovibile/Floppy','Fisso', 'Drive remoto','Drive CD','Disco RAM','byte(s)','Kb','Mb' ) )

PROCESSOR_ALPHA_21046 = 21046

Assumed

PROCESSOR_ARCHITECTURE_ALPHA = 2

Assumed

PROCESSOR_ARCHITECTURE_INTEL = 0

PROCESSOR_ARCHITECTURE_MIPS = 1

PROCESSOR_ARCHITECTURE_PPC = 3

Assumed

PROCESSOR_INTEL_386 = 386

Assumed

PROCESSOR_INTEL_486 = 486

Assumed

PROCESSOR_INTEL_PENTIUM = 586

Assumed

PROCESSOR_MIPS_R4000 = 4000

UNIQ_STRS = ( 'Intel','MIPS','Alpha','Power PC', 'Intel 386','Intel 486','Intel Pentium','MIPS R4000','Alpha 21046', '386','486','Pentium','R4000','21064','21066','21164','601','603', '604','603+','604+','620' )

VERSION_ID = '1.4'

Renamed from SysInfo.pas 6/18/1998 Paul Rice to avoid conflicts with others' work. Name: SysInfo.Pas Project: TSysInfo component stuff Version: 1.4 Coder: Christophe Porteneuve aka TDD URL: http://www.epita.fr/~porten_c - E-mail: porten_c@epita.fr Started: 12/15/96 Effici.: 12/15/96 Latest: 03/19/98 ** USE THE APPROPRIATE DFM/PAS FILE FOR F_SysInf WITH IT! **

Variables