获取CUP的ID

最新推荐文章于 2023-05-26 14:05:07 发布

转载最新推荐文章于 2023-05-26 14:05:07 发布 · 320 阅读

文章标签：

#Delphi #CPU #ID

Delphi心得专栏收录该内容

26 篇文章

订阅专栏

本文介绍了一种使用Delphi编写的获取CPUID的方法，通过内联汇编调用CPUID指令，读取CPU寄存器EAX、EBX、ECX、EDX的值，并将这些值转换为十六进制字符串，最终拼接成一个完整的CPUID字符串。

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;