小小分享function getCPUID :string;

fieldz

{$mode delphi}

function getCPUID :string;
var
   _eax, _ebx, _ecx, _edx: Longword;
   s, s1, s2: string;
begin
    asm
     push eax
     push ebx
     push ecx
     push edx
     mov eax,1
     db $0F,$A2
     mov _eax,eax
     mov _ebx,ebx
     mov _ecx,ecx
     mov _edx,edx
     pop edx
     pop ecx
     pop ebx
     pop eax
    end;
   s := IntToHex(_eax, 8);
   s1 := IntToHex(_edx, 8);
   s2 := IntToHex(_ecx, 8);
   result:=s+s1+s2;
   end;   

loxer

试一下。

逍遥派掌门人

这是单核的。

猫工

优秀文章，支持！n神马都是浮云