Unit CPUID

Classes

TCPUID -

Functions

GetCPUID - *****************************************************************************)
GetCPUVendor - *****************************************************************************)
IsCPUID_Available - * These functions cannot be members of the class

*****************************************************************************)
Register - *****************************************************************************)

Types

TCPUIDARRAY
TVendor

Constants

ID_BIT

Variables


Functions


function GetCPUID : TCPUIDARRAY;

*****************************************************************************)

function GetCPUVendor : TVendor;

*****************************************************************************)

function IsCPUID_Available : Boolean;

* These functions cannot be members of the class

*****************************************************************************)


procedure Register;

*****************************************************************************)

Types


TCPUIDARRAY=array[1..4] of Longint;
* EFLAGS ID bit
TVendor=array [0..11] of char;

Constants

ID_BIT = $200000

* ////////////////////////////////////////////////////////////////////// **) (**(c) NPS, 1997 - Idea, realisation, adoptation IsCPUID_Available) **) (** kvk@estpak.ee **) (**(c) Alex Abreu, 1997 - IsCPUID_Available source and idea **) (** simonet@bhnet.com.br **) (**Gordon Bamber,June1998 Converted into a class + VCL **) (** gbamber@mistral.co.uk **) (** ///////////////////////////////////////////////////////////////////////

Variables