Version de windows

Soyez le premier à donner votre avis sur cette source.

Vue 5 239 fois - Téléchargée 242 fois

Description

Un moyen simple de trouver la version de Windows.

Source / Exemple :


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é.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Gysmo
Messages postés
216
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002
-
Milles excuses DelphiProg, sans rancune?

Babaille.
cs_Gysmo
Messages postés
216
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002
-
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...

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.