Discussion :

[marsouin_89]

Bonsoir à tous,

J'utilise le code quivant pour connaitre ma version Windows.
Lorsque je suis sur un PC en SEVEN, comment faire pour savoir si je suis en 32 ou 64 bits ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Function Syst_GetVersNumber() As Long
'Vérifie la version Windows
 
    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
                        Syst_GetVersNumber = 1    ' Windows 95
                    Case 10
                        Syst_GetVersNumber = 2    ' Windows 98
                    Case 90
                        Syst_GetVersNumber = 3    ' Windows Me
                End Select
 
            Case 2
                Select Case .dwMajorVersion
                    Case 0
                        Syst_GetVersNumber = 6    ' Windows NT 3.51
                    Case 4
                        Syst_GetVersNumber = 7    ' Windows NT 4.0
                    Case 5
                        If .dwMinorVersion = 0 Then
                            Syst_GetVersNumber = 4  ' Windows 2000
                        Else
                            Syst_GetVersNumber = 5  ' Windows XP
                        End If
                    Case 6
                        If .dwMinorVersion = 0 Then
                            Syst_GetVersNumber = 8  ' Vista
                        Else
                            Syst_GetVersNumber = 9  ' Win 7
                        End If
                End Select
 
            Case Else
                Syst_GetVersNumber = 10  ' Echec
        End Select
    End With
End Function

Merci beaucoup

Cordialement

Christophe

[Arkham46]

Bjr,

Essaye ceci :
http://www.developpez.net/forums/d11...32b-seven-64b/

[marsouin_89]

Bonjour Thierry,

Je ne dirais qu'une chose :
Une fois de plus, c'est parfait.

Bon dimanche

Cordialement

Christophe