Delphi 动态链接库

uses
SysUtils,
Classes;
function incc(a,b:integer):Integer; stdcall; //真正的代码开始；
begin
Result :=a+b;
end;
{$R *.res}


exports //允许调用；
incc;


end.

var
Form1: TForm1;

implementation

function incc(a,b:Integer):Integer;stdcall; external ‘Project1.dll‘; //加载这个动态库。

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
aa:Integer;
begin
aa:=incc(StrToInt(edt1.Text),StrToInt(edt2.Text));//开始调用
ShowMessage(IntToStr(aa));//弹出结果。
end;

end.

var
Form1: TForm1;

implementation

{$R *.dfm}

type
Tmyfun = function (a,b:integer):Integer; stdcall;//定义一个函数类型，注意一点过程类型种的参数应该与DLL中用到的方法的参数一致。

procedure TForm1.btn1Click(Sender: TObject);
var
myhandle:THandle;
FPointer:Pointer;
Myfun :Tmyfun;
begin
  myhandle:=LoadLibrary(‘C:\Documents and Settings\Administrator\桌面\新建文件夹\Project1.dll‘) ;//加载这个DLL
  if myhandle >0 then//加载成功就执行。
  try
    FPointer :=GetProcAddress(myhandle,PChar(‘incc‘)); //取函数的地址。
    if FPointer <>nil then //如果函数存在就调用
    begin
      Myfun := Tmyfun(FPointer);
      showmessage(IntToStr(Myfun(StrToInt(edt1.Text),StrToInt(edt2.Text))));//弹出算出的结果。
    end;
  except
    FreeLibrary(myhandle);
  end;
end;

end.