getCPUid(很全的)

unit CpuId;
interface
uses Windows, Mmsystem, Sysutils, Math, Dialogs;
type
    TCpuRec=record
       Name:string[128];
       Vendor:string[12];
       Frequency:word;
       Family:integer;
       Model:integer;
       Stepping:integer;
       L1DCache:word;
       L1ICache:word;
       L2Cache:word;
     end;
    TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium);
    TCpuData=object
      function GetCPUIDSupport:Boolean;
      function GetVendorString:string;
      function GetCPUFrequency:word;
      procedure GetFMS(var Family,Model,Stepping:byte);
      function GetMaxCpuId:dword;
      function CheckFPU:Boolean;
      function CheckTSC:Boolean;
      function CheckMSR:Boolean;
      function CheckMPS:Boolean;
      function GetNoCpus:cardinal;
      function CheckPN:Boolean;
      function CheckCMPXCHG8B:Boolean;
      function CheckCMOVe:Boolean;
      function CheckSelfSnoop:Boolean;
      function CheckDebugTraceStore:Boolean;
      function CheckFXSAVEFXRSTOR:Boolean;
      function CheckMMX:Boolean;
      function CheckMMXplus:Boolean;
      function CheckSSE:Boolean;
      function CheckSSE2:Boolean;
      function CheckAMD3DNow:Boolean;
      function CheckAMD3DNowPlus:Boolean;
      function GetMaxExtendedFunctions:dword;
      procedure GetExtendedFMS(var Family,Model,Stepping:byte);
      function GetExtendedCpuName:string;
      function GetExtendedL1DCache:word;
      function GetExtendedL1ICache:word;
      function GetExtendedL2Cache:word;

      function CheckCeleron:Boolean;
      function CheckPentiumIII:Boolean;
      function CheckXeon:Boolean;
      function CheckPentium4:Boolean;
      function CheckIthanium:Boolean;
      function IntelP5N:string;
      function IntelP6N:string;
      function AMDK5N:string;
      function Cyrix686N:string;
      function GenericCpuN:string;
      function P5CacheL1DI:word;
      function P6CacheL1DI:word;
      function P6CacheL2:word;

      function AuthenticAMD:TCpuRec;

      function GenuineIntel:TCpuRec;
      function CyrixInstead:TCpuRec;
      function GenericCPU:TCpuRec;
     end;
const
Intel486:array[0..8] of string=
(Intel 486 DX,
  Intel 486 DX,
  Intel 486 SX,
  Intel 486 DX2,
  Intel 486 SL,
  Intel 486 SX2,
  Intel 486 DX2,
  Intel 486 DX4,
  Intel 486 DX4);
UMC486:array[0..1] of string=
(UMC U5D,
  UMC U5S);
AMD486:array[0..5] of string=
(AMD 486 DX2,
  AMD 486 DX2,
  AMD 486 DX4,
  AMD 486 DX4,
  AMD 5x86,
  AMD 5x86);
IntelP5:array[0..6] of string=
(Intel Pentium P5 A-Step,
  Intel Pentium P5,
  Intel Pentium P54C,
  Intel Pentium P24T Overdrive,
  Intel Pentium MMX P55C,
  Intel Pentium P54C,
  Intel Pentium MMX P55C);
  NexGenNx586=NexGen Nx586;
  Cyrix4x86=VIA Cyrix 4x86;
  Cyrix5x86=VIA Cyrix 5x86;
  CyrixMediaGX=VIA Cyrix Media GX;
  CyrixM1=VIA Cyrix 6x86;
  CyrixM2=VIA Cyrix 6x86MX;
  CyrixIII=VIA Cyrix III;
  AMDK5:array[0..3] of string=
  (AMD SSA5 (PR75/PR90/PR100),
   AMD 5k86 (PR120/PR133),
   AMD 5k86 (PR166),
   AMD 5k86 (PR200));
  AMDK6:array[0..4] of string=
  (AMD K6 (166~233),
   AMD K6 (266~300),
   AMD K6-2,
   AMD K6-III,
   AMD K6-2+ or K6-III+);
   Centaur:array[0..2] of string=
   (Centaur C6,
    Centaur C2,
    Centaur C3);
   Rise:array[0..1] of string=
   (Rise mP6,
    Rise mP6);
   IntelP6:array[0..7] of string=
   (Intel Pentium Pro A-Step,
    Intel Pentium Pro,
    Intel Pentium II,
    Intel Pentium II,
    Intel Pentium II,
    Intel Pentium III,
    Intel Pentium III,
    Intel Pentium III);
   AMDK7:array[0..3] of string=
    (AMD Athlon(tm) Processor,
     AMD Athlon(tm) Processor,
     AMD Duron(tm) Processor,
     AMD Thunderbird Processor);
   IntelP4=Intel Pentium 4;
var CpuData:TCpuData;
implementation
function TCpuData.GetCPUIDSupport:Boolean;
var TempDetect:dword;
begin
asm
  pushf
  pushfd
  push eax
  push ebx
  push ecx
  push edx

  pushfd
  pop eax
  mov ebx,eax
  xor eax,$00200000
  push eax
  popfd
  pushfd
  pop eax
  push ebx
  popfd
  xor eax,ebx
  mov TempDetect,eax

  pop edx
  pop ecx
  pop ebx
  pop eax
  popfd
  popf
end;
GetCPUIDSupport:=(TempDetect=$00200000);
end;
function TCpuData.GetVendorString:string;
var s1,s2,s3:array[0..3] of char;
    TempVendor:string;
    i:integer;
begin
asm
  push eax
  push ebx