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