XProfan

function GetCPUSPeed():Longword;stdcall;
var timerhigh,timerlow:dword;
begin
SetPriorityClass(GetCurrentProcess,REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_TIME_CRITICAL);
try
asm
dw 310Fh
mov TimerLow,eax
mov TimerHigh,edx
end;
Sleep(1000);
asm
dw 310Fh
sub eax,TimerLow
sub edx,TimerHigh
mov TimerLow,eax
mov TimerHigh,edx
end;
Result:=Round(TimerLow/1000000);
finally
SetPriorityClass(GetCurrentProcess,NORMAL_PRIORITY_CLASS);
end;
end;

 {$cleq}
Declare x&
Cls
Print Ermittle Frequenz der CPU...

AsmStart CPUSpeed

    .686p
    invoke GetCurrentProcess
    invoke SetPriorityClass,eax,REALTIME_PRIORITY_CLASS
    invoke GetCurrentThread
    invoke SetThreadPriority,eax,THREAD_PRIORITY_TIME_CRITICAL;
    rdtsc
    push eax
    invoke Sleep,1000
    rdtsc
    pop ebx
    sub eax,ebx
    xor edx,edx
    mov  esi,1000000
    div  esi
    push  eax
    invoke GetCurrentProcess
    invoke SetPriorityClass,eax,NORMAL_PRIORITY_CLASS
    pop eax

AsmEnd(x&)

Print ...+Str$(x&)+ MHz.
WaitInput
End