IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

API, COM et SDKs Delphi Discussion :

Détecter windows 7 avec GetVersionEx ?


Sujet :

API, COM et SDKs Delphi

  1. #1
    Membre confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Février 2007
    Messages
    113
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ardèche (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2007
    Messages : 113
    Par défaut Détecter windows 7 avec GetVersionEx ?
    Bonjour à tous

    je détecte les versions de windows avec ce code, sous D2007:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    function VersionWindows:TVersionWindows;
    var OSv : OsVersionInfo;
    begin
      OSv.dwOSVersionInfoSize := SizeOf (OSv);
      GetVersionEx (OSv);
      case OSv.dwPlatformId of
        VER_PLATFORM_WIN32_NT: case OSv.dwMajorVersion of
                                 3 : Result := WIN_NT351;
                                 4 : Result := WIN_NT4;
                                 5 : case Osv.dwMinorVersion of
                                       0 : Result := WIN_2000;
                                       1 : Result := Win_XP;
                                       2 : Result := Win_2003S;
                                       else Result := WinError;
                                     end;
                                 6 : Result := WIN_Vista;
                                 else Result := WINError;
                               end;
        VER_PLATFORM_WIN32_WINDOWS:
             if (OSv.dwMajorVersion > 4) or
                ( (OSv.dwMajorVersion = 4) and (OSv.dwMinorVersion > 0) )
                then Result := WIN_98 else Result := WIN_95;
        VER_PLATFORM_WIN32s: Result := Win_32s;
          else Result := WINError;
      end;
    end;
    et TVersionWindows = (WIN_95,WIN_98,WIN_32s,WIN_NT351,WIN_NT4,WIN_2000,WIN_2003S,
    WIN_XP,WIN_Vista,WINError);

    --->
    ---> Comment détecter le nouveau windows 7. Je trouve rien sur MSDN...

    Merci
    Pascal 07

  2. #2
    Rédacteur/Modérateur
    Avatar de Andnotor
    Inscrit en
    Septembre 2008
    Messages
    5 934
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Septembre 2008
    Messages : 5 934
    Par défaut
    Seven est la version 6.1

  3. #3
    Membre Expert

    Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Août 2002
    Messages
    1 296
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels

    Informations forums :
    Inscription : Août 2002
    Messages : 1 296
    Par défaut
    Euh tu n'as pas cherché bien longtemps sur msdn...

    GetVersionEx puis un clic sur OSVERSIONINFO ou sur OSVERSIONINFOEX et tu auras toutes les informations que tu cherches.

  4. #4
    Membre Expert Avatar de guillemouze
    Profil pro
    Inscrit en
    Novembre 2004
    Messages
    876
    Détails du profil
    Informations personnelles :
    Âge : 42
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Novembre 2004
    Messages : 876
    Par défaut
    windows 7 version 6.1, ils sont malins chez microsoft

  5. #5
    Inactif  
    Avatar de Mac LAK
    Profil pro
    Inscrit en
    Octobre 2004
    Messages
    3 893
    Détails du profil
    Informations personnelles :
    Âge : 51
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations forums :
    Inscription : Octobre 2004
    Messages : 3 893
    Par défaut
    Citation Envoyé par guillemouze Voir le message
    windows 7 version 6.1, ils sont malins chez microsoft
    Parce que ce numéro interne est basé sur le kernel plus que sur la version commerciale "finale" de l'OS...

    Et côté pub, prononce (à l'anglaise) "Windows six", et tu comprendras très vite pourquoi "Seven" est plus sympathique pour le marketing...
    Mac LAK.
    ___________________________________________________
    Ne prenez pas la vie trop au sérieux, de toutes façons, vous n'en sortirez pas vivant.

    Sources et composants Delphi sur mon site, L'antre du Lak.
    Pas de question technique par MP : posez-la dans un nouveau sujet, sur le forum adéquat.

    Rejoignez-nous sur : Serveur de fichiers [NAS] Le Tableau de bord projets Le groupe de travail ICMO

  6. #6
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 615
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 615
    Billets dans le blog
    65
    Par défaut
    version 6.1 cela voudrait plutôt dire que windows seven n'est que la version un peu plus abouti de la version 6 = Vista

    c'est vrai qu'ils sont très malins chez crosoft , ça rapporte plus de pépètes de dire c'est un nouveau Ouindoz plutôt que de dire c'est Ouista sans les bugs

  7. #7
    Inactif  
    Avatar de Mac LAK
    Profil pro
    Inscrit en
    Octobre 2004
    Messages
    3 893
    Détails du profil
    Informations personnelles :
    Âge : 51
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations forums :
    Inscription : Octobre 2004
    Messages : 3 893
    Par défaut
    Citation Envoyé par SergioMaster Voir le message
    version 6.1 cela voudrait plutôt dire que windows seven n'est que la version un peu plus abouti de la version 6 = Vista
    C'est plutôt une question de génération de kernel NT : le kernel 6 correspond à l'introduction de l'UAC et d'Aero (entre autres), et qu'il n'y a pas de rupture majeure entre Vista et Seven... Et c'est ce qu'il faut voir, tout comme le code Windows 2000 fonctionne en général sans problème sur XP, mais de 2k/XP à Vista, il y a des soucis.

    Le "6.1" doit être traduit en "Kernel Windows v6 [4ème génération NT], deuxième OS", et non pas comme "Vista SP2". Tout comme XP n'est pas un simple "patch" de 2000, d'ailleurs, il y a quand même des changements avec rupture entre les deux.

    Tu as le même parallèle avec les numérotations de kernel Linux : quand l'indice mineur change (2.4 -> 2.6, par exemple), ça ne veut pas forcément dire "évolution mineure" pour autant, ni "compatibilité totale" ou simplement "correction de bugs". C'est simplement la sixième version de la deuxième génération de kernel, ni plus, ni moins.
    Mac LAK.
    ___________________________________________________
    Ne prenez pas la vie trop au sérieux, de toutes façons, vous n'en sortirez pas vivant.

    Sources et composants Delphi sur mon site, L'antre du Lak.
    Pas de question technique par MP : posez-la dans un nouveau sujet, sur le forum adéquat.

    Rejoignez-nous sur : Serveur de fichiers [NAS] Le Tableau de bord projets Le groupe de travail ICMO

  8. #8
    Membre Expert
    Avatar de Droïde Système7
    Homme Profil pro
    Inscrit en
    Septembre 2003
    Messages
    2 288
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Septembre 2003
    Messages : 2 288
    Par défaut


    En prolongement de ce thread ; si une âme charitable veut compléter ce source :
    http://www.developpez.net/forums/d42...rsion-windows/


Discussions similaires

  1. Hebergement sur windows : probleme avec .htaccess
    Par linou dans le forum Hébergement
    Réponses: 5
    Dernier message: 17/03/2008, 13h31
  2. Détecter Windows 2000 Professionnel
    Par FW-S dans le forum Delphi
    Réponses: 9
    Dernier message: 03/11/2006, 23h02
  3. window.open avec parametre
    Par loleske dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 21/11/2005, 10h22
  4. Réponses: 7
    Dernier message: 10/11/2005, 14h12
  5. [VB6] Gestionnaire des tache de windows 2000 avec VB6
    Par Argonz dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 12/11/2002, 08h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo