Changeset 404 for Common/URegistry.pas

Timestamp:

Aug 13, 2012, 10:03:31 AM (12 years ago)

Author:

chronos

Message:

• Modified: Linux support for PinConnection SerialPort, Common OpenURL, UpdateChecker.
• Modified: ModularSystem show module name if required dependency not found.

File:

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

Common/URegistry.pas

@@ -34 +34 @@
       DefaultValue: Double): Double;
     function DeleteKeyRecursive(const Key: string): Boolean;
+    function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
   end;
 
@@ -97 +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;