Extending the path settings to support the DEPLOY_PATH variable

Former-commit-id: 8c35bdf2803b38972b3b588a7c066d2bbc807986 [formerly 92f6e03a482509036ef9de10c6285542f0744608] [formerly 45fac1f2b5689b54f324f9d2e90552e4bb95fb72 [formerly 8e6208cc5207e94a319f7b560ee1034bcd143999]]
Former-commit-id: e1b6587fd9c812a7548ba28420430e2c056a6ab6 [formerly 9faa619a7ed7227ad87432f6267bd2bc6e99c10c]
Former-commit-id: e77110360cc371af640525ee4a0fcc50100a6054
Former-commit-id: 07c27b2

Author: lmbelo

src/PyEnvironment.Path.pas

@@ -34,6 +34,9 @@ interface
 
 type
   TPyEnvironmentPath = class
+  public const
+    DEPLOY_PATH = '$(DEPLOY_PATH)';
+  public
     /// <summary>
     /// This function might resolve path variables, relative paths and whatever regarding paths
     /// </summary>
@@ -48,16 +51,16 @@ implementation
 { TPyEnvironmentPath }
 
 class function TPyEnvironmentPath.ResolvePath(const APath: string): string;
-var
-  LFilePath: string;
 begin
-  if (APath <> ExpandFileName(APath)) then begin
+  if (APath <> ExpandFileName(APath)) or (APath = DEPLOY_PATH) then begin
     {$IFDEF ANDROID}
-    LFilePath := TPath.GetDocumentsPath();
+    Result := TPath.GetDocumentsPath();
     {$ELSE}
-    LFilePath := TPath.GetDirectoryName(GetModuleName(HInstance));
+    Result := TPath.GetDirectoryName(GetModuleName(HInstance));
     {$ENDIF}
-    Result := TPath.Combine(LFilePath, APath);
+
+    if (APath <> DEPLOY_PATH) then
+      Result := TPath.Combine(Result, APath);
   end else
     Result := APath;
 end;