Retrouver la version de windows

Commenter

Contenu du snippet

Comment retrouver la version de windows ?

Source / Exemple : 


function TFRef.GetWindowsVersion: String;
var
    VersionInfo: TOSVersionInfo;
    WindowsVersion: String;
begin
    // charger info
    VersionInfo.dwOSVersionInfoSize:=SizeOf(VersionInfo);
    GetVersionEx(VersionInfo);
    // en fonction de la version
    case VersionInfo.dwPlatformId of
        // win 3.1
        VER_PLATFORM_WIN32S: WindowsVersion:='Windows 3.1';

        // win 95 / 98 / me
        VER_PLATFORM_WIN32_WINDOWS:
            case VersionInfo.dwMinorVersion of
                 // win 95
                 0: begin
                       if VersionInfo.szCSDVersion[1]='B' then
                          WindowsVersion:='Windows 95 OSR 2'
                       else WindowsVersion:='Windows 95 OSR 1';
                    end;
                 // win 98
                 10: begin
                        if VersionInfo.szCSDVersion[1]='A' then
                           WindowsVersion:='Windows 98 OSR 2'
                        else WindowsVersion:='Windows 98 OSR 1';
                     end;
                 // win millenium
                 90: begin
                        if VersionInfo.dwBuildNumber=73010104 then
                           WindowsVersion:='Windows Millenium';
                     end;
            end;

        // win nt
        VER_PLATFORM_WIN32_NT :
            case VersionInfo.dwMajorVersion of
                // win nt 3.5
                3: WindowsVersion:='Windows NT 3.5';
                // win nt4
                4: WindowsVersion:='Windows NT 4';
                // win 2000 et xp
                5: case VersionInfo.dwMinorVersion of
                        // win 2000
                        0: WindowsVersion:='Windows 2000';
                        // win xp
                        1: WindowsVersion:='Windows XP';
                   end;
            end;
    end;
    // resultat
    Result:=WindowsVersion;
end;

A voir également

S'inscrire maintenant

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.