Changeset 371 for Common/URegistry.pas

Timestamp:

Jun 1, 2012, 10:15:16 AM (12 years ago)

Author:

chronos

Message:

• Added: Method TRegistryEx.DeleteKeyRecursive.

File:

• Common/URegistry.pas (modified) (3 diffs)

Common/URegistry.pas

@@ -6 +6 @@
 
 uses
-  Registry;
+  Classes, Registry;
 
 type
+
+  { TRegistryEx }
+
   TRegistryEx = class(TRegistry)
   private
@@ -18 +21 @@
     function ReadFloatWithDefault(const Name: string;
       DefaultValue: Double): Double;
+    function DeleteKeyRecursive(const Key: string): Boolean;
   end;
 
@@ -54 +58 @@
 end;
 
+function TRegistryEx.DeleteKeyRecursive(const Key: string): Boolean;
+var
+  SubKeys: TStringList;
+  I: Integer;
+begin
+  try
+    SubKeys := TStringList.Create;
+    if OpenKey(Key, False) and HasSubKeys then begin
+      GetKeyNames(SubKeys);
+      for I := 0 to SubKeys.Count - 1 do
+        DeleteKeyRecursive(Key + '\' + SubKeys[I]);
+    end;
+    Result := DeleteKey(Key);
+  finally
+    SubKeys.Free;
+  end;
+end;
+
 function TRegistryEx.ReadBoolWithDefault(const Name: string;
   DefaultValue: Boolean): Boolean;