begin process at 2010 02 10 12:18:04
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Système

 > VERSION DE WINDOWS

VERSION DE WINDOWS


 Information sur la source

Note :
5 / 10 - par 1 personne
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Système Niveau :Débutant Date de création :12/05/2002 Date de mise à jour :15/05/2002 22:58:55 Vu / téléchargé :3 363 / 161

Auteur : Gysmo

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

Un moyen simple de trouver la version de Windows.      

Source

  • function WindowsVersion: String;
  • begin
  • case Win32MajorVersion of
  • 3: Result:='Windows NT 3.51';
  • 4: case Win32MinorVersion of
  • 0: case Win32Platform of
  • 1: begin
  • case Win32CSDVersion[1] of
  • 'A': Result:='Windows 95 SP 1';
  • 'B': Result:='Windows 95 SP 2';
  • else
  • Result:='Inconnue';
  • end;
  • end;
  • 2: Result:='Windows NT 4.0'
  • else
  • Result:='Inconnue';
  • end;
  • 10: begin
  • case Win32CSDVersion[1] of
  • 'A': Result:='Windows 98 SP 1';
  • 'B': Result:='Windows 98 SP 2';
  • else
  • Result:='Inconnue';
  • end;
  • end;
  • 90: Result:='Windows ME';
  • else
  • Result:='Inconnue';
  • end;
  • 5: case Win32MinorVersion of
  • 0: Result:='Windows 2000';
  • 1: Result:='Windows XP'
  • else
  • Result:='Inconnue';
  • end;
  • else
  • Result:='Inconnue';
  • end;
  • end;
function WindowsVersion: String;
begin
  case Win32MajorVersion of
    3:  Result:='Windows NT 3.51';
    4:  case Win32MinorVersion of
          0:  case Win32Platform of
                1:  begin
                      case Win32CSDVersion[1] of
                        'A':  Result:='Windows 95 SP 1';
                        'B':  Result:='Windows 95 SP 2';
                      else
                        Result:='Inconnue';
                      end;
                    end;
                2:  Result:='Windows NT 4.0'
              else
                Result:='Inconnue';
              end;
          10: begin
                case Win32CSDVersion[1] of
                  'A':  Result:='Windows 98 SP 1';
                  'B':  Result:='Windows 98 SP 2';
                else
                  Result:='Inconnue';
                end;
              end;
          90: Result:='Windows ME';
        else
          Result:='Inconnue';
        end;
    5:  case Win32MinorVersion of
          0:  Result:='Windows 2000';
          1:  Result:='Windows XP'
        else
          Result:='Inconnue';
        end;
  else
    Result:='Inconnue';
  end;
end;

 Conclusion

Le source n'est pas de moi, je l'ai juste adapté et amélioré.      

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture COMPOSANT STYLE WINDOWS XP
Source avec Zip LANCER UNE APPLICATION ET ATTENDRE SA FERMETURE
Source avec Zip TROUVER L'EXECUTABLE ASSOCIÉ A UN FICHIER
Source avec Zip AJOUTER UN COMPOSANT DANS UN AUTRE
RACCOURCIS CLAVIER POUR DELPHI

 Sources de la même categorie

Source avec Zip Source avec une capture GLIBWMI VCL COMPONENT LIBRARY 1.6B par Neftali
Source avec Zip Source avec une capture UNITÉ DE SUPPORT VISTA par Bacterius
Source avec Zip Source avec une capture NETTOYEUR AUTOMATIQUE DE VOS DISQUES par diglas
Source avec Zip Source avec une capture LES VALUE'S FADERS par blueperfect
Source avec Zip Source avec une capture COUNTERS, UNITÉ DE CALCUL DE PERFORMANCE par Bacterius

Commentaires et avis

Commentaire de Delphiprog le 13/05/2002 21:57:40 administrateur CS

Y en a  qui ne manquent pas d'air ici. Le dernier jeu à la mode, c'est de prendre des sources déposés pas d'autre, d'y mettre son nom et de publier le tout !
Voir : http://www.delphifr.com/article.asp?Val=227, publié le 23/03/2002.
Là Gysmo, tu me déçois...
Et tu le sors de où : "case Win32MajorVersion of" au début de la fonction ?

Commentaire de Gysmo le 13/05/2002 23:39:28

DelphiProg, depuis quand existe t'il une facon unique et universel de programmer?
Bien sur que je savais que tu avais poster cette source, et alors ta pas fait gaffe que ce ne sont pas les memes? Sinon bien sur que je ne l'aurais pas mis va!
Tu m'as eu une fois, pas deux.
Ce source je l'ai vu dans un prog, Theme Manager pour XP alors stp...

Aussi je trouve deplacer de ta part d'affirmer que j'ai repris ton source, que j'y ai mis mon nom et que je l'ai poster! C'est dingue ca, tu fais payer ton code kan qq1 le telecharge ou koi?

Enfin Win32MajorVersion fait partis de SysUtils.pas, pour ton information.

Vraiment je ne t'imaginer pas comme ca...

Commentaire de Gysmo le 15/05/2002 19:56:59

Milles excuses DelphiProg, sans rancune?

Babaille.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,546 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales