Delphi通过LoadLibrary调用其他动态库


本文整理自网络,侵删。

 
procedure TFrmrydj.btnJYJJClick(Sender: TObject);
type
  Tfzyb_yjjgl=procedure;stdcall;  
var
   LibHandle: THandle;
   fzyb_yjjgl:Tfzyb_yjjgl;
begin
    try
      LibHandle := LoadLibrary('zyb_yjjgl.dll');
      if LibHandle <> 0 then
      begin
        @fzyb_yjjgl := GetProcAddress(LibHandle, 'fzyb_yjjgl');
        if Assigned(fzyb_yjjgl) then
            fzyb_yjjgl; 
      end;
    finally
       freeLibrary(LibHandle);
    end;
end;

相关阅读 >>

Delphi 组件值实现增减

Delphi getwindowhandle

Delphi tfilestream 的读写 合并文件

Delphi 操作sql 插入一万条数据 三种方式速度测试

Delphi 获取指定当前目录下指定文件扩展名所有文件

Delphi 密码框写完后按enter直接登录

Delphi 键盘钩子的简单应用

Delphi 比较俩组ip地址是否一样

Delphi 通�^窗口句柄或窗口标题得到进程句柄

Delphi操作access数据库

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...