请问大家,这个DLL加载后用什么方式卸载?FreeLibrary行不通

[jack_zhong]

上次的两个贴子我已经结了
这是接着上次的问题:
$R *.dfm}

function D_AdoConStr:string;stdcall;External'Module_fun.dll';

procedure Tlogfrm.FormCreate(Sender: TObject);
var
AdoConStr:string;
begin
//加载窗体信息;
logfrm.Width:=448;
logfrm.Height:=289;
logfrm.Left:=225;
logfrm.Top:=153;
ADOConnection.ConnectionString:='';
AdoConStr:=D_AdoConStr;
ADOConnection.ConnectionString:=AdoConStr;
ADOConnection.Connected:=true;
classfalse;
GroupBox2.Left:=99;
GroupBox2.Top:=0;
GroupBox1.Left:=99;
GroupBox1.Top:=-4;

//SetWindowPos(logfrm.handle,HWND_TOPMOST, logfrm.Left, logfrm.Top, logfrm.Width, logfrm.Height,0);
end;
中的
function D_AdoConStr:string;stdcall;External'Module_fun.dll';
函数不知道怎么样free,上次的问题就是这个DLL的事,DLL代码部分如下:
function D_AdoConStr:string;stdcall;
var
Inf_file:Tinifile;
con_pas,con_use,con_db,con_ip:string;
begin
Inf_file:= Tinifile.Create('.\info.ini');
result :=StringToWideChar('Provider=SQLOLEDB.1;'
+ 'Password=' + Inf_file.ReadString('Connect','Password',con_pas) + ';'
+ 'Persist Security Info=True;'
+ 'User ID=' + Inf_file.ReadString('Connect','User ID',con_use) + ';'
+ 'Initial Catalog=' + Inf_file.ReadString('Connect','Initial Catalog',con_db) + ';'
+ 'Data Source=' + Inf_file.ReadString('Connect','Data Source',con_ip) +';');
end;


exports myjezh,GetPYIndexChar,D_AdoConStr;

begin
end.
再请大家帮帮我

[web700]

只要全部的引用都关闭，它自动会FREE

[masterjames]

你没有动态LOAD，才可以FREE吧

[yqdragon]

楼主是不是分多啊，又开了一帖。建议先看下有关DLL调用的书籍。DLL有静态调用和动态调用
①静态调用
通过过程名和函数名来调用
function functionname(参数):DataType;stdcall;external ‘DLL文件名’
通过过程名和函数名的别名来调用
function functionname(参数):DataType;stdcall;external ‘DLL文件名’ name ‘别名’
通过过程名和函数名的索引来调用
function functionname(参数):DataType;stdcall;external ‘DLL文件名’ index n
②动态调用（一般采用此种方法，效果好）
顺序是：先用LoadLibrary()来加载DLL，再调用GetProcAddress()函数来取得函数地址，获得地址后就可以使用该函数了.最后需要用FreeLibrary()释放DLL

[wyf99]

UP!