Changeset 390 for Common/ULastOpenedList.pas

Timestamp:

Jul 18, 2012, 4:13:05 PM (12 years ago)

Author:

chronos

Message:

• Added: GeneralRegistry TWinRegistry class implementation.

File:

• Common/ULastOpenedList.pas (modified) (4 diffs)

Common/ULastOpenedList.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Registry2, URegistry, Menus;
+  Classes, SysUtils, UGeneralRegistry, Menus;
 
 type
@@ -23 +23 @@
     destructor Destroy; override;
     procedure LoadToMenuItem(MenuItem: TMenuItem; ClickAction: TNotifyEvent);
-    procedure LoadFromRegistry(Root: HKEY; Key: string);
-    procedure SaveToRegistry(Root: HKEY; Key: string);
+    procedure LoadFromRegistry(Root: Integer; const Key: string);
+    procedure SaveToRegistry(Root: Integer; const Key: string);
     procedure AddItem(FileName: string);
   published
@@ -87 +87 @@
 end;
 
-procedure TLastOpenedList.LoadFromRegistry(Root: HKEY; Key: string);
+procedure TLastOpenedList.LoadFromRegistry(Root: Integer; const Key: string);
 var
   I: Integer;
-  Registry: TRegistryEx;
+  Registry: TGeneralRegistry;
   FileName: string;
 begin
-  Registry := TRegistryEx.Create;
+  Registry := TGeneralRegistry.Create(nil);
   with Registry do
   try
-    RootKey := Root;
+    CurrentRoot := Root;
     OpenKey(Key, True);
     Items.Clear;
     I := 0;
     while ValueExists('File' + IntToStr(I)) and (I < MaxCount) do begin
-      FileName := UTF8Encode(ReadStringWithDefault('File' + IntToStr(I), ''));
+      if ValueExists('File' + IntToStr(I)) then
+        FileName := UTF8Encode(ReadString('File' + IntToStr(I)))
+        else FileName := '';
       if Trim(FileName) <> '' then Items.Add(FileName);
       Inc(I);
@@ -112 +114 @@
 end;
 
-procedure TLastOpenedList.SaveToRegistry(Root: HKEY; Key: string);
+procedure TLastOpenedList.SaveToRegistry(Root: Integer; const Key: string);
 var
   I: Integer;
-  Registry: TRegistryEx;
+  Registry: TGeneralRegistry;
 begin
-  Registry := TRegistryEx.Create;
+  Registry := TGeneralRegistry.Create(nil);
   with Registry do
   try
-    RootKey := Root;
+    CurrentRoot := Root;
     OpenKey(Key, True);
     for I := 0 to Items.Count - 1 do