Delphi 中动态链接库（dll）的建立和使用[2]

　　unit testdll;
interface
uses
function Min (X, Y: Integer): Integer;

function Max (X, Y: Integer): Integer;
implementation
function Min; external ‘minmax.DLL’;
function Max; external ‘minmax.DLL’;
end.
　　一个应用程序若想调用minmax.DLL中的函数，只须在其uses语句中加入testdll 单元即可。

　　动态装入DLL，要用到Windows的三个API函数。Loadlibrary、Freelibrary和GetprocAddress 。loadlibrary函数用来装入DLL库，其调用格式如下：

　　function loadlobrary (DLLfileName：Pchar): THandle:

　　当不再需要一个DLL库时，应调用FreeLibrary函数将其释放，以空出宝贵的内存资源，其调用格式如下：

文章来源于领测软件测试网 https://www.ltesting.net/