Changeset 538 for Registry/UGeneralRegistry.pas

Timestamp:

Aug 6, 2019, 1:55:55 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use fcl registry.

File:

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

Registry/UGeneralRegistry.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, IniFiles, XMLRead, XMLWrite, DOM
-  {$IFDEF Windows}
-  , WinRegistry
-  {$ENDIF};
+  Classes, SysUtils, IniFiles, XMLRead, XMLWrite, DOM, Registry;
 
 type
@@ -246 +243 @@
 function TWinRegistry.GetKeyInfo(var Value: TRegKeyInfo): Boolean;
 var
-  KeyInfo: WinRegistry.TRegKeyInfo;
+  KeyInfo: Registry.TRegKeyInfo;
 begin
   Result := Registry.GetKeyInfo(KeyInfo);
@@ -262 +259 @@
 function TWinRegistry.GetValueInfo(const Name: string; var Value: TRegValueInfo): Boolean;
 var
-  ValueInfo: WinRegistry.TRegDataInfo;
+  ValueInfo: Registry.TRegDataInfo;
 begin
   Result := Registry.GetDataInfo(Name, ValueInfo);
@@ -399 +396 @@
 
 procedure TWinRegistry.GetKeyNames(Strings: TStrings);
+var
+  I: Integer;
 begin
   Registry.GetKeyNames(Strings);
+//  for I := 0 to Strings.Count - 1 do
+//    Strings[I] := AnsiToUtf8(Strings[I]);
 end;
 
@@ -687 +688 @@
   {$IFDEF Windows}
   Backend := TWinRegistry.Create;
-  //TWinRegistry(Backend).RootKey := HKEY_CURRENT_USER;
-  //TWinRegistry(Backend).BaseKey := 'Software\' + CompanyName + '\' +
-  //  ApplicationName;
+  TWinRegistry(Backend).CurrentRoot := HKEY_CURRENT_USER;
+  TWinRegistry(Backend).CurrentKey := 'Software\Company\' +
+    ApplicationName;
+//  TWinRegistry(Backend).CurrentKey := 'Software\' + VendorName + '\' +
+//    ApplicationName;
   {$ENDIF}
   {$IFDEF Linux}