Определение версии ОС и DivX

[yulia]

Подскажите, пожалуйста, как можно вывести версию ОС и версию DivX?

[Terran]

Сообщение от yulia

Подскажите, пожалуйста, как можно вывести версию ОС?

Версию ОС можно вывести так:

Function WindowsVersion: String;
Var
Info: _OSVERSIONINFOA;
cSystem: String;
Begin
Info.dwOSVersionInfoSize:=SizeOf(Info);
GetVersionEx(Info);
If Info.dwPlatformId = VER_PLATFORM_WIN32_NT Then
cSystem:='Windows NT '
Else
If Info.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
cSystem:='Windows 95/98 '
Else
If Info.dwPlatformId = VER_PLATFORM_WIN32s Then
cSystem:='Win32s '
Else
cSystem:='Unknown';
cSystem:=cSystem + IntToStr(Info.dwMajorVersion) + '.' + IntToStr(Info.dwMinorVersion);
cSystem:=cSystem + ' ' + Trim(IntToStr(Info.dwBuildNumber)) + ' ' + Trim(Info.szCSDVersion);;
WindowsVersion:=cSystem;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:=WindowsVersion;
End;

[yulia]

Спасибо, оно определяет, но как-то странно... У меня стоит Windows XP SP2, а оно мне пишет, что у меня Windows NT SP2... Почему? Хотя по коду там варианта XP вообще нету, но ведь вроде должно тогда писать Win32s или Unknown.... Или я что-то не так понимаю?

[eoln]

XP - разновидность NT
Проверяем в вышеуказанном коде Info.dwMajorVersion, Info.dwMinorVersion и Info.szCSDVersion[1], исходя из таблицы узнаём версию

для VER_PLATFORM_WIN32_NT:
dwMajorVersion = 4 WinNT
dwMajorVersion = 5:
dwMinorVersion = 0 Win2000
dwMinorVersion = 1 XP

для VER_PLATFORM_WIN32_WINDOWS:
dwMajorVersion = 4:
dwMinorVersion = 0 Win95
dwMinorVersion = 10:
Info.szCSDVersion[1] = 'A' Win98SE
Info.szCSDVersion[1] <> 'A' Win98
dwMinorVersion = 90 WinME

[yulia]

Спасибо большое )))