Changeset 400 for Common/URegistry.pas

Timestamp:

Aug 7, 2012, 2:44:25 PM (12 years ago)

Author:

chronos

Message:

• Added: TRegistryContext record type for use of combined RootKey and Key variable.

File:

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

Common/URegistry.pas

@@ -17 +17 @@
     rrKeyDynData = HKEY($80000006));
 
+  TRegistryContext = record
+    RootKey: HKEY;
+    Key: string;
+  end;
+
   { TRegistryEx }
 
@@ -31 +36 @@
   end;
 
+function RegContext(RootKey: HKEY; Key: string): TRegistryContext;
+
+
 implementation
+
+function RegContext(RootKey: HKEY; Key: string): TRegistryContext;
+begin
+  Result.RootKey := RootKey;
+  Result.Key := Key;
+end;
 
 { TRegistryEx }