delphi动态调用DLL

发布网友发布时间：2023-07-12 17:41

共2个回答

热心网友时间：2024-11-07 16:51

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;

热心网友时间：2024-11-07 16:52

Type
TkillPro=procere;
//...
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;

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com