getCPUid(很全的)


//This unit can be used to detect the cpu model.
unit CpuId; 
inte易做图ce 
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

补充：软件开发 , Delphi ,