Delphi dicas

Recupera velocidade de processamento da cpu

Const

ID_BIT=$200000; // EFLAGS ID bit



function GetCPUSpeed: Double;

const

DelayTime = 500;

var

TimerHi, TimerLo: DWORD;

PriorityClass, Priority: Integer;

begin

        try

        PriorityClass := GetPriorityClass(GetCurrentProcess);

        Priority := GetThreadPriority(GetCurrentThread);