Как определить, используется 32-разрядной версии Windows

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке:189249
Эта статья помещена в архив. Она предлагается "как есть" и обновляться не будет.
Аннотация
Возможно, потребуется выполнить задачи по-разному зависимости приложенияоперационная система работает на компьютере. В этой статье показано, по образцу, различать Microsoft Windows 95, Microsoft Windows 98, NT 3.51 окно Microsoft, Microsoft Windows NT 4.0, Microsoft Windows 2000 и Microsoft Windows XP.

Win32 Помощью GetVersionEx функция возвращает сведения, которые можно использовать программудля определения операционной системы. Между этими значениями являются основной иномера редакции и идентификатор платформы. С появлениемWindows 98, теперь занимает более сложной логической оценки, определениякакая версия Windows уже используется. Список ниже содержит данныенеобходимые для оценки структуры OSVERSIONINFO, путем Помощью GetVersionEx функции:
Windows 95Windows 98Windows MeWindows NT 4.0Windows 2000Windows XP
Идентификатор платформы 1 1 1 2 2 2
Основная версия 4 4 4 4 5 5
Дополнительный номер версии 0 10 90 0 0 1
Дополнительная информация

Пошаговый пример

  1. Начать новый стандартный exe-проект в Visual Basic. По умолчанию создается форма Form1.
  2. Из Проект меню, добавление Стандартный модуль в проект.
  3. Вставьте следующий код в Module1:
          Public Declare Function GetVersionExA Lib "kernel32" _               (lpVersionInformation As OSVERSIONINFO) As Integer             Public Type OSVERSIONINFO               dwOSVersionInfoSize As Long               dwMajorVersion As Long               dwMinorVersion As Long               dwBuildNumber As Long               dwPlatformId As Long               szCSDVersion As String * 128            End Type             Public Function getVersion() As String               Dim osinfo As OSVERSIONINFO               Dim retvalue As Integer                osinfo.dwOSVersionInfoSize = 148               osinfo.szCSDVersion = Space$(128)               retvalue = GetVersionExA(osinfo)                With osinfo               Select Case .dwPlatformId                 Case 1                                    Select Case .dwMinorVersion                        Case 0                            getVersion = "Windows 95"                        Case 10                            getVersion = "Windows 98"                        Case 90                            getVersion = "Windows Millennium"                    End Select                    Case 2                    Select Case .dwMajorVersion                        Case 3                            getVersion = "Windows NT 3.51"                        Case 4                            getVersion = "Windows NT 4.0"                        Case 5                            If .dwMinorVersion = 0 Then                                getVersion = "Windows 2000"                            Else                                getVersion = "Windows XP"                            End If                    End Select                    Case Else                   getVersion = "Failed"            End Select                End With            End Function					
  4. Добавьте следующий код для Загрузка События Form1:
    MsgBox GetVersion()					
  5. Запустите проект и обратите внимание, что окно сообщения отобразит правильную версию Windows.
Ссылки
Для получения дополнительных сведений щелкните следующий номер статьи базы знаний Майкрософт:
92936Как получить номер версии Windows 3.1 в VB с GetVersion

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 189249 — последний просмотр: 12/05/2015 08:55:47 — редакция: 4.0

, , , ,

  • kbnosurvey kbarchive kbhowto kbmt KB189249 KbMtru
Отзывы и предложения
ERROR: at System.Diagnostics.Process.Kill() at Microsoft.Support.SEOInfrastructureService.PhantomJS.PhantomJSRunner.WaitForExit(Process process, Int32 waitTime, StringBuilder dataBuilder, Boolean isTotalProcessTimeout)