Changeset 164 for trunk/Target.pas

Timestamp:

Aug 20, 2024, 1:01:48 AM (5 weeks ago)

Author:

chronos

Message:

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

File:

• trunk/Target.pas (modified) (2 diffs)

trunk/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;