获取 CPU 序列号

获取 CPU 序列号

CPU 序列号是一个唯一的标识符,可用于识别特定 CPU。在 Delphi 中,可以使用以下代码获取 CPU 序列号:

function GetCPUSerialNumber: string;
var
  CpuInfo: TMIB_CPUSerialNumber;
  Size: DWORD;
begin
  Size := SizeOf(CpuInfo);
  GetCpuID(0, CpuInfo.dwReserved1, CpuInfo.dwReserved2, CpuInfo.dwReserved3, CpuInfo.dwReserved4);
  Result := Format('X-X-X-X', [CpuInfo.dwReserved1, CpuInfo.dwReserved2, CpuInfo.dwReserved3, CpuInfo.dwReserved4]);
end;
rar
得到cpu序列号.rar 预估大小:9个文件
folder
得到cpu序列号 文件夹
file
Unit1.dfm 630B
file
Project1.exe 371KB
file
Unit1.pas 1KB
file
Unit1.dcu 4KB
file
Project1.res 876B
file
Project1.dof 1KB
file
Project1.dpr 188B
file
Project1.cfg 368B
file
Unit1.ddp 51B
rar 文件大小:162.08KB