Changeset 209 for trunk/Forms/UFormCheck.pas

Timestamp:

Sep 20, 2021, 12:25:22 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Correctly detect data application directories for Linux installation.
• Modified: Use registry key and root from application info component.

File:

• trunk/Forms/UFormCheck.pas (modified) (2 diffs)

trunk/Forms/UFormCheck.pas

@@ -724 +724 @@
   with TRegistryEx.Create do
   try
-    RootKey := HKEY_CURRENT_USER;
-    OpenKey(DefaultRegKey, True);
+    RootKey := RegistryRootHKEY[Core.ApplicationInfo1.RegistryRoot];
+    OpenKey(Core.ApplicationInfo1.RegistryKey, True);
     EditSummaryStart.Text := ReadStringWithDefault('SummaryStart', 'ACRONYMS AND ABBREVIATIONS');
     EditSummaryEnd.Text := ReadStringWithDefault('SummaryEnd', 'Appendix');
@@ -739 +739 @@
   with TRegistryEx.Create do
   try
-    RootKey := HKEY_CURRENT_USER;
-    OpenKey(DefaultRegKey, True);
+    RootKey := RegistryRootHKEY[Core.ApplicationInfo1.RegistryRoot];
+    OpenKey(Core.ApplicationInfo1.RegistryKey, True);
     WriteString('SummaryStart', EditSummaryStart.Text);
     WriteString('SummaryEnd', EditSummaryEnd.Text);