为什么我调用dll后freelibrary后报错。代码如下:
type
Tbuild=procedure(var tree: TTreeview);stdcall;
var
myhandle : THandle;
build : Tbuild;
begin
myhandle:=loadlibrary('ttt.dll');
try
if myhandle>0 then
@build:=GetProcAddress(myhandle,'buildtree');
if Assigned(build) then
build(treeview1);
finally
freelibrary(myhandle);
end;
end;先谢了!100分!
type
Tbuild=procedure(var tree: TTreeview);stdcall;
var
myhandle : THandle;
build : Tbuild;
begin
myhandle:=loadlibrary('ttt.dll');
try
if myhandle>0 then
@build:=GetProcAddress(myhandle,'buildtree');
if Assigned(build) then
build(treeview1);
finally
freelibrary(myhandle);
end;
end;先谢了!100分!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货