求动态调用dll 过程

[com27ux]

哪位哥们帮帮我啊 把静态调用改为动态调用

比如说这个

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


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

邮箱 [e-mail]

[gyk120]

静态无非是external dll。动态改成loadlibrary dll然后getprocaddress不就行了

[com27ux]

阿门就是不会呀 嘿嘿 小菜。。求指导下被

[com27ux]

帮忙写个动态调用过程被就根据上面的那个dll 代码

[jyb_9]

先定义你要调用的过程
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;