Changeset 393 for Common/UApplicationInfo.pas

Timestamp:

Jul 26, 2012, 1:15:17 PM (12 years ago)

Author:

chronos

Message:

• Modified: Reverted deletion of URegistry unit. New package GeneralRegistry is not finished and 100% usable yet.

File:

• Common/UApplicationInfo.pas (modified) (2 diffs)

Common/UApplicationInfo.pas

@@ -6 +6 @@
 
 uses
-  SysUtils, Classes, Forms, UGeneralRegistry;
+  SysUtils, Registry, Classes, Forms, URegistry;
 
 type
@@ -74 +74 @@
   FAppName := Application.Name;
   FRegistryKey := '\Software\' + FAppName;
-  FRegistryRoot := rrApplicationUser;
+  FRegistryRoot := rrKeyCurrentUser;
 end;