Come determinare quale versione di Windows a 32 bit viene utilizzato.

Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell’utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell’utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.

Clicca qui per visualizzare la versione originale in inglese dell’articolo: 189249
Questo articolo è stato archiviato. L’articolo, quindi, viene offerto “così come è” e non verrà più aggiornato.
Sommario
Un'applicazione potrebbe essere necessario eseguire attività in modo diverso a seconda di quale sistema operativo è in esecuzione sul computer. In questo articolo viene illustrato, da esempio, come distinguere tra Microsoft Windows 95, Microsoft Windows 98, Microsoft Windows NT 3.51, Microsoft Windows NT 4.0, Microsoft Windows 2000 e Microsoft Windows XP.

La funzione Win32 GetVersionEx restituisce informazioni che un programma può utilizzare per identificare il sistema operativo. Tra tali valori sono i numeri di revisione principali e secondarie e un identificatore di piattaforma. Con l'introduzione di Windows 98, accetta ora una valutazione logica più complessa per determinare quale versione di Windows in uso. L'elenco seguente fornisce i dati necessari per valutare la struttura OSVERSIONINFO popolata con la funzione GetVersionEx :
Windows 95Windows 98Windows MeWindows NT 4.0Windows 2000Windows XP
PlatformID 1 1 1 2 2 2
Numero di versione principale 4 4 4 4 5 5
Numero di versione secondario 0 10 90 0 0 1
Informazioni

Procedura di esempio

  1. Avviare un nuovo progetto EXE standard in Visual Basic. In base all'impostazione predefinita, viene creato il progetto Form1.
  2. Dal menu progetto , aggiungere un Modulo Standard al progetto.
  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. Aggiungere la seguente riga di codice all'evento Load di Form1:
    MsgBox GetVersion()					
  5. Eseguire il progetto e una finestra di messaggio viene visualizzata la versione corretta di Windows.
Riferimenti
Per ulteriori informazioni, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito riportato:
92936Come ottenere il numero di versione di Windows 3.1 in VB con GetVersion

Avviso: questo articolo è stato tradotto automaticamente

Proprietà

ID articolo: 189249 - Ultima revisione: 12/05/2015 08:55:45 - Revisione: 3.0

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

  • kbnosurvey kbarchive kbmt kbhowto KB189249 KbMtit
Feedback