Version de windows
0/5 (2 avis)
Vue 5 733 fois - Téléchargée 283 fois
Description
Un moyen simple de trouver la version de Windows.
Le source n'est pas de moi, je l'ai juste adapté et amélioré.
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é.
15 mai 2002 à 19:56
Babaille.
13 mai 2002 à 23:39
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.