Logging configuration storage

Source commit: 2fdfe38f496c695e3d207d810543086369819d0f

source/core/Configuration.cpp

@@ -498,6 +498,7 @@ void __fastcall TConfiguration::SaveCustomIniFileStorageName()
     {
       RegistryStorage->WriteString(L"IniFile", CustomIniFileStorageName);
       RegistryStorage->CloseSubKey();
+      AppLogFmt(L"Saved custom INI file path %s", (CustomIniFileStorageName));
     }
   }
 }
@@ -635,6 +636,7 @@ UnicodeString __fastcall TConfiguration::LoadCustomIniFileStorageName()
   if (RegistryStorage->OpenRootKey(false))
   {
     Result = RegistryStorage->ReadString(L"IniFile", L"");
+    AppLogFmt(L"Loaded custom INI file path %s", (Result));
     RegistryStorage->CloseSubKey();
   }
   RegistryStorage.reset(NULL);

source/windows/WinConfiguration.cpp

@@ -22,6 +22,7 @@
 #include <Generics.Defaults.hpp>
 #include <OperationWithTimeout.hpp>
 #include "FileInfo.h"
+#include "CoreMain.h"
 //---------------------------------------------------------------------------
 #pragma package(smart_init)
 //---------------------------------------------------------------------------
@@ -868,12 +869,14 @@ bool __fastcall TWinConfiguration::CanWriteToStorage()
 bool TWinConfiguration::DetectStorage(bool SafeOnly)
 {
   bool Result;
-  if (FileExists(ApiPath(IniFileStorageNameForReading)))
+  UnicodeString IniFile = IniFileStorageNameForReading;
+  if (FileExists(ApiPath(IniFile)))
   {
     Result = !SafeOnly;
     if (Result)
     {
       FStorage = stIniFile;
+      AppLogFmt(L"Will use existing INI file %s for configuration", (IniFile));
     }
   }
   else
@@ -883,6 +886,14 @@ bool TWinConfiguration::DetectStorage(bool SafeOnly)
         DetectRegistryStorage(HKEY_LOCAL_MACHINE))
     {
       FStorage = stRegistry;
+      if (IsUWP())
+      {
+        AppLog(L"Will use registry for configuration as this is store installation");
+      }
+      else
+      {
+        AppLog(L"Will use existing registry for configuration");
+      }
       Result = true;
     }
     else
@@ -890,6 +901,7 @@ bool TWinConfiguration::DetectStorage(bool SafeOnly)
       if (SafeOnly)
       {
         Result = false;
+        AppLog(L"No configuration found");
       }
       else
       {
@@ -899,6 +911,11 @@ bool TWinConfiguration::DetectStorage(bool SafeOnly)
         if (!CanWriteToStorage())
         {
           FStorage = stRegistry;
+          AppLog(L"Will use registry configuration as no configuration was found and default INI file location is not writtable");
+        }
+        else
+        {
+          AppLog(L"Will use (not yet existing) INI file for configuration");
         }
         // With !SafeOnly we always return true, so this result is actually never considered
         Result = true;