| Class TCPUID (unit CPUID) |
TComponent
| Constructors |
Constructor Create(aOwner:TComponent);| Functions |
Procedure ShowAbout;*****************************************************************************)
Function GetIDInfo:Boolean;| Properties |
property About : string
property Family : LongInt
property ID1 : LongInt
property ID2 : LongInt
property ID3 : LongInt
property ID4 : LongInt
property IDAvailable : Boolean
property Model : LongInt
property ProcessorType : LongInt
property Stepping : LongInt
property Vendor : String| Events |
| Variables |
FAbout : string;
fDummyIDAvailable : Boolean;
fDummyLongInt : LongInt;
fDummyString : String;
fFamily : LongInt;
fId1 : LongInt;
fId2 : LongInt;
fId3 : LongInt;
fId4 : LongInt;
fIDAvailable : Boolean;
fModel : LongInt;
fProcessorType : LongInt;
fStepping : LongInt;
fsVendor : String;
fVendor : TVendor;| Constructors |
Constructor Create(aOwner:TComponent);*****************************************************************************)
| Functions |
Procedure ShowAbout;Public declarations
*****************************************************************************)
Function GetIDInfo:Boolean;*****************************************************************************)
| Properties |
property About : stringPublished declarations
property Family : LongInt
property ID1 : LongInt
property ID2 : LongInt
property ID3 : LongInt
property ID4 : LongInt
property IDAvailable : Boolean
property Model : LongInt
property ProcessorType : LongInt
property Stepping : LongInt
property Vendor : String| Events |
| Variables |
FAbout : string;Private declarations
fDummyIDAvailable : Boolean;
fDummyLongInt : LongInt;
fDummyString : String;
fFamily : LongInt;
fId1 : LongInt;
fId2 : LongInt;
fId3 : LongInt;
fId4 : LongInt;
fIDAvailable : Boolean;
fModel : LongInt;
fProcessorType : LongInt;
fStepping : LongInt;
fsVendor : String;
fVendor : TVendor;