Changeset 59 for trunk/Packages/Common/URegistry.pas

Timestamp:

Nov 16, 2012, 9:59:56 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Store module settings in system registry.

File:

• trunk/Packages/Common/URegistry.pas (modified) (2 diffs)

trunk/Packages/Common/URegistry.pas

@@ -17 +17 @@
     rrKeyDynData = HKEY($80000006));
 
+  { TRegistryContext }
+
   TRegistryContext = record
     RootKey: HKEY;
     Key: string;
+    class operator Equal(A: TRegistryContext; B: TRegistryContext): Boolean;
   end;
 
@@ -49 +52 @@
   Result.RootKey := RootKey;
   Result.Key := Key;
+end;
+
+{ TRegistryContext }
+
+class operator TRegistryContext.Equal(A: TRegistryContext; B: TRegistryContext
+  ): Boolean;
+begin
+  Result := (A.RootKey = B.RootKey) and (A.Key = B.Key);
 end;