Changeset 428 for ModularSystem/UModularSystem.pas

Timestamp:

Oct 9, 2012, 11:48:44 AM (12 years ago)

Author:

chronos

Message:

• Added: Load and save module list to registry.
• Added: Installation and uninstallation of modules are now performed in two steps as BeforeStart, BeforeStop and AfterStart, AfterStop.
• Fixed: Demo works again.

File:

• ModularSystem/UModularSystem.pas (modified) (13 diffs)

ModularSystem/UModularSystem.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs;
+  Classes, SysUtils, Contnrs, URegistry;
 
 type
@@ -19 +19 @@
   TModule = class(TComponent)
   private
+    FEnabled: Boolean;
     FRunning: Boolean;
     FInstalled: Boolean;
@@ -29 +30 @@
     FDependencies: TStringList;
     FDescription: TStringList;
+    procedure SetEnabled(AValue: Boolean);
     procedure SetInstalled(AValue: Boolean);
     procedure SetRunning(AValue: Boolean);
+  protected
+    procedure BeforeStart; virtual;
+    procedure AfterStart; virtual;
+    procedure BeforeStop; virtual;
+    procedure AfterStop; virtual;
   public
     API: TAPI;
-    MarkForInstall: Boolean;
     procedure Start; virtual;
     procedure Stop; virtual;
@@ -48 +54 @@
     property Running: Boolean read FRunning write SetRunning;
     property Installed: Boolean read FInstalled write SetInstalled;
+    property Enabled: Boolean read FEnabled write SetEnabled;
   published
     property Version: string read FVersion write FVersion;
@@ -79 +86 @@
     procedure EnumModulesInstall(Dependencies, ModuleList: TStringList);
     procedure EnumModulesUninstall(ModuleName: string; ModuleList: TStringList);
-    procedure RegisterModule(Module: TModule; MarkForInstall: Boolean = False);
+    procedure RegisterModule(Module: TModule; Enabled: Boolean = True);
     procedure UnregisterModule(Module: TModule);
     procedure StartInstalled;
-    procedure InstallMarked;
+    procedure InstallEnabled;
     procedure StopAll;
     procedure UninstallAll;
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -143 +152 @@
   for I := 0 to Dependencies.Count - 1 do begin
     Module := FindModuleByName(Dependencies[I]);
-    if Assigned(Module) then begin
+    if Assigned(Module) and Module.Enabled then begin
       if not Module.Running then Module.Start;
     end else raise Exception.CreateFmt(SModuleNotFound, [ModuleName, Dependencies[I]]);
@@ -199 +208 @@
   for I := 0 to Dependencies.Count - 1 do begin
     Module := FindModuleByName(Dependencies[I]);
-    if Assigned(Module) then begin
+    if Assigned(Module) and Module.Enabled then begin
       if not Module.Installed then Module.Install;
     end else raise Exception.CreateFmt(SModuleNotFound, [ModuleName, Dependencies[I]]);
@@ -248 +257 @@
 
 procedure TModuleManager.RegisterModule(Module: TModule;
-  MarkForInstall: Boolean = False);
+  Enabled: Boolean = True);
 begin
   Modules.Add(Module);
   Module.Manager := Self;
   Module.API := API;
-  Module.MarkForInstall := MarkForInstall;
+  Module.Enabled := Enabled;
 end;
 
@@ -270 +279 @@
 end;
 
-procedure TModuleManager.InstallMarked;
+procedure TModuleManager.InstallEnabled;
 var
   I: Integer;
@@ -276 +285 @@
   for I := 0 to Modules.Count - 1 do
   with TModule(Modules[I]) do
-    if not Installed and MarkForInstall then Install;
+    if not Installed and Enabled then Install;
 end;
 
@@ -310 +319 @@
 end;
 
+procedure TModuleManager.LoadFromRegistry(Context: TRegistryContext);
+var
+  I: Integer;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Context.RootKey;
+    for I := 0 to Modules.Count - 1 do
+    with TModule(Modules[I]) do begin
+      OpenKey(Context.Key + '\' + Identification, True);
+      Running := ReadBoolWithDefault('Run',  Enabled);
+    end;
+  finally
+    Free;
+  end;
+end;
+
+procedure TModuleManager.SaveToRegistry(Context: TRegistryContext);
+var
+  I: Integer;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Context.RootKey;
+    for I := 0 to Modules.Count - 1 do
+    with TModule(Modules[I]) do begin
+      OpenKey(Context.Key + '\' + Identification, True);
+      WriteBool('Run', Running);
+    end;
+  finally
+    Free;
+  end;
+end;
+
 { TModule }
 
@@ -318 +361 @@
 end;
 
+procedure TModule.BeforeStart;
+begin
+  if Running then Exit;
+  if not Installed then Install;
+  Manager.StartDependencies(Identification, Dependencies);
+end;
+
+procedure TModule.AfterStart;
+begin
+  FRunning := True;
+end;
+
+procedure TModule.BeforeStop;
+begin
+  if not Running then Exit;
+  FRunning := False;
+  Manager.StopDependencies(Identification);
+end;
+
+procedure TModule.AfterStop;
+begin
+end;
+
 procedure TModule.SetInstalled(AValue: Boolean);
 begin
@@ -324 +390 @@
 end;
 
+procedure TModule.SetEnabled(AValue: Boolean);
+begin
+  if FEnabled = AValue then Exit;
+  FEnabled := AValue;
+  if not FEnabled and FInstalled then Uninstall;
+end;
+
 procedure TModule.Start;
 begin
-  if Running then Exit;
-  Manager.StartDependencies(Identification, Dependencies);
-  FRunning := True;
+  BeforeStart;
+  AfterStart;
 end;
 
 procedure TModule.Stop;
 begin
-  if not Running then Exit;
-  Manager.StopDependencies(Identification);
-  FRunning := False;
+  BeforeStop;
+  AfterStop;
 end;