Visual Basic FAQ

Как определить версию 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

Запись опубликована on 29.01.2009 at 9:00 и размещена в рубрике: Windows. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.