获取 CPU 序列号

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;

 

转载于:https://www.cnblogs.com/xiefang2008/p/5590257.html