Detection de l'os


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

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)