Soyez le premier à donner votre avis sur cette source.
Snippet vu 2 922 fois - Téléchargée 41 fois
Private Declare Function GetVersionEx Lib "Kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 ' Maintenance pour utilisation de PSS : Pas utile ! End Type Private Sub Form_Load() Dim os As OSVERSIONINFO os.dwOSVersionInfoSize = Len(os) GetVersionEx os If os.dwPlatformId = 1 Then Label1.Caption = "Win 9x/ME " Else Label1.Caption = "Win NT/XP " Label1.Caption = Label1.Caption + "version : " & os.dwMajorVersion & "." & os.dwMinorVersion & " Build : " & os.dwBuildNumber 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.