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

unit UDataModuleDemo;

{$mode delphi}

interface

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

type

  { TDataModuleDemo }

  TDataModuleDemo = 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
  DataModuleDemo: TDataModuleDemo;

implementation

{$R *.lfm}

uses
  URegistredModules;


{ TDataModuleDemo }

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

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

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

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

end.