IWinApplication.GetOperatingSystemVersion

Copy example

Sub UserProc;
Var
    WinApp: IWinApplication;
    OSVer: IOperatingSystemVersion;
Begin
    WinApp := WinApplication.Instance;
    OSVer := WinApp.GetOperatingSystemVersion;
    Debug.WriteLine("Major OS version: " + OSVer.MajorVersion.ToString);
    Debug.WriteLine("Minor OS version: " + OSVer.MinorVersion.ToString);
    Debug.WriteLine("Update name: " + OSVer.CSDVersion);
    Debug.WriteLine("Full name of OS: " + OSVer.FullName);
    Debug.WriteLine("OS name: " + OSVer.Name);
    Debug.WriteLine("OS platform identifier: " + OSVer.PlatformId.ToString);
End Sub UserProc;