Version: IWinApplicationVersion;
Свойство Version возвращает объект, содержащий информацию о текущей версии платформы Prognoz Platform.
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;
При выполнении примера в консоль среды разработки будет выведена вся информация о текущей сборке Prognoz Platform.
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;
При выполнении примера в консоль среды разработки будет выведена вся информация о текущей сборке Prognoz Platform.
См. также: