DELPHI xe 10 的获取CPUID

最新推荐文章于 2024-06-17 18:43:39 发布

以后换名字

最新推荐文章于 2024-06-17 18:43:39 发布

阅读量1.3k

点赞数

分类专栏： delphi windows

本文链接：https://blog.csdn.net/weixin_44387646/article/details/90052990

版权

delphi windows 专栏收录该内容

31 篇文章 0 订阅

订阅专栏

type
  TCPUID = array [1 .. 4] of Longint;
FUNCTION GetCPUID1: TCPUID; assembler; register;
asm
  PUSH    EBX         { Save affected register }
  PUSH    EDI
  MOV     EDI,EAX     { @Resukt }
  MOV     EAX,1
  DW      $A20F       { CPUID Command }
  STOSD      { CPUID[1] }
  MOV     EAX,EBX
  STOSD               { CPUID[2] }
  MOV     EAX,ECX
  STOSD               { CPUID[3] }
  MOV     EAX,EDX
  STOSD               { CPUID[4] }
  POP     EDI      { Restore registers }
  POP     EBX
END;
function GetCPUIDStr: String;
var
  CPUID: TCPUID;
begin
  CPUID := GetCPUID1;
  Result := IntToHex(CPUID[1], 8)  + IntToHex(CPUID[4], 8);
end;