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

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;
egin

end.

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