CPU hızını ölçmek.

[fduman]

Bir sitede gördüm. C ile yazılmıştı. Hoşuma gitti birkaç değişiklikle Delphi'ye uyarladım. Bu function CPU hızını geriye MHZ biriminden döndürüyor.

Site : http://www.arson-network.com/index.php? ... ubargs=626

Kod: Tümünü seç

function CPUSpeed: Longword;
asm
  push esi
  push edi

  rdtsc
  push edx
  push eax

  // Sleep(1000)
  push 1000
  call Sleep

  rdtsc
  // edx:eax - new TSC value

  pop edi
  pop esi
  // esi:edi - old TSC value

  sub eax, edi
  sbb edx, esi

  // edx:eax final value
  // divide by 1000000 to get approx speed in MHz
  mov ecx, 1000000
  div ecx

  // eax = final result
  pop edi
  pop esi
end;