Delphi 获取 Cpu 序列号单元

unit GetCPU;

interface

uses
  Windows, SysUtils;
  
function  GetCpuInfo:pchar;
implementation
function  GetCpuInfo:pchar;
var
  R:    array [ 0 .. 19 ]   of   Char;
  CpuID:    Integer ;
  CpuPC:  pchar;
begin
  FillChar(R,    20 ,    0 );
  asm
      mov   eax,    0
      db   0fh,   0a2h
      mov   dword   ptr   R[ 0 ],     ebx
      mov   dword   ptr   R[ 4 ],     edx
      mov   dword   ptr   R[ 8 ],     ecx
      mov   eax,    1
      db   0fh,   0a2h
      mov   CpuID,   edx
   end ;
  strpcopy(CpuPC,IntToStr(CpuID));
  Result : =  PChar(CpuPC);
end ;

end .