Определение версии Окон

[Sirik]

Знаю что вопрос из рода "часто задаваемых", но всё же:
как можно определить версию Windows?
Мне надо различать либо версия (9х) либо - (2k,XP).

[timsoft]

что-то типа такого:

Код: Выделить всё


Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInfo As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
   dwVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion(0 To 127) As Byte
End Type

.....

  Dim tOSV As OSVERSIONINFO
  tOSV.dwVersionInfoSize = Len(tOSV)
  GetVersionEx tOSV
  If (tOSV.dwMajorVersion >= 5) Then
      .....



вот тут вроде написано подробно
http://support.microsoft.com/default.aspx?scid=kb;EN-US;189249

[Sirik]

Да, это оно.
Только если бы было описание tOSV.dwMajorVersion.
Т.е. какому числу отвечает версия.
Например: Xp-5, Me-4 и т.д.

[timsoft]

я ж и говорю, вот тут рассусолено:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;189249

[tyomitch]

я ж и говорю, вот тут рассусолено:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;189249

Там нехватает версий Win32s, WinNT3.1, и WinNT3.5!!

[Sirik]

я ж и говорю, вот тут рассусолено:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;189249

Сорри, не увидел линк. А так вроде то, что искал.
Всем спасибо