得到CPU速度，单位MHz

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;