Ex. concrets ! version de windows

Commenter

Contenu du snippet

Cette série de noyaux de code ou d'outils, peuvent être utilisés pour créer des programmes entiers, beaucoup plus simplement.
Très peu sont directement de moi, mais souvent décortiqués afin de les rendre beaucoup plus compréhensible et simple de ré-utilisation.

Dans un nouveau projet, mettez un label dans un form, et collez le code suivant.

Source / Exemple : 


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

Conclusion :


Par contre je n'ai pas le détail des OS : Win 95 ou 98 ou ME ...

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 (Ludolpif)