Changeset 164 for trunk

Timestamp:

Aug 20, 2024, 1:01:48 AM (4 months ago)

Author:

chronos

Message:

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

Location:

trunk

Files:

• LazFuck.lpr (modified) (1 diff)
• Target.pas (modified) (2 diffs)

trunk/LazFuck.lpr

@@ -26 +26 @@
 
   Application.Scaled:=True;
-  Application.Title:='LazFuck IDE';
+  Application.Title:='LazFuck';
   RequireDerivedFormResource := True;
   Application.Initialize;

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;