GetOperatingSystemVersion: IOperatingSystemVersion;
Метод 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.BuildNumber.ToString);
Debug.WriteLine("Наименование обновления: " + OSVer.CSDVersion);
Debug.WriteLine("Полное наименование ОС: " + OSVer.FullName);
Debug.WriteLine("Наименование ОС: " + OSVer.Name);
Debug.WriteLine("Идентификатор платформы ОС: " + OSVer.PlatformId.ToString);
End Sub UserProc;
При выполнении примера в консоль среды разработки будет выведена информация о версии операционной системы.
Imports Prognoz.Platform.Interop.Ui;
Sub UserProc();
Var
WinApp: WinApplication = New WinApplicationClass_2();
OSVer: IOperatingSystemVersion;
Begin
OSVer := WinApp.GetOperatingSystemVersion();
System.Diagnostics.Debug.WriteLine("Основная версия ОС: " + OSVer.MajorVersion.ToString());
System.Diagnostics.Debug.WriteLine("Промежуточная версия ОС: " + OSVer.MinorVersion.ToString());
System.Diagnostics.Debug.WriteLine("Номер сборки: " + OSVer.BuildNumber.ToString());
System.Diagnostics.Debug.WriteLine("Наименование обновления: " + OSVer.CSDVersion);
System.Diagnostics.Debug.WriteLine("Полное наименование ОС: " + OSVer.FullName);
System.Diagnostics.Debug.WriteLine("Наименование ОС: " + OSVer.Name);
System.Diagnostics.Debug.WriteLine("Идентификатор платформы ОС: " + OSVer.PlatformId.ToString());
End Sub;
При выполнении примера в консоль среды разработки будет выведена информация о версии операционной системы.
См. также: