Определение операционной системы

← →
Магнум (2005-06-10 14:55) [0]

Порекомендуйте, плиз, надежную функцию для определения операционной системы.

← →
Digitman © (2005-06-10 15:04) [1]

GetVersionEx

← →
nes © (2005-06-10 15:07) [2]

Вот с борландских примерах так:
procedure TForm1.GetOSInfo;
var
Platform: string;
BuildNumber: Integer;
begin
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS:
begin
Platform := "Windows 95";
BuildNumber := Win32BuildNumber and $0000FFFF;
end;
VER_PLATFORM_WIN32_NT:
begin
Platform := "Windows NT";
BuildNumber := Win32BuildNumber;
end;
else
begin
Platform := "Windows";
BuildNumber := 0;
end;
end;
if (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) or
(Win32Platform = VER_PLATFORM_WIN32_NT) then
begin
if Win32CSDVersion = "" then
OS.Caption := Format("%s %d.%d (Build %d)", [Platform, Win32MajorVersion,
Win32MinorVersion, BuildNumber])
else
OS.Caption := Format("%s %d.%d (Build %d: %s)", [Platform, Win32MajorVersion,
Win32MinorVersion, BuildNumber, Win32CSDVersion]);
end
else
OS.Caption := Format("%s %d.%d", [Platform, Win32MajorVersion,
Win32MinorVersion])
end;

← →
Магнум (2005-06-10 17:21) [3]

Что-то она возвращает не то.

Для моей Windows XP вернула Windows NT 5.1

и правильно вернула.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/osversioninfo_str.asp

Определение операционной системы Найти похожие ветки