1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function TScribaLog.GetCPUSpeed: Double;
const
  TimeOfDelay = 500;
var 
  TimerHigh, TimerLow: DWord;
begin
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread,  THREAD_PRIORITY_TIME_CRITICAL);
  //Prioritäten auf Maximum setzen, damit ein realistisches Ergebnis bei
  //diesem kleinen Benchmark herauskommt.
  asm
    dw 310Fh
    mov TimerLow, eax
    mov TimerHigh, edx
  end;
  Sleep(TimeOfDelay);
  asm
    dw 310Fh
    sub eax, TimerLow
    sub edx, TimerHigh
    mov TimerLow, eax
    mov TimerHigh, edx
  end;
  Result := TimerLow / (1000.0 * TimeOfDelay);
  SetPriorityClass(GetCurrentProcess, NORMAL_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread,  THREAD_PRIORITY_NORMAL);
  //Prioritäten wieder zurücksetzen
end;