Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

тип микропроцессора   Найти похожие ветки 

← →
Sur ©   (2004-04-09 20:36) [0]

Мне нужно програмно узнать тип микропроцессора(и тактовая частота) и версию ОС.

---

← →
Cobalt ©   (2004-04-10 14:34) [1]

2 - GetVersion

---

← →
Sur ©   (2004-04-12 15:23) [2]

А как узнать тактовую частоту процессора?

---

← →
Smithson ©   (2004-04-12 15:30) [3]


// Определение тактовой частоты процессора
function GetCPUSpeed: Double;
const  DelayTime = 500; // measure time in ms
var  TimerHi, TimerLo: DWORD;
    PriorityClass, Priority: Integer;
begin
 PriorityClass := GetPriorityClass(GetCurrentProcess);
 Priority := GetThreadPriority(GetCurrentThread);
 SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
 SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
 Sleep(10);
 asm
   dw 310Fh // rdtsc
   mov TimerLo, eax
   mov TimerHi, edx
 end;
 Sleep(DelayTime);
 asm
   dw 310Fh // rdtsc
   sub eax, TimerLo
   sbb edx, TimerHi
   mov TimerLo, eax
   mov TimerHi, edx
 end;
 SetThreadPriority(GetCurrentThread, Priority);
 SetPriorityClass(GetCurrentProcess, PriorityClass);
 Result := TimerLo / (1000.0 * DelayTime);
end;



---

← →
Игорь Шевченко ©   (2004-04-12 16:58) [4]

В реестре поищи, там все написано, и первое и второе.

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.05 c