测试CPU速度

function CPUSpeed:Double;

const

    DelayTime=500;

var

    TimerHi,TimerLo:Dword;

    PriorityCals,Priority:Integer;

begin

    PriorityClass :=GetPriorityClass(GetCurrentProcess);

    Priority :=GetThreadPririty(GetCurrentThread);

    SetPriorityClass(GetCurrentProcess,REALTIME_PRIORITY_CLASS);

    SetThreadPriority(GetCurrentThread,THREAD_THREAD_PRIORITY_TIME_CRITICAL);

    Sleep(10);

    asm

        dw 310h

        mov TimerLo,eax

        mov TimerHi,edx

    end;

    sleep(DelayTime);

    asm

        dw 310Fh

        sub eax,TimerLo

        sub edx,TimerHi

        mov TimerLo,eax

        mov TimerHi,edx

    end;

 

    SetThreadPriority(GetCurrentThread,Priority);

    SetPriorityClass(GetCurrentProcess,PriorityClass);

    Result :=TimerLo/(1000.0*DealyTime);     

end;