編寫DLL檔案最基本步驟

一、DLL的制作一般分為以下幾步：

1、在一個DLL工程裡寫一個過程或函數

2、寫在Exports關鍵字，在其下寫過程的名稱。不用寫參數和調用字尾

二、參數傳遞

1、參數類型最好與windows C++的參數類型一緻。不要用Delphi的資料類型

2、最好有傳回值[即使是一個過程]，來報出調用成功或失敗，或狀态。成功或失敗的傳回值最好為1[成功]或0[失敗]。一句話，與windows C++相容。

3、用stdcall聲明字尾

4、最好大寫寫敏感

5、無須用far調用字尾，那隻是為了與windows 16位程式相容

三、DLL的初始化和退出清理[如果需要初始化和退出清理]

1、DLLProc[SysUtils單元的一個Pointer]是DLL的入口。在此你可用你的函數替換了它的入口。但你的函數必須符合以下要求[其實就是一個回調函數]。如下：

procedure DllEnterPoint(dwReason: DWord); far; stdcall;

dwReason參數有四種類型：

DLL_PROCESS_ATTACH：程序進入時

DLL_PROCESS_DETACH：程序退出時

DLL_THREAD_ATTACH：線程進入時

DLL_THREAD_DETACH：線程退出時

在初始化部分寫：

DLLProc := @DLLEnterPoint;

DllEnterPoint(DLL_PROCESS_ATTACH);

2、如Form上有TDCOMConnection元件，就Uses AcitveX，在初始化時寫一句

CoInitialize(nil);

3、在退出時一定保證DCOMConnection.Connected := False，并且資料集已關閉。

否則報位址錯誤。

四、全局變量的使用

在windows 32位程式中，兩個應用程式的位址空間是互相沒有聯系的。雖然DLL在記憶體中是一份，但變量是在和程序的位址空間中，是以你不能借助于DLL的全局變量來達到兩個程式間的資料傳遞，除非你用記憶體映像檔案。

五、 調用靜态載入

1、 用戶端函數聲名:

  1.1、大小寫敏感。

  1.2、與DLL中的聲明一樣。

如： showform(form:Tform);Far;external′yproject_dll.dll′;

  1.3、調用時傳過去的參數類型最好也與windows c++一樣。

  1.4、調用時DLL必須在windows搜尋路徑中，順序是：目前目錄；Path路徑；windows;widows\system;windows\ssystem32;

六、 調用動态載入

1 建立一種過程類型[如果你對過程類型的變量隻是一個指針的本質清楚的話，你就知道是怎麼回事了]。如：

type

mypointer=procedure(form:Tform);Far;external;

var

Hinst:Thandle;

showform:mypointer;

begin

Hinst:=loadlibrary(′yproject_dll′);//Load一個Dll,按檔案名找。

showform:=getprocaddress(Hinst,′showform′);//按函數名找，大小寫敏感。如果你知道自動化對象的本質就清楚了。

showform(application.mainform);//找到函數入口指針就調用。

Freelibrary(Hinst);

end;

七、 在DLL建立一個TForM

1 把你的Form Uses到Dll中，你的Form用到的關聯的單元也要Uses進來[這是最麻煩的一點，因為你的Form或許Uses了許多特殊的單元或函數]

2 傳遞一個Application參數，用它建立Form.

八、 在DLL中建立一個TMDIChildForM

1 Dll中的MDIForm.FormStyle不用為fmMDIChild.

2 在CreateForm後寫以下兩句：

function ShowForm(mainForm:TForm):integer;stdcall

var

Form1: TForm1;

ptr:PLongInt;

begin

ptr:[email protected](Application.MainForm);//先把dll的MainForm句柄儲存起來，也無須釋放，隻不過是替換一下

ptr^:=LongInt(mainForm);//用主調程式的mainForm替換DLL的MainForm。MainForm是特殊的WINDOW，它專門管理Application中的Forms資源.

//為什麼不直接Application.MainForm := mainForm,因為Application.MainForm是隻讀屬性

Form1:=TForm1.Create(mainForm);//用參數建立

end;

備注：參數是主調程式的Application.MainForm

九、 示例：

DLL源代碼：

library Project2;

uses

SysUtils,

Classes,

Dialogs,

Forms,

Unit2 in ′Unit2.pas′ {Form2};

{$R *.RES}

var

ccc: Pchar;

procedure OpenForm(mainForm:TForm);stdcall;

var

Form1: TForm1;

ptr:PLongInt;

begin

ptr:[email protected](Application.MainForm);

ptr^:=LongInt(mainForm);

Form1:=TForm1.Create(mainForm);

end;

procedure InputCCC(Text: Pchar);stdcall;

begin

ccc := Text;

end;

procedure ShowCCC;stdcall;

begin

ShowMessage(String(ccc));

end;

exports

OpenForm;

InputCCC,

ShowCCC;

begin

end.

調用方源代碼：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure OpenForm(mainForm:TForm);stdcall;External′project2.dll′;

procedure ShowCCC;stdcall;External′project2.dll′;

procedure InputCCC(Text: Pchar);stdcall;External′project2.dll′;

procedure TForm1.Button1Click(Sender: TObject);

var

Text: Pchar;

begin

Text := Pchar(Edit1.Text);

// OpenForm(Application.MainForm);//為了調MDICHILD

InputCCC(Text);//為了實驗DLL中的全局變量是否在各個應用程式間共享

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

ShowCCC;//這裡表明WINDOWS 32位應用程式DLL中的全局變量也是在應用程式位址空間中，16位應用程式或許不同，沒有做實驗。

轉載于:https://blog.51cto.com/gang4415/331694