如何在Delphi程序中调用DLL中的函数？

[DelUser]

现在有一个DLL函数 ，CODE。DLL
在一个Button.onclick事件中要调用其中的一个函数ChangCode该函数有两个参数,都是字符型的?请问怎么声明调用及在事件中添加代码?
给出例子!

[xxyzjf]

第一步:将该.DLL文件拷到WINNT|SYSTEM32\下
第二步: RUN: regsvr32 *.dll
第三步:new\application;在tform!1=class(tform)前或后新建一个类如:
taaa=class
public
procedure test/////test 是DLL中的一个函数名
end;
在implemention前的var后跟上one:taaa;
在implemention后跟上:
Procedure Taaa.test;
begin
showmessage('success!');
end;
第四步:击button触发事件:
BEGIN
one.test;
END;

[fwwxxjingling]

呵呵，关注一下！！

[hahafan]

动态调用：
type
TChangCode=function (p1:类型；p2：类型):返回值类型；stdcall；
var
LHandle:THandle；
ChangCode：TChangCode；

LHandle := LoadLibrary('code.dll')；
try
if LHandle = 0 then
showmessage('Unable to Load DLL')；
@ChangCode＝GetProcAddress(LHandle,'ChangCode');
if not (@ChangCode=nil) then
begin
//调用该函数，与其它函数调用方法相同
end；
finally
FreeLibrary(LHandle)；
end；


还有种是静态调用可看看delphi的原码中有很多那样的代码