Delphi- DLL操作

　　动态链接库（Dynamic Link Library）是一个可以执行的并可以被多个Windows应用程序共享的程序模块（Module）。模块中包含代码、数据和资源。
　　动态链接库的优点：不用重复编译和链接，一旦装入内存，DLL中的函数就可以被系统中的任何在运行的应用程序使用，而不必产生函数的多个COPY。
　　DLL和EXE很类似，区别在于，DLL文件中虽然包含了可执行代码却不能单独执行，只能由Windows应用程序直接或间接调用。

　　静态链接是将应用程序调用的库函数COPY一份到应用程序中去。
　　动态链接，当应用程序使用了某个DLL中的函数时，动态链接不COPY代码，还是在运行期间在DLL的位置寻找所需的函数代码。

第一种方法：

生动DLL，不能直接行运，在prjoect里按complie，或者按ctrl + F9编译运行，将生成的DLL，复制到新项目中用。

uses
  SysUtils,
  Classes;

{$R *.res}

function Max(x,y,z:Integer):Integer;stdcall;
var
  t:Integer;
begin
  if (x<y) then
    t := y;
  else
    t := x;

  if (t<z) then
    t := z;

  Result := t;
end;

begin

end.

测试调用运行：

var
  Form1: TForm1;
  function Max(x,y,z:Integer):Integer;stdcall;external 'ProjectMax.dll';

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  t: Integer;
begin
  t := Max(3,4,1);
  ShowMessage(IntToStr(t));
end;

动态调用DLL

type
  Max = function(x,y,z:integer):integer; stdCall;

procedure TForm1.btn1Click(Sender: TObject);
var
  temp: Integer;
  handle: THandle;
  FPointer: TFarProc;
  MyFunc: Max;
begin

  handle := LoadLibrary('ProjectMaxDll.dll');
  if handle <> 0 then
  begin
      FPointer := GetProcAddress(handle,'Max');
      if  FPointer<>nil then
      begin
        MyFunc:= Max(FPointer);
        temp:= MyFunc(1,2,3);
        ShowMessage(IntToStr(temp));
      end
      else
      begin

      end
  end
  else
    ShowMessage('未找到动态链接库！');

end;