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

Timestamp:

Aug 23, 2012, 6:43:26 AM (12 years ago)

Author:

chronos

Message:

• Modified: Update Common package.

File:

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

trunk/Packages/Common/URegistry.pas

@@ -17 +17 @@
     rrKeyDynData = HKEY($80000006));
 
+  TRegistryContext = record
+    RootKey: HKEY;
+    Key: string;
+  end;
+
   { TRegistryEx }
 
@@ -29 +34 @@
       DefaultValue: Double): Double;
     function DeleteKeyRecursive(const Key: string): Boolean;
+    function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
   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 }
@@ -83 +98 @@
 end;
 
+function TRegistryEx.OpenKey(const Key: string; CanCreate: Boolean): Boolean;
+begin
+  {$IFDEF Linux}
+  CloseKey;
+  {$ENDIF}
+  Result := inherited OpenKey(Key, CanCreate);
+end;
+
 function TRegistryEx.ReadBoolWithDefault(const Name: string;
   DefaultValue: Boolean): Boolean;