Cara menentukan versi Windows 32-bit yang sedang digunakan

ID Artikel: 189249 - Melihat produk di mana artikel ini berlaku.

Peringatan: artikel ini adalah terjemahan oleh mesin

Klik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan

Perbesar semua | Perkecil semua

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 95	Windows 98	Windows Me	Windows NT 4.0	Windows 2000	Windows XP
PlatformID	1	1	1	2	2	2
Mayor versi	4	4	4	4	5	5
Versi kecil	0	10	90	0	0	1

Kembali ke atas | Berikan Masukan

INFORMASI LEBIH LANJUT

Contoh langkah demi langkah

Memulai sebuah proyek Standard EXE yang baru dalam Visual Basic. Form1 dibuat secara default.
Dari Project menu, menambahkan Modul standar untuk proyek.

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

Tambahkan baris berikut kode untuk Beban acara Form1:
MsgBox GetVersion()
Menjalankan proyek, dan perhatikan bahwa kotak pesan menampilkan versi Windows yang benar.

Kembali ke atas | Berikan Masukan

REFERENSI

Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:

92936

(http://support.microsoft.com/kb/92936/ )

Bagaimana untuk mendapatkan nomor versi Windows 3.1 di VB dengan GetVersion

Kembali ke atas | Berikan Masukan

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

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

(http://support.microsoft.com/kb/189249/en-us/ )

Kembali ke atas | Berikan Masukan