IWinApplicationClass.Version

Синтаксис

Version: IWinApplicationVersion;

Описание

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

Пример Fore

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

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

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

Build - 24794

Debug - False

Description - Release 9.0.24794.187

Major - 8

Minor - 2

Private Build - False

QFE - 187

Release - True

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

Build - 25084

Debug - False

Description - Private build 9.0.25084

Major - 9

Minor - 0

Private Build - True

QFE - 0

Release - False

Short Description - PB 9.0.25084

Пример 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(Ver.Build);
    System.Diagnostics.Debug.WriteLine(Ver.Debug);
    System.Diagnostics.Debug.WriteLine(Ver.Description);
    System.Diagnostics.Debug.WriteLine(Ver.Major);
    System.Diagnostics.Debug.WriteLine(Ver.Minor);
    System.Diagnostics.Debug.WriteLine(Ver.PrivateBuild);
    System.Diagnostics.Debug.WriteLine(Ver.QFE);
    System.Diagnostics.Debug.WriteLine(Ver.Release);
    System.Diagnostics.Debug.WriteLine(Ver.ShortDescription);
End Sub;

См. также:

IWinApplicationClass