Cara menentukan versi Windows 32-bit yang sedang digunakan

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
Artikel ini telah diarsipkan. Artikel ditawarkan dalam bentuk "apa adanya" dan tidak akan dapat diperbarui lagi.
RINGKASAN
Aplikasi mungkin perlu melakukan tugas-tugas yang berbeda tergantung pada yangsistem 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 programuntuk mengidentifikasi sistem operasi. Di antara nilai-nilai yang utama danangka revisi kecil dan pengidentifikasi platform. Dengan diperkenalkannyaWindows 98, sekarang membutuhkan lebih terlibat evaluasi logis untuk menentukanVersi Windows yang digunakan. Daftar di bawah ini menyediakan datadiperlukan untuk mengevaluasi struktur OSVERSIONINFO yang dihuni oleh GetVersionEx fungsi:
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

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 189249 - Tinjauan Terakhir: 12/05/2015 08:55:45 - Revisi: 2.0

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

  • kbnosurvey kbarchive kbhowto kbmt KB189249 KbMtid
Tanggapan