IApplicationVersion.Build

Build: Integer;

Build: integer;

Sub UserProc;
Var
    Ver: IApplicationVersion;
Begin
    Ver := New ApplicationVersion.Create;
    Debug.WriteLine("VersionDescription - " + Ver.VersionDescription);
    Debug.WriteLine("Build - " + Ver.Build.ToString);
    Debug.WriteLine("Debug - " + Ver.Debug.ToString);
    Debug.WriteLine("Description - " + Ver.Description);
    Debug.WriteLine("IsRelease - " + Ver.IsRelease.ToString);
    Debug.WriteLine("Major - " + Ver.Major.ToString);
    Debug.WriteLine("MaxReleaseBuild - " + Ver.MaxReleaseBuild.ToString);
    Debug.WriteLine("Minor - " + Ver.Minor.ToString);
    Debug.WriteLine("MinReleaseBuild - " + Ver.MinReleaseBuild.ToString);
    Debug.WriteLine("PrivateBuild - " + Ver.PrivateBuild.ToString);
    Debug.WriteLine("QFE - " + Ver.QFE.ToString);
    Debug.WriteLine("ShortDescription - " + Ver.ShortDescription);
End Sub UserProc;

Imports Prognoz.Platform.Interop.Ui;
Imports Prognoz.Platform.Interop.Host;
Sub UserProc();
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
    Ver: IApplicationVersion;
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("IsRelease - " + Ver.IsRelease.ToString());
    System.Diagnostics.Debug.WriteLine("ShortDescription - " + Ver.ShortDescription);
    System.Diagnostics.Debug.WriteLine("MaxReleaseBuild - " + Ver.MaxReleaseBuild.ToString());
    System.Diagnostics.Debug.WriteLine("MinReleaseBuild - " + Ver.MinReleaseBuild.ToString());
    System.Diagnostics.Debug.WriteLine("VersionDescription - " + Ver.VersionDescription);
End Sub;