Как самым простым способом получить название ОС? Требуется лишь знать её мажорную версию (типа XP или 95), никаких билдов и т.п.

Как самым простым способом получить величину частоты процессора?

Правдоподобность результатов - дело десятое (это насчёт разогнанных камней и кривых осей).

function GetCPUSpeed: Double;
const

DelayTime = 500;
var

TimerHi : DWORD;
TimerLo : DWORD;
PriorityClass : Integer;
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;

function WinVer:String;
var
WinV:Word;
begin
WinV := GetVersion AND $0000FFFF;
Result:=IntToStr(Lo(WinV))+'.'+IntToStr(Hi(WinV));
end;

Т.е. частоту процессора нельзя вот так просто прочесть откуда-нибудь?..

И как соотносятся значения WinV с названиями осей? Как я понял из справки: 4.1 - win95, 3.0 и 4.0 - NT. А как определить 98, ME, XP и др.?

Это сообщение отредактировал(а) Limonadni Joe - 3.9.2004, 20:08

Вот исходник, где задействована частота процессора. Немного подумав, можно понять что к чему:
http://www.delphimaster.ru/cgi-bin/faq.pl?...=988621408&n=15

Простой поиск по форуму выдал интересные статейки (читать полностью):
http://forum.vingrad.ru/index.php?showtopi...тота+процессора

http://forum.vingrad.ru/index.php?showtopi...тота+процессора

Цитата

читать полностью

Видимо имелось ввиду обратить внимание на ключ реестра:

HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0

Точно! Ну и просто на советы других пользователей... тама ещё мысль была.

Ладно... а про видны кто-нибудь скажет?

См. DRKB:

Код

Как получить версию Windows? Type TOSVersion=(osUnknown, osUnknown9x, osUnknownNT, osWin95, osWin98, osWin98SE, osWinME, osWinNT, osWin2000, osXP); function GetOSVersion : TOSVersion; var osVerInfo : TOSVersionInfo; majorVer, minorVer : Integer;     begin result := OsUnknown;   osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);   if GetVersionEx(osVerInfo) then   begin   majorVer := osVerInfo.dwMajorVersion;   minorVer := osVerInfo.dwMinorVersion;   case osVerInfo.dwPlatformId of   VER_PLATFORM_WIN32_NT :   Case majorVer of   4:result := OsWinNT;   5:if minorVer=0 then result := OsWin2000   else   if minorVer=1 then result := OsXP else result := osUnknownNT;   else result := osUnknownNT;   end; {Case majorVer of}   VER_PLATFORM_WIN32_WINDOWS :   case majorVer of   4: Case minorVer of   0:result := OsWin95;   10: if osVerInfo.szCSDVersion[1] = 'A' then result := OsWin98SE else result := OsWin98;   90: result := OsWinME;   else result := osUnknown9x;   end;{Case minorVer of}   else result := osUnknown9x;   end{case majorVer of}   else result := OsUnknown;   end;{case osVerInfo.dwPlatformId of}   end;{if GetVersionEx(osVerInfo) then}   end; procedure TForm1.Button1Click(Sender: TObject); begin case GetOSVersion of   osUnknown: Showmessage('Unknown');   osWin95: Showmessage('Win95');   osWin98: Showmessage('Win98');   osWin98SE: Showmessage('Win98SE');   osWinME: Showmessage('WinME');   osWinNT: Showmessage('WinNT');   osWin2000: Showmessage('Win2000');   osXP: Showmessage('XP');   end;   end; Автор Vit Взято с Vingrad.ru http://forum.vingrad.ru

Спасибо, давно я в DRKB не заглядывал. А Windows 2003 это - (majorVer = 5) and (minorVer = 2)? Проверьте в делфи, у кого стоит эта ОС.