Roselt-Developer-Tools/Roselt.AppInfo.pas at master · ShaunRoselt/Roselt-Developer-Tools · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
unit Roselt.AppInfo;

interface

uses
  System.SysUtils,
  {$IFNDEF WEBLIB}
    System.IOUtils,
  {$ENDIF}
  Roselt.SystemInformation;

function GetAppInfo: String; // Need to get all of the App Info dynamically in the future

implementation

function GetAppInfo: String;
var
  Version, OperatingSystem, Architecture, BuildType, CompiledDate: String;
begin
  Version := 'Version 3.0.0.0 Beta 5';
  Architecture := TSystemInformation.SystemArchitecture;
  OperatingSystem := TSystemInformation.OperatingSystem;
  BuildType := 'RELEASE';
  {$IFDEF DEBUG}
    BuildType := 'DEBUG';
  {$ENDIF}
  CompiledDate := TSystemInformation.AppCompiledDate;

  Result := '${Version} | ${OperatingSystem} | ${Architecture} | ${BuildType} | ${CompiledDate}';
  Result := Result.Replace('${Version}', Version)
                  .Replace('${OperatingSystem}', OperatingSystem)
                  .Replace('${Architecture}', Architecture)
                  .Replace('${BuildType}', BuildType)
                  .Replace('${CompiledDate}', CompiledDate);
end;

end.