Delphi 中动态链接库（DLL）的建立和使用

library minmax;

function Min(X, Y: Integer): Integer; export;

begin

if X < Y then Min := X else Min := Y;

end;

function Max(X, Y: Integer): Integer; export;

begin

if X > Y then Max := X else Max := Y;

end;

exports

Min index 1,

Max index 2;

begin

end.

经编译后，并以minmax.DLL存盘后，一个DLL库文件便形成了。

三 DLL库的访问

访问DLL库有两种方式，一种是静态引用，另一种是动态引用。

用静态引用这种方法装入DLL要做两件事情：为DLL 库创建一个输入单元，以及用USES把输入单元连接到要使用DLL 函数的程序模块中。为DLL库创建的输入单元与普通的单元的区别仅在于：在它的接口处声明的过程、函数，并不在它的实现部分给出真正的实现代码，而是用external关键字把过程、函数的实现细节委托给外部DLL模块。

external命令的使用语法如下：

procedure /function 过程/函数名；external DLL模块名；

下面给出为上面创建的minmax.DLL库写的输入单元源文件testdll .pas，从中可看出输入单元 与一般 单元的一些差别，代码如下所示：

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中的函数，只须在其