Главная страница
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.031 c
4-1081427159
igornov
2004-04-08 16:25
2004.05.23
Как на чужой форме запретить нажатие кнопок?


3-1083158365
Stupid
2004-04-28 17:19
2004.05.23
SQL c Null


1-1084261027
goliath
2004-05-11 11:37
2004.05.23
Проблема с Borland Kylix 3.0


3-1082982964
avgur
2004-04-26 16:36
2004.05.23
вопрос доступа к данным в сети


7-1080630837
AS_dm
2004-03-30 11:13
2004.05.23
работа с веб-камерой через usb