用Delphi如何取得CPU号.......

???? 问题点数：1、回复次数：4Top

1 楼zwjchina（蒲石）回复于 2002-02-07 18:48:16 得分 0

CPU号？什么号？有的CPU是没有序列号的！  
  可以用汇编指令CPUID获得CPU相关信息Top

2 楼erp2（天涯劍）回复于 2002-02-07 19:05:38 得分 0

有例子吗?Top

3 楼stiwin（（忙碌））回复于 2002-02-07 19:07:02 得分 1

function   TForm1.GetCpuSpeed:   Extended;  
  var  
                  t,   mhi,   mlo,   nhi,   nlo:   dword;  
                  shr32   :   comp;  
  begin  
      shr32   :=   65536;  
      shr32   :=   shr32   *   65536;  
      t:=   GetTickCount;  
      while   t   =   GetTickCount   do   ;  
        asm  
          DB   0FH,031H   //   rdtsc  
          mov   mhi,edx  
          mov   mlo,eax  
        end;  
      while   GetTickCount   <   (t   +   1000)   do   ;  
        asm  
          DB   0FH,031H   //   rdtsc  
          mov   nhi,edx  
          mov   nlo,eax  
        end;  
        Result   :=   ((nhi   *   shr32   +   nlo)   -   (mhi   *   shr32   +   mlo))   /   1E6;  
  end;  
  Top

4 楼aqs（阿Q）回复于 2002-02-07 20:29:15 得分 0

同上，或读注册表：  
  在注册表中  
  "HKEY_LOCAL_MACHINE\hardware\DESCRIPTION\System\CentralProcessor\0"  
  对应VendorIndentifier的值Top

相关问题

• cpu
• shr32
• mhi
• mlo
• gettickcount
• cpu号
• mov

• 帖主：erp2
• stiwin

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载