source: trunk/Packages/ChronisPlatform/Demo/URegistredModules.pas

unit URegistredModules;

{$mode delphi}

interface

uses
  Classes, SysUtils, UModularSystem;

procedure RegisterModules(ModuleManager: TModuleManager);
procedure UnregisterModules(ModuleManager: TModuleManager);


implementation

uses
  UModuleTest;

procedure RegisterModules(ModuleManager: TModuleManager);
begin
  UnregisterModules(ModuleManager);
  with ModuleManager do
  try
    Modules.BeginUpdate;
    RegisterModule(TModuleTest.Create(nil));
  finally
    Modules.EndUpdate;
  end;
end;

procedure UnregisterModules(ModuleManager: TModuleManager);
var
  I: Integer;
  Module: TModule;
begin
  with ModuleManager do
  try
    Modules.BeginUpdate;
    for I := Modules.Count - 1 downto 0 do begin
      Module := TModule(Modules[I]);
      UnregisterModule(Module);
      Module.Free;
    end;
  finally
    Modules.EndUpdate;
  end;
end;

end.