Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

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

 
kpo   (2003-02-09 12:22) [0]

как узнать быстродействие ПК (Скорось CPU)и объем оперативной памяти .желательно исходник


 
SniZ ©   (2003-02-09 21:57) [1]

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;

и в каком нибудь абрободчике пишеш
допустим в лабеле1
Label1.Caption := Format("CPU speed: %f MHz", [GetCPUSpeed]);


 
Спрашивающий   (2003-02-10 07:30) [2]

Функция не универсальна дает сбой на некоторых моделях процессоров. Я сталкивался когда на ноутбуке она занижает частоту в 10 раз.



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
1-6577
KMI
2003-03-21 19:58
2003.04.03
Ошибка при закрытии дочернего окна


7-6820
mmmh
2003-02-07 20:26
2003.04.03
Люди как можно переделать стандартные виндовские часики? Хочу сде


3-6368
PONTIY
2003-03-14 12:01
2003.04.03
Как сортировать данные в TRxDBGrid?


4-6871
Cosmic
2003-02-06 18:59
2003.04.03
Текущий каталог


6-6647
gn
2003-02-07 18:21
2003.04.03
irc