Changeset 379 for trunk/Packages/CevoComponents/Directories.pas

Timestamp:

Apr 25, 2021, 10:37:28 AM (4 years ago)

Author:

chronos

Message:

• Fixed: Predefined maps and example map was not initially copied to user config dir if .config didn't yet exist. This fixes mainly snap package.

File:

• trunk/Packages/CevoComponents/Directories.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/Directories.pas

@@ -67 +67 @@
   Src, Dst: TSearchRec;
 begin
-  if not DirectoryExists(DestinationDir) then CreateDir(DestinationDir);
+  if not DirectoryExists(DestinationDir) then ForceDirectories(DestinationDir);
   if FindFirst(SourceDir + DirectorySeparator + Filter, $21, Src) = 0 then
     repeat
@@ -91 +91 @@
   else
   begin
-    if not DirectoryExists(AppDataDir) then CreateDir(AppDataDir);
+    if not DirectoryExists(AppDataDir) then ForceDirectories(AppDataDir);
     DataDir := AppDataDir;
   end;