求动态调用dll 过程

com27ux 2011-08-10 02:58:56
哪位哥们帮帮我啊 把静态调用改为动态调用

比如说这个

http://bbs.pediy.com/showthread.php?t=103232


这个地址的例子哪位帮帮我改下 俺学习学习谢谢了

邮箱 849638665@qq.com
...全文
156 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
jyb_9 2011-08-10
  • 打赏
  • 举报
回复
先定义你要调用的过程
type
TfuncName=function (参数:类型):PChar;stdcall;
调用
var
Thandle1:THandle;
TFunc1:TfuncName;
TProc:TFarProc;
begin
Thandle1:=LoadLibrary('动态库名.DLL');
if Thandle1> 0 then
begin
try
TProc :=GetProcAddress(ThEncrypt ,PChar('相对应的过程或函数));
if TProc <> nil then
begin
TFunc1:=TfuncName(TProc );
;
end;
finally
FreeLibrary(Thandle1);
end;
end;
end;
com27ux 2011-08-10
  • 打赏
  • 举报
回复
帮忙写个动态调用过程被就根据上面的那个dll 代码
com27ux 2011-08-10
  • 打赏
  • 举报
回复
阿门就是不会呀 嘿嘿 小菜。。求指导下被
gyk120 2011-08-10
  • 打赏
  • 举报
回复
静态无非是external dll。动态改成loadlibrary dll然后getprocaddress不就行了

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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