Ex. concrets ! version de windows

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 892 fois - Téléchargée 41 fois

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

Ajouter un commentaire

Commentaires

Messages postés
138
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
17 mai 2007

C'est vrai, mais j'ai pas trouvé mieux...
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

Bah c'est pas très précis......

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.