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

Timestamp:

Jun 21, 2022, 5:04:48 PM (23 months ago)

Author:

chronos

Message:

• Fixed: Calculation of tracks end.
• Modified: Updated Common package to version 0.10.
• Modified: Build with Lazarus 2.2.2.
• Modified: Used Generics.Collections instead of fgl for generic lists.

File:

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

trunk/Packages/Common/URegistry.pas

@@ -1 +1 @@
 unit URegistry;
-
-{$MODE delphi}
 
 interface
@@ -48 +46 @@
     HKEY_CURRENT_CONFIG, HKEY_DYN_DATA);
 
+
 implementation
-
 
 { TRegistryContext }
@@ -132 +130 @@
 function TRegistryEx.OpenKey(const Key: string; CanCreate: Boolean): Boolean;
 begin
-  {$IFDEF Linux}
+  {$IFDEF UNIX}
   //CloseKey;
   {$ENDIF}
@@ -140 +138 @@
 function TRegistryEx.GetCurrentContext: TRegistryContext;
 begin
-  Result.Key := CurrentPath;
+  Result.Key := String(CurrentPath);
   Result.RootKey := RootKey;
 end;