Delphi怎么动态调用DLL？

来源：百度知道 编辑：UC知道 时间：2024/06/08 21:53:05
比如调用DLL里的Procedure kill;一定要动态调用，希望发关键的源码。

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;