Project1.pl - Jak pobrać częstotliwość procesora?

Jak pobrać częstotliwość procesora?

Napisał: Berl

sobota, 01 październik 2005

 
function GetCPUSpeed: Double;
var
  Timer : DWORD;
begin
  Sleep(10);
  asm
    dw 310Fh
    mov Timer, eax
  end;
  Sleep(500);
  asm
    dw 310Fh
    sub eax, Timer
    mov Timer, eax
  end;
 
  Result := Timer / 500000;
end;

Aby wyświetlić czestotliwość procesora po naciśnięciu Buttona, wystarczy w procedurze obsługującej zdarzenie OnClick napisać :

 
showmessage('Częstotliwość twojego procesora wynosi : ' + formatFloat('#.##', GetCPUSpeed) + ' MHz');

Komentarze

Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.

wstecz

WRÓĆ