CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 16 05:13:48

SORTIE DE SILVERLIGHT 2 ET DE FLASH PLAYER 10 par Nix

INSTALLATION SILVERLIGHT RC0 ET FINAL ... par Rui

TCB : QUE FAIRE EN SALLE BLANCHE ? par themit

DEBUG : MAKE OBJECT ID - COMMENT CONNAITRE L'éTAT D'UNE VARIABLE LORSQUE CELLE-CI N'EST PAS ACCESSIBLE DANS LE SCOPE COURANT par cyril

IIS7 : CONFIGURATION DES HANDLERS POUR L'UPLOAD DE FICHIER - INTERDIRE CERTAINS FICHIERS DE S'EXéCUTER | ACCéDER à DES FICHIERS .CS, .ASPX par cyril

RE : ECRIRE DANS UN DOCUMENT WORD par alloui78

RE : TXSTRINGRID par cantador

RE : CONNEXION PC ET RECEPTEUR par kaboum

RE : FEUX TRICOLORES par kaboum

+ de logiciels à télécharger

1 263 334 membres
70 nouveaux aujourd'hui
14 422 membres club

Trouver une ressource

Trouvez une ressource parmi 38 860 codes, 1 187 451 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

VERSION DE WINDOWS

Information sur la source

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é: 2 948 / 142

Auteur : Gysmo

Site perso

Ecrire un message privé

Note :

5,00 / 10

Commentaire sur cette source (4)

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Project1.dpr 188 octets
Unit1.dfm471 octets
Unit1.pas 1 661 octets

Télécharger le zip

Sources du même auteur

COMPOSANT STYLE WINDOWS XP

LANCER UNE APPLICATION ET ATTENDRE SA FERMETURE

TROUVER L'EXECUTABLE ASSOCIÉ A UN FICHIER

AJOUTER UN COMPOSANT DANS UN AUTRE

RACCOURCIS CLAVIER POUR DELPHI

Toutes les sources de Gysmo

Sources de la même categorie

TASK MANAGER EN MODE TEXTE (ÉMULATION MODE 03H) par Forman

RECEVOIR ET EMETTRE DES MESSAGE AVEC D'AUTRES APPLICATIONS par kevin2002

UTILITAIRE POUR LANCER UN PROGRAMME DEPUIS UN AUTRE COMPTE (... par Forman

COULEURS SYSTÈME par Jean_Jean

VISIOMEM - AFFICHER VOTRE MÉMOIRE par Bacterius

Toutes les sources de la catégorie Système

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.

Commentaire de Gysmo le 19/05/2002 16:20:06

Non bon d'accord...