IWinApplicationClass.Version

Синтаксис

Version: IWinApplicationVersion;

Описание

Свойство Version возвращает объект, содержащий информацию о текущей версии платформы.

Пример Fore

Для выполнения примера предполагается наличие формы.

Добавьте ссылку на системную сборку Ui.

Sub UserProc;
Var
    Ver: IWinApplicationVersion;
Begin
    Ver := WinApplication.Version;
    Debug.WriteLine("Build - " + Ver.Build.ToString);
    Debug.WriteLine("Debug - " + Ver.Debug.ToString);
    Debug.WriteLine("Description - " + Ver.Description);
    Debug.WriteLine("Major - " + Ver.Major.ToString);
    Debug.WriteLine("Minor - " + Ver.Minor.ToString);
    Debug.WriteLine("PrivateBuild - " + Ver.PrivateBuild.ToString);
    Debug.WriteLine("QFE - " + Ver.QFE.ToString);
    Debug.WriteLine("Release - " + Ver.Release.ToString);
    Debug.WriteLine("ShortDescription - " + Ver.ShortDescription);
End Sub UserProc;

При выполнении примера в консоль среды разработки будет выведена вся информация о текущей сборке платформы.

Для выпущенной версии платформы информация может выглядеть таким образом:

Build - 3

Debug - False

Description - Release 9.2.3.3 x86

Major - 9

Minor - 2

PrivateBuild - False

QFE - 3

Release - True

ShortDescription - 9.2.3.3 x86

Для невыпущенной версии платформы информация может выглядеть таким образом:

Build - 55002

Debug - False

Description - Release 9.2.55002.0 Defects x86

Major - 9

Minor - 2

PrivateBuild - True

QFE - 0

Release - False

ShortDescription - 9.2.55002.0 Defects x86

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Ui;

Sub UserProc();
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
    Ver: IWinApplicationVersion;
Begin
    Ver := WinAppCls.Version;
    System.Diagnostics.Debug.WriteLine("Build - " + Ver.Build.ToString());
    System.Diagnostics.Debug.WriteLine("Debug - " + Ver.Debug.ToString());
    System.Diagnostics.Debug.WriteLine("Description - " + Ver.Description);
    System.Diagnostics.Debug.WriteLine("Major - " + Ver.Major.ToString());
    System.Diagnostics.Debug.WriteLine("Minor - " + Ver.Minor.ToString());
    System.Diagnostics.Debug.WriteLine("PrivateBuild - " + Ver.PrivateBuild.ToString());
    System.Diagnostics.Debug.WriteLine("QFE - " + Ver.QFE.ToString());
    System.Diagnostics.Debug.WriteLine("Release - " + Ver.Release.ToString());
    System.Diagnostics.Debug.WriteLine("ShortDescription - " + Ver.ShortDescription);
End Sub;

См. также:

IWinApplicationClass