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.