Changeset 31 for trunk/Forms/UMainForm.pas

Timestamp:

Sep 8, 2012, 9:38:38 PM (12 years ago)

Author:

chronos

Message:

• Added: Common package.

File:

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

trunk/Forms/UMainForm.pas

@@ -16 +16 @@
   TMainForm = class(TForm)
     AAbout: TAction;
+    ApplicationInfo1: TApplicationInfo;
     AShowRawImageDesc: TAction;
     AShowMap: TAction;
@@ -112 +113 @@
 begin
   PersistentForm := TPersistentForm.Create;
-  PersistentForm.RegistryKey := '\Software\' + ApplicationInfo.CompanyName + '\' + ApplicationInfo.Name;
+  PersistentForm.RegistryKey := ApplicationInfo1.RegistryKey;
+  PersistentForm.RegistryRootKey := HKEY(ApplicationInfo1.RegistryRoot);
 
   Application.OnDeactivate := FormDeactivate;