Changeset 390 for Common/UApplicationInfo.pas

Timestamp:

Jul 18, 2012, 4:13:05 PM (12 years ago)

Author:

chronos

Message:

• Added: GeneralRegistry TWinRegistry class implementation.

File:

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

Common/UApplicationInfo.pas

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