29
Январь
2009
Как определить версию Windows?
Как определить версию Windows?
'Свойство TextBox Multiline установите в True Option Explicit 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 Declare Function GetVersionEx Lib _ "kernel32" Alias "GetVersionExA" _ (lpVersionInformation As OSVERSIONINFO) As Long Private Sub Form_Load() 'Multiline = True Dim lngOS As OSVERSIONINFO, strName As String Dim strVer As String Me.AutoRedraw = True lngOS.dwOSVersionInfoSize = Len(lngOS) strVer = GetVersionEx(lngOS) Select Case lngOS.dwPlatformId Case 0 strName = "Windows 32s" Case 1 strName = "Windows 95/98" Case 2 strName = "Windows NT" End Select Text1.Text = "" Text1.Text = "Операционка: " + strName & vbCrLf & "Версия винды:" _ + Str$(lngOS.dwMajorVersion) + "." _ + LTrim$(Str(lngOS.dwMinorVersion)) _ & vbCrLf & "Build: " + Str$(lngOS.dwBuildNumber) End Sub