🚀 go-pugleaf

Assuming you use VCL, the following function returns both an
enumerated version id, plus a "verbal" one.

enum TWinVer {WUN,W9x,W95,W952,W98,W982,WMe,NT3,NT4,NT5,WXP,NTx};

AnsiString __fastcall WinVerString(TWinVer *AWinVer)
{
    AnsiString Result = "Windows ";
    TWinVer    WinVer;

  //IsNT = (Win32Platform == VER_PLATFORM_WIN32_NT);

    switch (Win32Platform)
    {
        case VER_PLATFORM_WIN32_WINDOWS:
            if (Win32MajorVersion == 4){
            if (Win32MinorVersion < 10)
            {
                if (Trim(Win32CSDVersion) == "B") // "C" ?
                   {WinVer = W952; Result += "95 OSR2";}
                else
                   {WinVer = W95 ; Result += "95";     }
            }
            else
            if (Win32MinorVersion < 90)
            {
                if (Trim(Win32CSDVersion) == "A")
                   {WinVer = W982; Result += "98 SE";  }
                else
                   {WinVer = W98 ; Result += "98";     }
            }
            else
            {
                    WinVer = WMe ; Result += "Me";
            }}
            else{   WinVer = W9x ; Result += "9x";     }
            break;

        case VER_PLATFORM_WIN32_NT:
            switch (Win32MajorVersion)
            {
                case  3: WinVer = NT3; Result += "NT_3";  break;
                case  4: WinVer = NT4; Result += "NT_4";  break;
                case  5: if (Win32MinorVersion == 0)    {
                         WinVer = NT5; Result += "2000";}
                         else {
                         WinVer = WXP; Result += "XP"  ;} break;
                default: WinVer = NTx; Result += "NT_X";  break;
            }
            break;

        default:         WinVer = WUN; Result += "Old!";
            break;
    }

    if (AWinVer != NULL) *AWinVer = WinVer;

    return Result;
}

On Sun, 30 Mar 2003 12:50:28 +0100, "Paul Dowd"
<pauldowd@seisqc.freeserve.co.uk> wrote:

>Hi all,
>
>Is there some way of finding out from within my application what the
>operating system is? I need to be able to distinguish between all Windows OS
>from 95 to XP.
>
>Thanks
>Paul
>