本文整理自网络，侵删。
以下方法还是通过汇编实现，不过针对x64做了调整，以支持x86和x64两种环境，代码如下：
// 获取cpu序列号
type
TCPUID = array [1 .. 4] of Longint;
function GetCPUID: TCPUID;
asm
{$IF Defined(CPUX86)}
push ebx
push edi
mov edi, eax
mov eax, 1
dw $A20F
stosd
mov eax, ebx
stosd
mov eax, ecx
stosd
mov eax, edx
stosd
pop edi
pop ebx
{$ELSEIF Defined(CPUX64)}
PUSH RBX
PUSH RDI
MOV RDI,RCX
MOV EAX,1
CPUID
mov [rdi], eax;
mov [rdi+4], ebx;
mov [rdi+8], ecx;
mov [rdi+12], edx;
POP RDI
POP RBX
{$IFEND}
(* 调用示例
var id: TCPUID;
id := GetCPUID;
ShowMessage(IntToHex(id[4], 8) + IntToHex(id[1], 8));
*)
end;
https://www.offeu.com/www/index_id_166.html
相关阅读 >>
在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法
Delphi研究之驱动开发篇（六）--利用section与用户模式程序通讯(上)
Delphi hbp-1100u 欧姆龙血压计的usb调用方法
更多相关阅读请进入《Delphi》频道 >>
