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

Makale çevirileri Makale çevirileri
Makale numarası: 189249 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Ö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:
Bu tabloyu kapaBu tabloyu aç
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

Özellikler

Makale numarası: 189249 - Last Review: 3 Eylül 2004 Cuma - Gözden geçirme: 3.0
Bu makaledeki bilginin uygulandığı durum:
  • 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
Anahtar Kelimeler: 
kbmt kbhowto KB189249 KbMttr
Machine-translated Article
Ö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

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com