Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.046 c
8-1078386440
Димон
2004-03-04 10:47
2004.05.23
Сохранение в Image


14-1083557171
SammIk
2004-05-03 08:06
2004.05.23
Народ, а как вам "Демон" Врубеля?


14-1083402848
Profi
2004-05-01 13:14
2004.05.23
Русская Ось


1-1084021864
vk220
2004-05-08 17:11
2004.05.23
Как отключить отладку стандартных модулей


9-1073419589
Stalker_23b
2004-01-06 23:06
2004.05.23
Исповедь домашнего игромейкера