Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.085 c
8-1078912912
$tranger
2004-03-10 13:01
2004.05.23
GIF-картинки


3-1083311033
Alina
2004-04-30 11:43
2004.05.23
TDateTime в DBGrid e


14-1083523175
Verg
2004-05-02 22:39
2004.05.23
Вот так вот! От 17 до 23-х.....


3-1082975048
Litr
2004-04-26 14:24
2004.05.23
Заполнить поле значением по умолчанию


1-1084199356
glGLU
2004-05-10 18:29
2004.05.23
Edit & randomize





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский