Changeset 37 for trunk/UCore.pas

Timestamp:

Dec 10, 2016, 10:36:38 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Wrong color in About form.
• Fixed: Range check error in registry HKEY assignment.
• Added: Windows 32-bit and 64-bit build profiles.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, Controls, UProject, UPhysDrive,
-  UCoolTranslator, UPersistentForm, UApplicationInfo, URegistry, UScaleDPI;
+  UCoolTranslator, UPersistentForm, UApplicationInfo, URegistry, UScaleDPI,
+  Registry;
 
 type
@@ -57 +58 @@
 procedure TCore.LoadConfig;
 begin
-  RegistryContext := RegContext(Integer(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey);
+  RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey);
   PersistentForm1.RegistryContext := RegistryContext;
   XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
+  ForceDirectories(ExtractFileDir(XMLConfig1.Filename));
 
   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));