si, pero esta linea ya está en la aplicacion host, en el código de la dll no hay ningún Application.Run,
¿debería haberlo?
gracias por tu ayuda, este es el código de la dll:
library UsersMNM;
uses
SysUtils,
Classes,
FormEntrada in 'FormEntrada.pas' {frmEntrada};
{$R *.res}
exports
EntradaUser;
end.
------------------------
unit FormEntrada;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, DBCtrls;
type
TfrmEntrada = class(TForm)
ADOConnection1: TADOConnection;
DBListBox1: TDBListBox;
DBListBox2: TDBListBox;
ds_centros: TDataSource;
ds_usuarios: TDataSource;
sql_centros: TADOQuery;
sql_usuarios: TADOQuery;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
function EntradaUser(hWnd: THandle): Boolean; StdCall;
implementation
{$R *.dfm}
function EntradaUser(hWnd: THandle): Boolean;
var
frmEntrada: TfrmEntrada;
begin
Application.Handle := hWnd;
frmEntrada := TfrmEntrada.Create(Application);
result := true;
end;
procedure TfrmEntrada.FormCreate(Sender: TObject);
begin
ADOConnection1.Open;
sql_centros.Open;
end;
procedure TfrmEntrada.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOConnection1.Close;
Action := caFree;
end;
end.
|