Class TCPUID (unit CPUID) |
Inherits from
TComponent
Constructor Create(aOwner:TComponent);
- *****************************************************************************)
Procedure ShowAbout;
Public declarations *****************************************************************************)
Function GetIDInfo:Boolean;
*****************************************************************************)
property About : string
Published 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
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;
Constructor Create(aOwner:TComponent);
*****************************************************************************)
Procedure ShowAbout;
Public declarations
*****************************************************************************)
Function GetIDInfo:Boolean;
*****************************************************************************)
property About : string
Published 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
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;