Главная страница
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.023 c
4-1081258506
Flying home
2004-04-06 17:35
2004.05.23
Написание DLL


7-1081412432
Stas
2004-04-08 12:20
2004.05.23
Изменения подписи чужой программы


7-1082149888
Сащок
2004-04-17 01:11
2004.05.23
Регистрация файлов


3-1082626061
Eleonora
2004-04-22 13:27
2004.05.23
Interbase, Query, DBMemo


6-1080715226
СержК
2004-03-31 10:40
2004.05.23
Системное время удаленного компьютера