2010年9月8日   
[首页] [业界新闻] [编程技巧] [控件仓库] [源码下载] [书籍下载] [系统设计] [会员中心] [请您留言] [自由论坛]
  本站新增划词翻译功能!!

获取 CPU 序列号
日期:2007-12-17 类别:硬件 作者: 推荐:本站 人气:5546




type
TCPUID = array[1..4] of longint;

function GetCPUID: TCPUID;
asm
   PUSH    EBX
   PUSH    EDI
   MOV     EDI,EAX     // @Result
 MOV     EAX,1
   DW      $A20F      // CPUID Command
 // 依次取出四位序号
 STOSD
   MOV     EAX,EBX
   STOSD
   MOV     EAX,ECX
   STOSD
   MOV     EAX,EDX
   STOSD
   POP     EDI
   POP     EBX
end;

网友评论区



(C)Copyright Delphi俱乐部, 1999-2010。所有版权保留
京ICP备05013674号