source: trunk/UDataModuleModules.pas

unit UDataModuleModules;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, UCore, UApplicationInfo, URegistry, Registry;

type

  { TDataModuleModules }

  TDataModuleModules = class(TDataModule)
    ApplicationInfo1: TApplicationInfo;
    ChronisPlatform1: TChronisPlatform;
    procedure ChronisPlatform1RegisterModules(Sender: TObject);
    procedure ChronisPlatform1UnregisterModules(Sender: TObject);
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  DataModuleModules: TDataModuleModules;

implementation

{$R *.lfm}

uses
  URegistredModules;

{ TDataModuleModules }

procedure TDataModuleModules.DataModuleCreate(Sender: TObject);
begin
  ChronisPlatform1.RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey);
  ChronisPlatform1.Init;
end;

procedure TDataModuleModules.ChronisPlatform1RegisterModules(Sender: TObject);
begin
  RegisterModules(Core.ModuleManager);
end;

procedure TDataModuleModules.ChronisPlatform1UnregisterModules(Sender: TObject);
begin
  UnregisterModules(Core.ModuleManager);
end;

procedure TDataModuleModules.DataModuleDestroy(Sender: TObject);
begin
  ChronisPlatform1.Done;
end;

end.