http://bbs.pediy.com/showthread.php?s=&threadid=21646&highlight=%D3%D0%C8%CB%B2%BB%C3%F7%B0%D7CPUID%D6%B8%C1%EE%B5%C4%D3%C3%B7%A8

[ZT]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function GetCpuSpeed: Comp;
{ function to return the CPU clock speed only.}  
{ Usage: MessageDlg(format('%.1f MHz', [GetCpuSpeed]),
mtConfirmation, [mbOk], 0); }  
var  
  t: DWORD;
  mhi, mlo, nhi, nlo: DWORD;
  t0, t1, chi, clo, shr32: Comp;  
begin  
  shr32 := 65536;
  shr32 := shr32 * 65536;  

  t := GetTickCount;  
  while t = GetTickCount do begin end;  
  asm  
    DB 0FH  
    DB 031H  
    mov mhi,edx  
    mov mlo,eax  
  end;  

  while GetTickCount < (t + 1000) do begin end;
asm
DB 0FH
DB 031H
mov nhi,edx
mov nlo,eax
end;

chi := mhi;
if mhi < 0 then chi := chi + shr32;

clo := mlo;
if mlo < 0 then clo := clo + shr32;

t0 := chi * shr32 + clo;

chi := nhi;
if nhi < 0 then chi := chi + shr32;

clo := nlo;
if nlo < 0 then clo := clo + shr32;

t1 := chi * shr32 + clo;

Result := (t1 - t0) / 1E6;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg(format('%.1f MHz', [GetCpuSpeed]),mtConfirmation, [mbOk], 0);
end;

end.

还挺准确,我的机器是2638MHz,
离真实值有一点差别.
系统是XP

#include <windows.h>
#include <stdio.h>

void main()
{
        char CPUHZ[100];

        __asm
        {
                mov eax, 0x80000004
                cpuid
                mov dword ptr CPUHZ,ecx
                mov dword ptr CPUHZ + 4,edx
        }

        printf("CPU主频为:%s\r\n",CPUHZ);
}

其实就这么简单，呵呵，还需要计算吗？？

这样取出来的多准确啊。。。。。。

最初由 lemony 发布
#include <windows.h>
#include <stdio.h>

void main()
{
........

又学了一招

可惜不支持P4一下的CPU。。。。。。。

Originally posted by lemony
#include <windows.h>
#include <stdio.h>

void main()
{
........

这是把CPU的字串读出来
不代表真实的频率

最初由 lemony 发布
#include <windows.h>
#include <stdio.h>

void main()
{
........

楼主问的是不是就一种途径，CPUID谁不知道啊，真是的！

最初由 moodsky 发布
楼主问的是不是就一种途径，CPUID谁不知道啊，真是的！

不知道是我的表达方式有问题，还是你的理解能力有问题。。。。。。

。。。。。。。。。。。。。。。。。。。。。

I'm wrong,may be

最初由 lemony 发布
还有没有其它方法可以准确的获得CPU主频

VB Inlineasm实现：
Private Sub Command1_Click()
    Dim myLong(2) As Long
    Dim I As Long
    Dim lngPointer1 As Long, lngPointer2 As Long, lngPointer3 As Long
    Dim lngCPUFeatures(4) As Long, lngCacheInfo(4) As Long
    lngPointer1 = VarPtr(myLong(0))
    lngPointer2 = VarPtr(lngCPUFeatures(0))
    lngPointer3 = VarPtr(lngCacheInfo(0))
   
    Text1.Text = asmCPUID(lngPointer1, lngPointer2, lngPointer3)
End Sub

=================ASM Module================
Public Function asmCPUID(ByVal lngPointer1 As Long, ByVal lngPointer2 As Long, ByVal lngPointer3 As Long) As Long
'#ASM_START
'.686

' push ebp
' mov ebp, esp

' push ecx
' push edx
' push edi

' mov eax, 0
' CPUID
'
' mov edi, DWORD PTR [ebp+8]
' mov [edi], ebx
'
' mov edi, DWORD PTR [ebp+8]
' Add edi, 4
' mov [edi], edx
'
' mov edi, DWORD PTR [ebp+8]
' Add edi, 8
' mov [edi], ecx
' ;\
';-------------------------------------------------------------------------------------
' cmp eax, 0
' je ExitASM
'
';-------------------------------------------------------------------------------------
'
' mov eax, 1
' CPUID
'
' mov edi, [ebp+12] ;//Pointer to array2
' mov [edi], eax
'
' Add edi, 4
' mov [edi], ebx
'
' Add edi, 4
' mov [edi], ecx
'
' Add edi, 4
' mov [edi], edx
'
';----------------
' mov eax, 0
' CPUID
'
' cmp eax, 1
' jng ExitASM
' mov eax, 2
' CPUID
'
' mov edi, [ebp+16]
' mov [edi], eax
'
' Add edi, 4
' mov [edi], ebx
'
' Add edi, 4
' mov [edi], ecx
'
' Add edi, 4
' mov [edi], edx
';-----------------
'ExitASM:
' pop edi
' pop edx
' pop ecx

' mov esp, ebp
' pop ebp
' ret 12
'#ASM_END
End Function

上传的附件：

• cpu.rar （4.42kb，16次下载）