var
HNDL: THandle;
DLLFuntionName: procedure;
stdcall;
begin
HNDL := LoadLibrary(PChar(ADLLPath));
try
if HNDL <> 0 then
begin
@DLLFuntionName := Getprocaddress(HNDL, PChar('DLLFuntionName'));
Assert@DLLFuntionName <> nil);
DLLFuntionName;
//调用
end;
finally
FreeLibrary(HNDL);
end;
end;
