Текущий архив: 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.027 c
