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

'http://www.cyberforum.ru/vba/thread323756.html

'\\----------------------------------------------------------------------------------------

Private Declare Function GetVersion Lib "kernel32" () As Long

Public Function GetWinVersion() As String

Dim Ver As Long, WinVer As Long

Ver = GetVersion()

WinVer = Ver And &HFFFF&

'retrieve the windows version

GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")

End Function

Private Sub Form_Load()

'KPD-Team 1999

'URL: [url]http://www.allapi.net/[/url]

'E-Mail: [email]KPDTeam@Allapi.net[/email]

Dim lngVer As Long

lngVer = CInt(GetWinVersion)

MsgBox "Windows version: " + GetWinVersion

End Sub

''\\----------------------------------------------------------------------------------------

'Option Explicit

'

'Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

'Private Type OSVERSIONINFO

'dwOSVersionInfoSize As Long

'dwMajorVersion As Long

'dwMinorVersion As Long

'dwBuildNumber As Long

'dwPlatformId As Long

'szCSDVersion As String * 128

'End Type

'

'Private Sub Операционная_система_установленная_на_компьютере()

'

'Dim OSInfo As OSVERSIONINFO

'OSInfo.dwOSVersionInfoSize = Len(OSInfo)

'Dim PId As String

'

'If GetVersionEx(OSInfo) = 0 Then MsgBox$ "Error Getting Version Information": Exit Sub

' Select Case OSInfo.dwPlatformId

' Case 0

' PId = "Windows 32s"

' Case 1

' PId = "Windows 95/98"

' Case 2

' PId = "Windows NT"

' End Select

'

'Dim OS As String 'XP - Windows NT

' OS = "OS: " + PId

'Dim WinVersion As String

' 'XP - 5,1

' WinVersion = "Win version:" + Str$(OSInfo.dwMajorVersion) + "." + LTrim(Str(OSInfo.dwMinorVersion))

'

'Dim Build As String

' 'XP - 2600

' 'Build - существительное - телосложение, стать, конструкция, образование, комплекция, форма, стиль

' 'Build - глагол - строить, создавать, основываться, возводить, соорудить, устанавливать, сооружать, полагаться, вить

' Build = "Build: " + Str(OSInfo.dwBuildNumber)

'

'MsgBox$ OS & Chr(13) & WinVersion & Chr(13) & Build

'

'End Sub

''\\----------------------------------------------------------------------------------------

''определяем версию Windows

''нет информации как определить Висту и Семерку

''если без Option Explicit ошибка 424,а сним выделяет osInfo. как уладить все ошибки????

'Select Case OSInfo.dwPlatformId & Str$(OSInfo.dwMajorVersion) & LTrim$(Str(OSInfo.dwMinorVersion))

' Case 140

' Label1.Caption = "Установлена: Windows 95"

' Case 1410

' Label1.Caption = "Установлена: Windows 98"

' Case 1490

' Label1.Caption = "Установлена: Windows Me"

' Case 240

' Label1.Caption = "Установлена: Windows NT 4.0"

' Case 250

' Label1.Caption = "Установлена: Windows 2000"

' Case 251

' Label1.Caption = "Установлена: Windows XP"

' Case 252

' Label1.Caption = "Установлена: Windows Server 2003"

' Case Else

' Label1.Caption = "Установлена: ???"

'End Select

''\\----------------------------------------------------------------------------------------