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
12 déc. 2003 à 19:35
Public Function IsWin2KXP() As Boolean
Dim oviInfo As OSVERSIONINFO
GetVersionEx oviInfo
If oviInfo.dwMajorVersion >= 5 And VER_PLATFORM_WIN32_NT Then
IsWin2KXP = True
End If
End Function
oviInfo.dwMajorVersion >= 5 :
en effet sous XP et 2000 ca retourne True, sous Millenium je sais pas.
3 sept. 2002 à 22:07
acidtoxik comment on fait pour determiner l'os par la base de registre ?
6 juil. 2002 à 16:03
en plus avec 2k y faut faire la diffférence entre pro, adv et srv !
12 mai 2002 à 17:13
13 nov. 2001 à 10:04
Bon courage :o)
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.