如何动态调用DLL窗体

葫芦老四 2011-11-19 11:27:44
我现有一个DLL文件(Bak_Data.dll),dll文件中包含一个窗体(BakForm)

DLL中输出的过程为:

procedure BakForm_Show;stdcall;
begin
if BAKForm=nil then
BAKForm:=TBAKForm.Create(Application);
BAKForm.Show;
end;

请问如何在EXE程序中动态调用这个DLL窗体,静态的方式我会,动态的老是不成功,请高手指点下!
...全文
131 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
葫芦老四 2011-11-19
  • 打赏
  • 举报
回复
我在主程序中是这样写的:

procedure TMainForm.N1Click(Sender: TObject);
var
BakDll:THandle;

begin

BakDll:=LoadLibrary('Bak_Data.dll');
try
begin
if BakDll<>0 then
begin
BakForm_Show:= GetProcAddress(BakDll,'BakForm_Show')

end else
RaiseLastWin32Error;
end;
finally
FreeLibrary(BakDll);

end;
end;

这中间还差点代码来调用窗体,请问该如何写呢
葫芦老四 2011-11-19
  • 打赏
  • 举报
回复
搞出来了,原来是如此简单的一件事,搞明白了差点撞墙.
OO_is_just_P 2011-11-19
  • 打赏
  • 举报
回复
在DLL中写一个导出函数
function SelectName(const Names:PChar):PChar;stdcall;export;
begin
FrmSelName :=TFrmSelName.Create(nil);
Try
frmSelName.Listbox1.Items.clear;
frmSelName.Listbox1.Items.AddStrings(Names);
....
ShowModal;
Finally
FrmSelName.Free;
end;
end;

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧