Skocz do zawartości
lemkat

Czestotliwosc i typ procesora

Rekomendowane odpowiedzi

Kod pobrany z http://www.borland.nq.pl

 

void __fastcall TForm1::Button1Click(TObject *Sender)

{

const DelayTime = 500;

DWORD TimerHi, TimerLo;

Integer PriorityClass, Priority;

 

PriorityClass = GetPriorityClass(GetCurrentProcess());

Priority = GetThreadPriority(GetCurrentThread());

 

SetPriorityClass(GetCurrentProcess(), REALTIME_PRIORITY_CLASS);

SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_TIME_CRITICAL);

 

Sleep(10);

 

asm

{

dw 310Fh

mov TimerLo, eax

mov TimerHi, edx

}

 

Sleep(DelayTime);

 

asm

{

dw 310Fh

sub eax, TimerLo

sbb edx, TimerHi

mov TimerLo, eax

mov TimerHi, edx

}

 

SetThreadPriority(GetCurrentThread, Priority);

SetPriorityClass(GetCurrentProcess, PriorityClass);

 

int CPUSpeed = TimerLo / (1000 * DelayTime);

Label1->Caption = "CPU speed: " + IntToStr(CPUSpeed) + "MHz";

}

 

Nadal pozostal problem z typem procesora. Jak go odczytac ?

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

Ładowanie


×
×
  • Dodaj nową pozycję...