Ex. concrets ! version de windows

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 026 fois - Téléchargée 43 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
Ludolpif
Messages postés
138
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
17 mai 2007

10 août 2002 à 10:46
C'est vrai, mais j'ai pas trouvé mieux...
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

10 août 2002 à 03:10
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.