Changeset 539 for Registry/UGeneralRegistry.pas

Timestamp:

Aug 7, 2019, 12:04:53 AM (5 years ago)

Author:

chronos

Message:

• Added: Allow to add, edit and delete registry values.

File:

• Registry/UGeneralRegistry.pas (modified) (6 diffs)

Registry/UGeneralRegistry.pas

@@ -147 +147 @@
   end;
 
-  {$IFDEF Windows}
-
   { TWinRegistry }
 
@@ -187 +185 @@
     destructor Destroy; override;
   end;
-  {$ENDIF}
 
 const
@@ -206 +203 @@
 end;
 
-{ TBaseRegistry }
-
-{$IFDEF Windows}
 { TWinRegistry }
 
@@ -419 +413 @@
   inherited Destroy;
 end;
-{$ENDIF}
 
 { TIniRegistry }
@@ -686 +679 @@
 constructor TGeneralRegistry.Create(AOwner: TComponent);
 begin
-  {$IFDEF Windows}
   Backend := TWinRegistry.Create;
   TWinRegistry(Backend).CurrentRoot := HKEY_CURRENT_USER;
@@ -693 +685 @@
 //  TWinRegistry(Backend).CurrentKey := 'Software\' + VendorName + '\' +
 //    ApplicationName;
-  {$ENDIF}
-  {$IFDEF Linux}
-  Backend := TXMLRegistry.Create;
-  //TXMLRegistry(Backend).FileName := HomeDir + DirectorySeparator + ApplicationName +
-  //  ExtensionSeparator + '.xml';
-  {$ENDIF}
   inherited Create(AOwner);
 end;