Ako zistiť, ktoré 32-bitová verzia systému Windows používa

Preklady článku Preklady článku
ID článku: 189249 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

Žiadosť bude musieť vykonávať úlohy různě v závislosti na ktoré v počítači je spustený operačný systém. Tento článok ukazuje príklad, ako rozlíšiť medzi Microsoft Windows 95, Microsoft Windows 98, Microsoft okno NT 3.51, Microsoft Windows NT 4.0, Microsoft Windows 2000 a Microsoft Windows XP.

Win32 GetVersionEx Funkcia vráti informácie, ktoré môžu používať program identifikovať operačného systému. Medzi tieto hodnoty sú hlavnými a menšej revízie čísla a identifikátor platformu. So zavedením Systém Windows 98, teraz sa berie viac zapojiť logické hodnotenie na určenie ktorú verziu systému Windows sa používa. Výpis nižšie obsahuje údaje potrebné na hodnotenie OSVERSIONINFO štruktúra osídlených GetVersionEx Funkcia:
Zbaliť túto tabuľkuRozbaliť túto tabuľku
Systém Windows 95Windows 98Windows MeWindows NT 4.0Windows 2000Windows XP
PlatformID 1 1 1 2 2 2
Hlavná verzia 4 4 4 4 5 5
Vedľajšia verzia 0 10 90 0 0 1

DALSIE INFORMACIE

Podrobný príklad

  1. Začať nový štandard EXE projekt v jazyku Visual Basic. Form1 sa vytvorí na základe predvoleného nastavenia.
  2. Z Project v ponuke pridať Štandardný modul na projekte.
  3. Vložte nasledujúci kód do 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. Pridajte nasledovný riadok kódu Zaťaženie udalosť Form1:
    MsgBox GetVersion()
    					
  5. Spustenie projektu, a Všimnite si, že okno s hlásením zobrazí správnu verziu systému Windows.

ODKAZY

Ďalšie informácie získate po kliknutí na nasledujúce číslo článku databázy Microsoft Knowledge Base:
92936Ako získať číslo verzie systému Windows 3.1 v VB s GetVersion

Vlastnosti

ID článku: 189249 - Posledná kontrola: 19. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • 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
Kľúčové slová: 
kbhowto kbmt KB189249 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:189249

Odošlite odozvu

 

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