| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

тип микропроцессора [D6, Win2k]

Sur ©   (2004-04-09 20:36:00) 

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

---

Игорь Шевченко   (2004-04-12 16:58:00) [1]

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

---

Smithson   (2004-04-12 15:30:00) [2]


// Определение тактовой частоты процессора
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;



---

Sur   (2004-04-12 15:23:00) [3]

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

---

Cobalt   (2004-04-10 14:34:00) [4]

2 - GetVersion

---

Наверх