Delphi中Create and call DLL

          
1 . create DLL (方法1): 
library MyDLL; 
uses 
  SysUtils, 
  Classes, 
  DLL  in   ' DLL.pas ' ; 
... {$R *.res}  
exports 
  AddIt, SubIt; 
begin 
end. 

unit DLL;     //  新增一個單元文件 
interface  
function AddIt(x1, x2: Integer): Integer; stdcall; 
function SubIt(x1, x2: Integer): Integer; stdcall; 
implementation 
function AddIt(x1, x2: Integer): Integer; stdcall; 
begin 
  result : =  x1  +  x2;    //  or AddIt := x1 + x2; 
end; 
function SubIt(x1, x2: Integer): Integer; stdcall; 
begin 
  result : =  x1  -  x2;     //  or SubIt := x1 - x2; 

end; 
end. 

create DLL (方法2): 
library MyDLL; 
uses 
  SysUtils, 
  Classes, 
  function AddIt(x1, x2: Integer): Integer; export; 
  begin 
    result : =  x1  +  x2;   //  or AddIt := x1 + x2;   
  end; 
  function SubIt(x1, x2: Integer): Integer; export; 
  begin 
    result : =  x1  -  x2;  //  or SubIt := x1 - x2; 
  end 
... {$R *.res}  
exporTs 
  AddIt, SubIt; 
begin 
end. 

2 . Static Call DLL 
unit MainForm; 
interface  
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 
type 
  TForm1  =   class (TForm) 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Label1: TLabel; 
    Label2: TLabel; 
    Button1: TButton; 
    Button2: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
   private  
     ... { Private declarations }  
   public  
     ... { Public declarations }  
  end; 
var 
  Form1: TForm1; 

implementation 
function AddIt(x1, x2: Integer): Integer; stdcall; external  ' MyDLL.dll ' ; 
function SubIt(x1, x2: Integer): Integer; stdcall; external  ' MyDLL.dll ' ; 
... {$R *.dfm}  
procedure TForm1.Button1Click(Sender: TObject); 
begin 
   if  (Edit1.Text <> '' ) and (Edit2.Text <> '' ) then 
  begin 
     try  
      Label1.Caption : =  IntToStr( AddIt(StrToInt(Edit1.Text), StrToInt(Edit2.Text)) ); 
      Label2.Caption : =  IntToStr( SubIt(StrToInt(Edit1.Text), StrToInt(Edit2.Text)) ); 
    except 
      ShowMessage( ' Input an integer number! ' ); 
      Edit1.SetFocus; 
    end; 
  end; 
end; 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  Edit1.Text : =  IntToStr(Random(Width)); 
  Edit2.Text : =  IntToStr(Random(Width)); 
end; 
end. 

3 . Automatic Call DLL 
unit AutoDLL; 
interface  
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 
type 
  TMyDLL  =  function(x, y: Integer): Integer; stdcall; 
  TForm1  =   class (TForm) 
    Button1: TButton; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Label1: TLabel; 
    Button2: TButton; 
    Label2: TLabel; 
    Label3: TLabel; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
   private  
     ... { Private declarations }  
   public  
     ... { Public declarations }  
  end; 
var 
  Form1: TForm1; 
  Gv_DLLHandle: THandle; 
  Gv_DLLPointer: Pointer; 
  Gv_MyDLLFunc: TMyDLL; 
implementation 
... {$R *.dfm}  
procedure TForm1.Button1Click(Sender: TObject); 
begin 
   if  (Edit1.Text = '' ) or (Edit2.Text = '' ) then 
    Exit; 
  Gv_DLLHandle : =  LoadLibrary( ' MyDLL.dll ' ); 
   if  Gv_DLLHandle > 0  then   // 判斷句柄是否有值﹐有值為載入成功 
     try  
      Gv_DLLPointer : =  GetProcAddress(Gv_DLLHandle, PChar( ' AddIt ' ));  // 根據函數名稱獲得函數指針 
       if  Gv_DLLPointer <> nil then     // 判斷Gv_DLLPointer是否為空指針﹐不為空則為得到了函數地址 
      begin 
        Gv_MyDLLFunc : =  TMyDLL(Gv_DLLPointer);   // 將指針強制轉換為函數指針 
         try  
          Label1.Caption : =  IntToStr(Gv_MyDLLFunc( StrToInt(Edit1.Text), StrToInt(Edit2.Text) )); 
        except 
          ShowMessage( ' Input an integer number! ' ); 
        end; 
      end 
       else  
        ShowMessage( ' No found "AddIt" ' ); 
      Gv_DLLPointer : =  GetProcAddress(Gv_DLLHandle, PChar( ' SubIt ' )); 
       if  Gv_DLLPointer <> nil then 
      begin 
        Gv_MyDLLFunc : =  TMyDLL(Gv_DLLPointer); 
         try  
          Label2.Caption : =  IntToStr(Gv_MyDLLFunc(StrToInt(Edit1.Text), StrToInt(Edit2.Text))); 
        except 
          ShowMessage( ' Input an integer number! ' ); 
        end; 
      end 
       else  
        ShowMessage( ' No found "SubIt" ' ); 
         
     finally  
      FreeLibrary(Gv_DLLHandle);  // 釋放DLL 
    end; 
end; 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  Edit1.Text : =  IntToStr(Random(Height)); 
  Edit2.Text : =  IntToStr(Random(Height)); 
end; 
end.