Fórum Carregar pacote (form) dinamicamente #357568

type
  TfrmLogin = class(TfrmPadrao)
    Label1: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  // Para chamada externa
  // ********************************
  procedure ExecutaModulo; stdcall;
  exports ExecutaModulo;
  // ********************************
implementation

{$R *.dfm}

procedure ExecutaModulo; stdcall;
var
  Frm: TfrmLogin;
begin

  Frm := TfrmLogin.Create(Application);

  try
    Frm.ShowModal;
  finally
    Frm.Release;
    FreeAndNil(Frm);
  end;
 
end;

end. 

type
  TExecutaModulo = procedure; stdcall;

var
  loHandle: THandle;
  ExecutaModulo: TExecutaModulo;
begin
  loHandle := LoadLibrary(´PacoteTeste.bpl´);
  if loHandle > 0 then
    begin
    @ExecutaModulo := GetProcAddress(lohandle, ´ExecutaModulo´);
    ExecutaModulo;
    FreeLibrary(loHandle);
    end
  else
    Showmessage(´modulo não encontrado´);
end;