Unit SysAppInfo

Classes

TfrmInformation - -------------------------------------------------------------} { } { Programmer: Kevin S.

Functions

ErrMsg - Public declarations
PadRight -
StrCrLf -

Types

Constants

C_UNKNOWN
NO_VERSIONINFO

Variables

cPath
CpuId
DoFocusList
frmInformation
ico
RefreshMem
RefreshMod
VendorId


Functions


procedure ErrMsg(const S: String);

Public declarations

function PadRight(const S: String; Len: Integer): String;


function StrCrLf(const cMsg:String):String;


Types


Constants

C_UNKNOWN = ''

NO_VERSIONINFO = 'No version information found'


Variables

cPath : String

CpuId : byte = 0

DoFocusList : boolean

frmInformation : TfrmInformation

ico : TIcon

RefreshMem : boolean

RefreshMod : boolean

VendorId : string [12] = ''