Определить операционную систему

[Shouldercannon]

В гугле нашёл примеры, которые могут определить ОС только до Win XP. Вот приме. Может, у кого-нибудь есть примеры, которые могут определяться ОС после Win XP?

[veniside]

чем GetVersionEx() не устраивает?

[Shouldercannon]

Похоже она может определить только NT, XP and 2000

[veniside]

имхо, совсем не похоже )

Operating system	Version number	dwMajorVersion	dwMinorVersion	Other
Windows 7	6.1	6	1	OSVERSIONINFOEX.wProductType == VER_NT_WORKSTATION
Windows Server 2008 R2	6.1	6	1	OSVERSIONINFOEX.wProductType != VER_NT_WORKSTATION
Windows Server 2008	6.0	6	0	OSVERSIONINFOEX.wProductType != VER_NT_WORKSTATION
Windows Vista	6.0	6	0	OSVERSIONINFOEX.wProductType == VER_NT_WORKSTATION
Windows Server 2003 R2	5.2	5	2	GetSystemMetrics(SM_SERVERR2) != 0
Windows Home Server	5.2	5	2	OSVERSIONINFOEX.wSuiteMask & VER_SUITE_WH_SERVER
Windows Server 2003	5.2	5	2	GetSystemMetrics(SM_SERVERR2) == 0
Windows XP Professional x64 Edition	5.2	5	2	(OSVERSIONINFOEX.wProductType == VER_NT_WORKSTATION) && (SYSTEM_INFO.wProcessorArchitecture==PROCESSOR_ARCHITECTURE_AMD64)
Windows XP	5.1	5	1	Not applicable
Windows 2000	5.0	5	0	Not applicable

[Shouldercannon]

Как применить GetVersionEx()?

[Аватар]

В SysUtils процедура InitPlatformId вызывает эту функцию и формирует кучу глобальных констант

http://www.delphisources.ru/pages/fa...s_version.html
http://superadm.net/index.php?name=pages&op=view&id=180

[QunneD]

var
  Os : OSVERSIONINFO;
begin
  Os.dwOSVersionInfoSize := sizeof(Os);
  GetVersionEx(Os);

  if ((Os.dwMinorVersion = 1) and (Os.dwMajorVersion = 5)) then
  begin
    MessageBoxA(0, 'Windows XP', 'Title', 0);
  end
  else if ((Os.dwMinorVersion = 0) and (Os.dwMajorVersion = 6)) then
  begin
    MessageBoxA(0, 'Windows Vista', 'Title', 0);
  end
  else if ((Os.dwMinorVersion = 1) and (Os.dwMajorVersion = 6)) then
  begin
    MessageBoxA(0, 'Windows 7', 'Title', 0);
  end
  else
  begin
    MessageBoxA(0, 'Unknown version', 'Title', 0);
  end;

end;

Тоже самое на С++:

OSVERSIONINFO Os;
Os.dwOSVersionInfoSize = sizeof(Os);
GetVersionEx((LPOSVERSIONINFO)&Os);

if (Os.dwMajorVersion == 5 && Os.dwMinorVersion == 1)
{
	MessageBoxA(0, "Windows XP", "Title", 0);
} else if (Os.dwMajorVersion == 6 && Os.dwMinorVersion == 0)
{
	MessageBoxA(0, "Windows Vista", "Title", 0);
} else if (Os.dwMajorVersion == 6 && Os.dwMinorVersion == 1)
{
	MessageBoxA(0, "Windows 7", "Title", 0);	
} else
{
	MessageBoxA(0, "Unknown version", "Title", 0);	
}

Всё просто, не правда ли?