Question

Delphi怎么动态调用DLL？

比如调用DLL里的Procedure kill;一定要动态调用，希望发关键的源码。

Answer 1

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;