dll的入口写法,来着有分

Question

如何在dll的入口处启动data moudule,使得dll中每个from 都公用data moudule的ADOConnection.

Answer 1

dll中：
uses Forms, DataModuleUnit, FormUnit,...;begin
  DataModule1 := TDataModule1.Create(Application);
  Form1 := TForm1.Create(Application);
end.在DataModule的unit中
constructor TDataModule1.Create(AOwner: TComponent)
begin
  ADOTable1.Active := true;
end;

Answer 2

<<<在DataModule的unit中
constructor TDataModule1.Create(AOwner: TComponent)
begin
  ADOTable1.Active := true;
end>>>
执行此段回出错

Answer 3

procedure RunDLL;
begin
  try  //初始化DATAMODULE
    Application.Initialize;
    Application.CreateForm(TdmManPower, dmManPower);
  except
  end;
  
  MyForm := TMyForm.Create(Nil)
  try
    MyForm.ShowModal;
  finally
    MyForm.Free;
  end;
end;