[Delphi]Cpu snelheid meten

[Halfkakkende]

edit:

Topic titel moet eigenlijk zijn: CPU Snelheid Opvragen
excuus voor het ongemak

Okidé, voor een programma wil ik graag weten hoe ik (in Delphi)de snelheid van mijn processor kan opvragen, maar ik heb werkelijk geen flauw idee hoe ik dat zou moeten doen. Van de code van een aantal voorgeprogde programma's werd ik ook niet veel wijzer.

Wie kan mij helpen?

THNX!

[Verwijderd]

checkout www.swissdelphicenter.ch of www.torry.net daar staat het vast wel ergens

[jelmervos]

Kijk hier es.

[Verwijderd]

code:

Function GetCPUSpeed: Double;
const
  DelayTime = 500; // measure time in ms
var
  TimerHi, TimerLo: DWORD;
  PriorityClass, Priority: Integer;
begin
  PriorityClass := GetPriorityClass(GetCurrentProcess);
  Priority := GetThreadPriority(GetCurrentThread);

  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

  Sleep(10);
  asm
    dw 310Fh // rdtsc
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  Sleep(DelayTime);
  asm
    dw 310Fh // rdtsc
    sub eax, TimerLo
    sbb edx, TimerHi
    mov TimerLo, eax
    mov TimerHi, edx
  end;

  SetThreadPriority(GetCurrentThread, Priority);
  SetPriorityClass(GetCurrentProcess, PriorityClass);

  Result := TimerLo / (1000.0 * DelayTime);
end;

[Halfkakkende]

THNX Dudes...

Sorry voor mijn late reactie. Ik had veel te doen