Question

delphi动态调用DLL

写了个1.dll内容如下
library Project2;
uses
SysUtils,
Classes;

{$R *.res}
function abc(x,y:Integer):Integer;stdcall;
begin
Result:=x+y;
end;
exports
abc;
end.
如何动态调用它呢。
比如想实现Edit3.Text:=IntToStr(abc(strtoint(Edit1.Text),strtoint(Edit2.text)));效果，该咋办。
要求动态调用。
不对啊，调试通了，算不对。

Answer 1

var
dll:Cardinal;
pp:function(x,y:integer):integer;
begin
dll:=LoadLibrary(PChar('xx.dll'));
if dll<>0 then
begin
@pp:=GetProcAddress(dll, 'abc');
if @pp<>nil then
Edit3.Text:=inttostr(pp(strtoint(Edit1.Text),strtoint(Edit2.text)));
FreeLibrary(dll);
end;
end;

Answer 2

Type
TkillPro=procedure;
//...
var
LibHandle:
THandle;
pro:TKillPro;
DLLFile:string;
begin
DLLFile:='你的DLL文件路径';
LibHandle:=LoadLibrary(pchar(DLLFile));
if
LibHandle<>HINSTANCE_ERROR
then
begin
@pro:=GetProcAddress(LibHandle,'Kill');
if
not
(@pro=nil)
then
Pro;//调用...
end;
end;