Changeset 165 for tags/1.3.0/Target.pas

Timestamp:

Aug 20, 2024, 1:02:49 AM (5 weeks ago)

Author:

chronos

Message:

Merged revision(s) 164 from trunk:

• Fixed: Put compiled files into application data directory if source is in read only directory.

Location:

tags/1.3.0

Files:

• . (modified) (1 prop)
• Target.pas (modified) (2 diffs)

tags/1.3.0/Target.pas

@@ -533 +533 @@
     CompiledDir + DirectorySeparator + Name + DirectorySeparator +
     ExtractFileNameOnly(ProjectFileName) + SourceExtension;
+  if not DirectoryIsWritable(ExtractFilePath(Result)) then
+    Result := GetAppConfigDir(False) + CompiledDir + DirectorySeparator + Name +
+      DirectorySeparator + ExtractFileNameOnly(ProjectFileName) + SourceExtension;;
 end;
 
@@ -545 +548 @@
     CompiledDir + DirectorySeparator + Name + DirectorySeparator +
     ExtractFileNameOnly(ProjectFileName) + CompiledExtension;
+  if not DirectoryIsWritable(ExtractFilePath(Result)) then
+    Result := GetAppConfigDir(False) + CompiledDir + DirectorySeparator + Name +
+      DirectorySeparator + ExtractFileNameOnly(ProjectFileName) + CompiledExtension;
 end;