04/05/2024 		Windev et les Api WindowsNb de visiteurs en ligne : 1
>> Introduction << >> Codes et Forum << >> Download <<

Rubrique : 1 - Windows Général       Sujet : Récupérer la version de Windows
Auteur Message
 °¨¨ JL ¨¨° Posté le : 23/06/2000 12:00:00

// Récupérer la version de Windows

Osv est compose de
    dwOSVersionInfoSize est un entier long
    dwMajorVersion est un entier long
    dwMinorVersion est un entier long
    dwBuildNumber est un entier long
    dwPlatformId est un entier long
    szCSDVersion est une chaine asciiz de 128
fin
Osv.dwOSVersionInfoSize=dimension(osv)

wversion est une chaine

AppelDLL32("kernel32" , "GetVersionExA" , &Osv)
selon Osv.dwPlatformId
    cas 0 : wversion="Windows 3.1"
    cas 1 :  
        si Osv.dwMinorVersion alors
            wversion="Windows 98"
        sinon
            wversion="Windows 95"
        fin
    cas 2 :
        si osv.dwMajorVersion=3 alors
            wversion="Windows NT 3.5"
        fin
        si osv.dwMajorVersion=4 alors
            wversion="Windows NT 4"
        fin
        si osv.dwMajorVersion=5 alors
            wversion="Windows 2000/XP"
        fin
fin