Detection de l'os

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 976 fois - Téléchargée 97 fois


Commenter

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

Signaler
VbMaster
Messages postés
21
Date d'inscription
mardi 26 novembre 2002
Statut
Membre
Dernière intervention
15 avril 2004
 -
Pour savoir si on est sous 2000 ou XP :

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.
Signaler
cs_Cendra
Messages postés
56
Date d'inscription
mardi 27 août 2002
Statut
Membre
Dernière intervention
4 février 2008
 -
serai bien d'ajouter ME et XP ...

acidtoxik comment on fait pour determiner l'os par la base de registre ?
Signaler
Fufroma
Messages postés
1
Date d'inscription
samedi 6 juillet 2002
Statut
Membre
Dernière intervention
6 juillet 2002
 -
et pour windows 2000 ????
en plus avec 2k y faut faire la diffférence entre pro, adv et srv !
Signaler
acidtoxik
Messages postés
28
Date d'inscription
dimanche 12 mai 2002
Statut
Membre
Dernière intervention
2 janvier 2008
 -
pas mal mais yavais plus simple t'allais lire dans la base de registre la version et pis voila !!!
Signaler
-
Merci pour ce petit code bien pratique et qui m'a rendu un grand service tout en me faisant gagner du temps...

Bon courage :o)
S'inscrire maintenant

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.

Du même auteur (Nix)