Cara menentukan versi Windows 32-bit yang sedang digunakan

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 189249 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Aplikasi mungkin perlu melakukan tugas-tugas yang berbeda tergantung pada yang sistem operasi berjalan di komputer. Artikel ini menunjukkan, dengan contoh, bagaimana membedakan antara Microsoft Windows 95, Microsoft Windows 98, Microsoft jendela NT 3.51, Microsoft Windows NT 4.0, Microsoft Windows 2000 dan Microsoft Windows XP.

Win32 GetVersionEx fungsi mengembalikan informasi yang dapat menggunakan program untuk mengidentifikasi sistem operasi. Di antara nilai-nilai yang utama dan angka revisi kecil dan pengidentifikasi platform. Dengan diperkenalkannya Windows 98, sekarang membutuhkan lebih terlibat evaluasi logis untuk menentukan Versi Windows yang digunakan. Daftar di bawah ini menyediakan data diperlukan untuk mengevaluasi struktur OSVERSIONINFO yang dihuni oleh GetVersionEx fungsi:
Perkecil tabel iniPerbesar tabel ini
Windows 95Windows 98Windows MeWindows NT 4.0Windows 2000Windows XP
PlatformID 1 1 1 2 2 2
Mayor versi 4 4 4 4 5 5
Versi kecil 0 10 90 0 0 1

INFORMASI LEBIH LANJUT

Contoh langkah demi langkah

  1. Memulai sebuah proyek Standard EXE yang baru dalam Visual Basic. Form1 dibuat secara default.
  2. Dari Project menu, menambahkan Modul standar untuk proyek.
  3. Masukkan kode berikut ke 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. Tambahkan baris berikut kode untuk Beban acara Form1:
    MsgBox GetVersion()
    					
  5. Menjalankan proyek, dan perhatikan bahwa kotak pesan menampilkan versi Windows yang benar.

REFERENSI

Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
92936Bagaimana untuk mendapatkan nomor versi Windows 3.1 di VB dengan GetVersion

Properti

ID Artikel: 189249 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual Basic 5.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 4.0 Standard Edition
Kata kunci: 
kbhowto kbmt KB189249 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:189249

Berikan Masukan