您好,欢迎来到年旅网。
搜索
您的当前位置:首页DELPHI读取CPU的序列号

DELPHI读取CPU的序列号

来源:年旅网
Technorati 标签: , , ,
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

因为这段时间要用到CPU的序列号,用它们来做注册码,从网上找的源代码,经测试,可行。源代码如下:

Unit   CPUID;

  {***********************************************

  *   这个模块是用来获取CPU序列号,调用方式:   *

  * 在上层程序的uses子句中含CPUID模块,用函数   *

  *调用 CPUID.GetCPUVendor   获得CPU的制造商名称;   *

  *调用   CPUID.GetCPUInfo   得到CPU的序列号.   *

  *************************************************}

  interface

  uses

  SysUtils;

  type

  TCPUID   =   array[1..4]   of   Longint;

  TVendor   =   array   [0..11]   of   char;

  function   GetCPUID:   TCPUID;   assembler;   register;

  function   GetCPUVendor:   TVendor;   assembler;   register;

  function   GetCPUInfo:   string;

  implementation

  Function   GetCPUID:   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   GetCPUVendor:   TVendor;   assembler;   register;

  asm

  PUSH   EBX   {Save   affected   register}

  PUSH   EDI

  MOV   EDI,EAX   {@Result   (TVendor)}

  MOV   EAX,0

  DW   $A20F   {CPUID   Command}

  MOV   EAX,EBX

  XCHG   EBX,ECX   {save   ECX   result}

  MOV   ECX,4

  @1:

  STOSB

  SHR   EAX,8

  LOOP   @1

  MOV   EAX,EDX

  MOV   ECX,4

  @2:

  STOSB

  SHR   EAX,8

  LOOP   @2

  MOV   EAX,EBX

  MOV   ECX,4

  @3:

  STOSB

  SHR   EAX,8

  LOOP   @3

  POP   EDI   {Restore   registers}

  POP   EBX

  end;

  Function   GetCPUInfo:   string;

  var

  CPUID:   TCPUID;

  I:   Integer;

  begin

  for   I   :=   Low(CPUID)   to   High(CPUID)   do

  CPUID[I]   :=   -1;

  CPUID   :=   GetCPUID;

  Result   :=   IntToHex(CPUID[1],   8)   +   IntToHex(CPUID[2],   8)

  +   IntToHex(CPUID[3],   8)

  +   IntToHex(CPUID[4],   8);

  end;

  end.

搜索其它相关资源,请用Google搜索:
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_sdo.js"> </script>

因篇幅问题不能全部显示,请点此查看更多更全内容

Copyright © 2019- oldu.cn 版权所有 浙ICP备2024123271号-1

违法及侵权请联系:TEL:199 1889 7713 E-MAIL:2724546146@qq.com

本站由北京市万商天勤律师事务所王兴未律师提供法律服务