Hangi 32-bit Windows sürümü kullanılan belirleme

ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.

Makalenin İngilizcesi aşağıdaki gibidir:189249
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Özet
Bir uygulama, farklı bağlı olarak hangi işletim sistemini bilgisayarda çalışan görevleri gerçekleştirmek gerekebilir. Bu makalede, örnek, Microsoft Windows 95, Microsoft Windows 98, Microsoft Windows NT 3.51, Microsoft Windows NT 4.0, Microsoft Windows 2000 ve Microsoft Windows XP arasında ayrım gösterilmiştir.

Win32 GetVersionEx işlevi, bir programı, işletim sistemini belirlemek için kullanabileceğiniz bilgileri döndürür. Bu değerler arasında birincil ve ikincil sürüm numaralarını ve bir platform tanımlayıcısı olan. Windows 98'in giriş ile şu anda kullanımda hangi Windows sürümünü belirlemek için daha karmaşık bir mantıksal değerlendirme alır. Listenin altındaki GetVersionEx işlevi tarafından doldurulan OSVERSIONINFO yapısını değerlendirmeniz için gerekli veri sağlar:
Windows 95Windows 98,Windows MeWindows NT 4.0WINDOWS 2000WINDOWS XP
PlatformID 1 1 1 2 2 2
Ana sürüm 4 4 4 4 5 5
Alt sürüm 0 10 90 0 0 1
Daha fazla bilgi

Adım adım örnek

  1. Yeni bir proje standart exe DOSYASı, Visual Basic'te başlatın. Varsayılan olarak, Form1 oluşturulur.
  2. Proje menüsünden bir Standart modül projeye ekleyin.
  3. Insert the following code into 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 <a1>Load</a1> olayı aşağıdaki kod satırını ekleyin:
    MsgBox GetVersion()					
  5. Projeyi çalıştırın ve bir ileti kutusu doğru Windows sürümünü görüntülediğini unutmayın.
Referanslar
Ek bilgi için, Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
92936VB GetVersion ile Windows 3.1 sürüm numarası alma

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 189249 - Son İnceleme: 12/05/2015 08:55:48 - Düzeltme: 3.0

Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 4.0 Standard Edition, Microsoft Visual Basic 4.0 Professional Edition, Microsoft Visual Basic for Applications 5.0

  • kbnosurvey kbarchive kbmt kbhowto KB189249 KbMttr
Geri bildirim
ERROR: at System.Diagnostics.Process.Kill() at Microsoft.Support.SEOInfrastructureService.PhantomJS.PhantomJSRunner.WaitForExit(Process process, Int32 waitTime, StringBuilder dataBuilder, Boolean isTotalProcessTimeout)