初次使用DLL的简单问题

Question

Library MyDll
...
  UnitFormLogin in '..\UnitFormLogin.pas' {FormLogin};{$R *.res}
exports
    SQLLogin index 1;
....unit UnitFormLogin
...
function SQLLogin(ADOConnection :TADOConnection;
                   Config :TFileName = 'config.ini'):boolean; 
var
    f :TFormLogin;
begin
  f := TFormLogin.Create(nil,ADOConnection,'config.ini');
  try
    f.ShowModal;
  finally
    FreeAndNil(f);
  end;  result := ADOConnection.Connected;
end;...
在我的程序中运行SQLLogin可以登录数据库，但是退出程序时提示
'A call to an OS function failed'

Answer 1

可能和调用的方式有关，如stdcall,cedel等，结果是不一样的。

Answer 2

function SQLLogin(ADOConnection :TADOConnection;
                   Config :TFileName = 'config.ini'):boolean; stdcall;
也不行

Answer 3

我在DLL中动态创建了一个Form,没有释放的缘故