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

Timestamp:

Jan 18, 2022, 10:45:33 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated to build under Lazarus 2.2.0.
• Modified: Updated Common package to version 0.9.

File:

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

trunk/Packages/Common/URegistry.pas

@@ -132 +132 @@
 function TRegistryEx.OpenKey(const Key: string; CanCreate: Boolean): Boolean;
 begin
-  {$IFDEF Linux}
+  {$IFDEF UNIX}
   //CloseKey;
   {$ENDIF}
@@ -140 +140 @@
 function TRegistryEx.GetCurrentContext: TRegistryContext;
 begin
-  Result.Key := CurrentPath;
+  Result.Key := String(CurrentPath);
   Result.RootKey := RootKey;
 end;