Ein Programm das es schon zu genüge gibt: ComputerInfo

[Luckie]

Delphi-Quellcode:

function GetCPUSpeed: Double;
const
 TimeOfDelay = 500;
var
 TimerHigh,
 TimerLow: DWord;
begin
 SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
 SetThreadPriority(GetCurrentThread,
 THREAD_PRIORITY_TIME_CRITICAL);
  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);
end;

Du setzt die Priorität nicht wieder zurück.