IWinApplication.GetOperatingSystemVersion

Копировать пример

Sub UserProc;
Var
    WinApp: IWinApplication;
    OSVer: IOperatingSystemVersion;
Begin
    WinApp := WinApplication.Instance;
    OSVer := WinApp.GetOperatingSystemVersion;
    Debug.WriteLine("Основная версия ОС: " + OSVer.MajorVersion.ToString);
    Debug.WriteLine("Промежуточная версия ОС: " + OSVer.MinorVersion.ToString);
    Debug.WriteLine("Наименование обновления: " + OSVer.CSDVersion);
    Debug.WriteLine("Полное наименование ОС: " + OSVer.FullName);
    Debug.WriteLine("Наименование ОС: " + OSVer.Name);
    Debug.WriteLine("Идентификатор платформы ОС: " + OSVer.PlatformId.ToString);
End Sub UserProc;