RSS订阅 | 匿名投稿
您的位置:网站首页 > 硬件 > 正文

Delphi下CPU GetCPUID实现(x86和x64)

作者:admin 来源: 日期:2018/1/8 20:19:31 人气: 标签:

以下方法还是通过汇编实现,不过针对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


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料