您的位置:首页 > 编程语言 > Delphi

delphi 调用动态连接库DEMO

2020-03-05 12:01 1166 查看

1、在被调用的dll中exports函数,pas文件定义声明函数;

2、需要调用的地方加上

Handle := GetModuleHandle(PChar(DLL));
if Handle = 0 then
begin
Handle := LoadLibrary(PChar(DLL));
if Handle = 0 then
begin
AppMessageBox('加载DLL文件<'+DLL+'>失败',2);
Exit;
end;
end;


@CapitalDLLFunc := GetProcAddress(Handle, PChar('PrintReport'));
if @CapitalDLLFunc <> nil then

转载于:https://www.cnblogs.com/runningcode/p/8491868.html

  • 点赞
  • 收藏
  • 分享
  • 文章举报
diaozanqiang5395 发布了0 篇原创文章 · 获赞 0 · 访问量 217 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: