IWinApplicationClass.Version

Syntax

Version: IWinApplicationVersion;

Description

The Version property returns the object containing information on current platform version.

Fore Example

Executing the example requires a form.

Add a link to the Ui system assembly.

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;

All information about the platform current build is displayed in the development environment console.

The information for the released platform version may look as follows:

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

The information for the unreleased platform version may look as follows:

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 Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

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;

See also:

IWinApplicationClass