Changeset 371 for Common

Timestamp:

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

Author:

chronos

Message:

• Added: Method TRegistryEx.DeleteKeyRecursive.

Location:

Common

Files:

• UJobProgressView.lfm (modified) (10 diffs)
• URegistry.pas (modified) (3 diffs)

Common/UJobProgressView.lfm

@@ -1 +1 @@
 object FormJobProgressView: TFormJobProgressView
-  Left = 466
-  Height = 248
-  Top = 251
-  Width = 330
+  Left = 467
+  Height = 246
+  Top = 252
+  Width = 328
   BorderIcons = [biSystemMenu]
-  ClientHeight = 248
-  ClientWidth = 330
+  ClientHeight = 246
+  ClientWidth = 328
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
@@ -19 +19 @@
     Height = 24
     Top = 0
-    Width = 330
+    Width = 328
     Align = alTop
     BevelOuter = bvNone
     ClientHeight = 24
-    ClientWidth = 330
+    ClientWidth = 328
     FullRepaint = False
     TabOrder = 0
@@ -41 +41 @@
   object PanelLog: TPanel
     Left = 0
-    Height = 124
+    Height = 122
     Top = 124
-    Width = 330
+    Width = 328
     Align = alClient
     BevelOuter = bvSpace
-    ClientHeight = 124
-    ClientWidth = 330
+    ClientHeight = 122
+    ClientWidth = 328
     TabOrder = 1
     object MemoLog: TMemo
       Left = 8
-      Height = 108
+      Height = 106
       Top = 8
-      Width = 314
+      Width = 312
       Anchors = [akTop, akLeft, akRight, akBottom]
       ReadOnly = True
@@ -64 +64 @@
     Height = 38
     Top = 50
-    Width = 330
+    Width = 328
     Align = alTop
     BevelOuter = bvNone
     ClientHeight = 38
-    ClientWidth = 330
+    ClientWidth = 328
     TabOrder = 2
     object ProgressBarPart: TProgressBar
@@ -74 +74 @@
       Height = 17
       Top = 16
-      Width = 314
+      Width = 312
       Anchors = [akTop, akLeft, akRight]
       TabOrder = 0
@@ -91 +91 @@
     Height = 26
     Top = 24
-    Width = 330
+    Width = 328
     Align = alTop
     BevelOuter = bvNone
     ClientHeight = 26
-    ClientWidth = 330
+    ClientWidth = 328
     FullRepaint = False
     TabOrder = 3
@@ -102 +102 @@
       Height = 16
       Top = 5
-      Width = 314
+      Width = 312
       Anchors = [akTop, akLeft, akRight, akBottom]
       AutoWidthLastColumn = True
@@ -109 +109 @@
       Columns = <      
         item
-          Width = 314
+          Width = 312
         end>
       OwnerData = True
@@ -124 +124 @@
     Height = 36
     Top = 88
-    Width = 330
+    Width = 328
     Align = alTop
     BevelOuter = bvNone
     ClientHeight = 36
-    ClientWidth = 330
+    ClientWidth = 328
     TabOrder = 4
     object LabelEstimatedTimeTotal: TLabel
@@ -142 +142 @@
       Height = 16
       Top = 16
-      Width = 314
+      Width = 312
       Anchors = [akTop, akLeft, akRight]
       TabOrder = 0

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;