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

Timestamp:

Apr 25, 2022, 6:01:01 PM (3 years ago)

Author:

chronos

Message:

• Modified: Do not use explicit mode delphi directive as it is already set in project.
• Modified: Use UNIX instead of LINUX for conditional code to work also on FreeBSD.

File:

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

trunk/Packages/Common/URegistry.pas

@@ -1 +1 @@
 unit URegistry;
-
-{$MODE delphi}
 
 interface
@@ -132 +130 @@
 function TRegistryEx.OpenKey(const Key: string; CanCreate: Boolean): Boolean;
 begin
-  {$IFDEF Linux}
+  {$IFDEF UNIX}
   //CloseKey;
   {$ENDIF}