Jak zjistit, které 32bitové verze systému Windows je používán

Překlady článku Překlady článku
ID článku: 189249 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Aplikace pravděpodobně muset provádět úkoly odlišně v závislosti na operačním systému je v počítači spuštěna. Tento článek popisuje příkladem, jak rozlišit systému Microsoft Windows 95, Microsoft Windows 98, Microsoft Windows NT 3.51, systému Microsoft Windows NT 4.0, Microsoft Windows 2000 a systému Microsoft Windows XP.

Funkce Win32 GetVersionEx vrátí informace, programu, můžete použít k identifikaci operačního systému. Mezi tyto hodnoty jsou čísla hlavní a dílčí revize a identifikátor platformu. Uvedení systému Windows 98 trvá nyní více zúčastněných logické hodnocení, chcete-li zjistit, jakou verzi systému Windows je používán. Výpis pod poskytuje údaje potřebné k vyhodnocení OSVERSIONINFO struktury naplněna funkcí GetVersionEx:
Zmenšit tuto tabulkuRozšířit tuto tabulku
Systém Windows 95Systém Windows 98Windows MESystém Windows NT 4.0Systém Windows 2000Systém Windows XP
PlatformID 1 1 1 2 2 2
Hlavní verze 4 4 4 4 5 5
Dílčí verze. 0 10 90 0 0 1

Další informace

Podrobný příklad

  1. Spuštění nového projektu standardní EXE v jazyce Visual Basic. Ve výchozím nastavení je vytvořena Form1.
  2. Z nabídky projekt do projektu přidat Standardní modul.
  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. Přidejte následující řádek kódu k události Load Form1:
    MsgBox GetVersion()
    					
  5. Spuštění projektu a poznamenejte si, že se zobrazí okno se zprávou správnou verzi systému Windows.

Odkazy

Další informace získáte následujícím článku báze Microsoft Knowledge Base:
92936Získání čísla verze systému Windows 3.1 v jazyce Visual Basic s GetVersion

Vlastnosti

ID článku: 189249 - Poslední aktualizace: 3. září 2004 - Revize: 3.0
Informace v tomto článku jsou určeny pro produkt:
  • 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
Klíčová slova: 
kbmt kbhowto KB189249 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:189249

Dejte nám zpětnou vazbu

 

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