Comment puis-je détecter la version de l'OS ( 95/98/Nt etc... ) ?
Mettez ce Code dans un Module :
Source / Exemple :
Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Global MonOs As OSVERSIONINFO
Public Const VER_PLATFORM_WIN32_NT = 2
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32s = 0
' Puis mettez ceode dans le code de Votre Formulaire :
Public Sub Form_Load()
Dim L As Long
MonOs.dwOSVersionInfoSize = Len(MonOs)
L = GetVersionEx(MonOs)
Msg$ = ""
Select Case MonOs.dwPlatformId
Case VER_PLATFORM_WIN32_NT
Msg$ = Msg$ & "Windows NT "
Case VER_PLATFORM_WIN32_WINDOWS
Msg$ = Msg$ & "Windows 95 / 98"
Case VER_PLATFORM_WIN32s
Msg$ = Msg$ & "Win32S sous Windows 3.x (!)"
End Select
Msg$ = Msg$ & "Version " & Str$(MonOs.dwMajorVersion) & "."
Msg$ = Msg$ & Str$(MonOs.dwMinorVersion) & "."
Msg$ = Msg$ & Str$(MonOs.dwBuildNumber) & "."
Msg$ = Msg$ & MonOs.szCSDVersion
MsgBox Msg$
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.