一、開使你的第一個DLL專案
1.File->Close all->File->New﹝DLL﹞
代碼:
//自動產生Code如下
library Project2;
//這有段廢話
uses
SysUtils,
Classes;
{$R *.RES}
begin
end.
2.加個Func進來：
代碼:
library Project2;
uses
SysUtils,
Classes;
Function MyMax ( X , Y : integer ) : integer ; stdcall ;
begin
if X > Y then
Result := X
else
Result := Y ;
end ;
//切記：Library 的名字大小寫沒關系，可是DLL-Func的大小寫就有關系了。
// 在 DLL-Func-Name寫成MyMax與myMAX是不同的。如果寫錯了，立即
// 的結果是你叫用到此DLL的AP根本開不起來。
//參數的大小寫就沒關系了。甚至不必同名。如原型中是 (X,Y:integer)但引
// 用時寫成(A,B:integer)，那是沒關系的。
//切記：要再加個stdcall。書上講，如果你是用Delphi寫DLL，且希望不僅給
// Delphi-AP也希望BCB/VC-AP等使用的話，那你最好加個Stdcall ; 的指示
//參數型態：Delphi有很多種它自己的變量型態，這些當然不是DLL所喜歡的
// ，Windows/DLL的母語應該是C。所以如果要傳進傳出DLL的參數，我們
// 盡可能照規矩來用。這兩者寫起來，后者會麻煩不少。如果你對C不熟
// 的話，那也沒關系。我們以后再講。
{$R *.RES}
begin
end.
3.將這些可共享的Func送出DLL，讓外界﹝就是你的Delphi-AP啦﹞使用：光如此，你的AP還不能用到這些，你還要加個Exports才行。
代碼:
{$R *.RES}
exports
MyMax ;
begin
end.
4.好了，可以按 Ctrl-F9編譯了。此時可不要按F9。DLL不是EXE┌不可單獨執行的，如果你按F9，會有ErrorMsg的。這時如果DLL有Error，請修正之。再按Ctrl-F9。此時可能有Warning，不要緊，研究一下，看看就好。再按Ctrl-F9，此時就『Done , Compiled 』。同目錄就會有個 *.dll 。恭喜，大功告成了。
二、進行測試：開個新application：
1.加個TButton
代碼:
ShowMessage ( IntToStr(MyMax(30,50)) ) ;
2.告知Exe到那里抓個Func
代碼:
//在Form,interface,var后加
Function MyMax ( X , Y : integer ) : integer ; stdcall ; external 'MyTestDLL.dll' ;
// MyTestDLL.dll為你前時寫的DLL項目名字
// DLL名字大小寫沒關系。不過記得要加 extension的 .DLL。在Win95或NT，
// 是不必加 extension，但這兩種OS，可能越來越少了吧。要加extension
可以了，簡單吧。
上面的例子是不是很簡單？熟悉Delphi的朋友可以看出以上代碼和一般的Delphi程序的編寫基本是相同的，只是在TestDll函數后多了一個stdcall參數並且用exports語句聲明了TestDll函數。只要編譯上面的代碼，就可以玫揭桓雒狣elphi.dll的動態鏈接庫。現在，讓我們來看看有哪些需要注意的地方：
1.在DLL中編寫的函數或過程都必須加上stdcall調用參數。在Delphi 1或Delphi 2環境下該調用參數是far。從Delphi 3以后將這個參數變為了stdcall，目的是為了使用標准的Win32參數傳遞技術來代替優化的register參數。忘記使用stdcall參數是常見的錯誤，這個錯誤不會影響DLL的編譯和生成，但當調用這個DLL時會發生很嚴重的錯誤，導致操作系統的死鎖。原因是register參數是Delphi的默認參數。
2.所寫的函數和過程應該用exports語句聲明為外部函數。
正如大家看到的，TestDll函數被聲明為一個外部函數。這樣做可以使該函數在外部就能看到，具體方法是單激鼠標右鍵用“快速查看（Quick View）”功能查看該DLL文件。（如果沒有“快速查看”選項可以從Windows CD上安裝。）TestDll函數會出現在Export Table欄中。另一個很充分的理由是，如果不這樣聲明，我們編寫的函數將不能被調用，這是大家都不願看到的。
3.當使用了長字符串類型的參數、變量時要引用ShareMem。
Delphi中的string類型很強大，我們知道普通的字符串長度最大為256個字符，但Delphi中string類型在默認情況下長度可以達到2G。（對，您沒有看錯，確實是兩兆。）這時，如果您堅持要使用string類型的參數、變量甚至是記錄信息時，就要引用ShareMem單元，而且必須是第一個引用的。既在uses語句后是第一個引用的單元。如下例：
uses
ShareMem, SysUtils, Classes;
還有一點，在您的工程文件（*.dpr）中而不是單元文件（*.pas）中也要做同樣的工作，這一點Delphi自帶的幫助文件沒有說清楚，造成了很多誤會。不這樣做的話，您很有可能付出死機的代價。避免使用string類型的方法是將string類型的參數、變量等聲明為Pchar或ShortString（如：s:string[10]）類型。同樣的問題會出現在當您使用了動態數組時，解決的方法同上所述。
用Delphi制作DLL的方法
一 Dll的制作一般步驟
二 參數傳遞
三 DLL的初始化和退出清理[如果需要初始化和退出清理]
四 全局變量的使用
五 調用靜態載入
六 調用動態載入
七 在DLL建立一個TForM
八 在DLL中建立一個TMDIChildForM
九 示例：
十 Delphi制作的Dll與其他語言的混合編程中常遇問題：
十一 相關資料
一 Dll的制作一般分為以下幾步：
1 .在一個DLL工程里寫一個過程或函數
2 .寫一個Exports關鍵字，在其下寫過程的名稱。不用寫參數和調用后綴。
二 參數傳遞
1 .參數類型最好與window 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 Activex,在初始化時寫一句CoInitialize (nil);
3 .在退出時一定保證DcomConnection.Connected := False,並且數據集已關閉。否則報地址錯。
四 全局變量的使用
在widnows 32位程序中，兩個應用程序的地址空間是相互沒有聯系的。雖然DLL在內存中是一份，但變量是在各進程的地址空間中，因此你不能借助dll的全局變量來達到兩個應用程序間的數據傳遞，除非你用內存映像文件。
五 調用靜態載入
1 客戶端函數聲名:
1)大小寫敏感。
2)與DLL中的聲明一樣。
如： showform(form:Tform);Far;external'yproject_dll.dll';
3)調用時傳過去的參數類型最好也與windows c++一樣。
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:=@(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:=@(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位應用程序或許不同，沒有做實驗。
end;
十 Delphi制作的Dll與其他語言的混合編程中常遇問題：
1 .與PowerBuilder混合編程
在定義不定長動態數組方面在函數退出清理堆棧時老出現不可重現的地址錯，原因未明，大概與PB的編譯器原理有關，即使PB編譯成二進制代碼也如此。
在Delphi中靜態調用DLL
調用一個DLL比寫一個DLL要容易一些。首先給大家介紹的是靜態調用方法，稍后將介紹動態調用方法，並就兩種方法做一個比較。同樣的，我們先舉一個靜態調用的例子。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
//本行以下代碼為我們真正動手寫的代碼
function TestDll(i:integer):integer;stdcall;
external ’Delphi.dll’;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(TestDll(1));
end;
end.上面的例子中我們在窗體上放置了一個編輯框（Edit）和一個按鈕（Button），並且書寫了很少的代碼來測試我們剛剛編寫的Delphi.dll。大家可以看到我們唯一做的工作是將TestDll函數的說明部分放在了implementation中，並且用external語句指定了Delphi.dll的位置。（本例中調用程序和Delphi.dll在同一個目錄中。）讓人興奮的是，我們自己編寫的TestDll函數很快被Delphi認出來了。您可做這樣一個實驗：輸入“TestDll（”，很快Delphi就會用fly-by提示條提示您應該輸入的參數是什么，就像我們使用Delphi中定義的其他函數一樣簡單。注意事項有以下一些：
一、調用參數用stdcall
和前面提到的一樣，當引用DLL中的函數和過程時也要使用stdcall參數，原因和前面提到的一樣。
二、用external語句指定被調用的DLL文件的路徑和名稱
正如大家看到的，我們在external語句中指定了所要調用的DLL文件的名稱。沒有寫路徑是因為該DLL文件和調用它的主程序在同一目錄下。如果該DLL文件在C:/，則我們可將上面的引用語句寫為external ’C:/Delphi.dll’。注意文件的后綴.dll必須寫上。
三、不能從DLL中調用全局變量
如果我們在DLL中聲明了某種全局變量，如：var s:byte 。這樣在DLL中s這個全局變量是可以正常使用的，但s不能被調用程序使用，既s不能作為全局變量傳遞給調用程序。不過在調用程序中聲明的變量可以作為參數傳遞給DLL。
四、被調用的DLL必須存在
這一點很重要，使用靜態調用方法時要求所調用的DLL文件以及要調用的函數或過程等等必須存在。如果不存在或指定的路徑和文件名不正確的話，運行主程序時系統會提示“啟動程序時出錯”或“找不到*.dll文件”等運行錯誤。
在Delphi中動態調用DLL
動態調用DLL相對復雜很多，但非常靈活。為了全面的說明該問題，這次我們舉一個調用由C++編寫的DLL的例子。首先在C++中編譯下面的DLL源程序。
#include
extern ”C” _declspec(dllexport)
int WINAPI TestC(int i)
{
return i;
}
編譯后生成一個DLL文件，在這里我們稱該文件為Cpp.dll，該DLL中只有一個返回整數類型的函數TestC。為了方便說明，我們仍然引用上面的調用程序，只是將原來的Button1Click過程中的語句用下面的代碼替換掉了。
procedure TForm1.Button1Click(Sender: TObject);
type
TIntFunc=function(i:integer):integer;stdcall;
var
Th:Thandle;
Tf:TIntFunc;
Tp:TFarProc;
begin
Th:=LoadLibrary(’Cpp.dll’); {裝載DLL}
if Th>0 then
try
Tp:=GetProcAddress(Th,PChar(’TestC’));
if Tp<>nil then
begin
Tf:=TIntFunc(Tp);
Edit1.Text:=IntToStr(Tf(1)); {調用TestC函數}
end
else
ShowMessage(’TestC函數沒有找到’);
finally
FreeLibrary(Th); {釋放DLL}
end
else
ShowMessage(’Cpp.dll沒有找到’);
end;
大家已經看到了，這種動態調用技術很復雜，但只要修改參數，如修改LoadLibrary(’Cpp.dll’)中的DLL名稱為’Delphi.dll’就可動態更改所調用的DLL。
一、定義所要調用的函數或過程的類型
在上面的代碼中我們定義了一個TIntFunc類型，這是對應我們將要調用的函數TestC的。在其他調用情況下也要做同樣的定義工作。並且也要加上stdcall調用參數。
二、釋放所調用的DLL
我們用LoadLibrary動態的調用了一個DLL，但要記住必須在使用完后手動地用FreeLibrary將該DLL釋放掉，否則該DLL將一直占用內存直到您退出Windows或關機為止。
現在我們來評價一下兩種調用DLL的方法的優缺點。靜態方法實現簡單，易於掌握並且一般來說稍微快一點，也更加安全可靠一些；但是靜態方法不能靈活地在運行時裝卸所需的DLL，而是在主程序開始運行時就裝載指定的DLL直到程序結束時才釋放該DLL，另外只有基於編譯器和鏈接器的系統（如Delphi）才可以使用該方法。動態方法較好地解決了靜態方法中存在的不足，可以方便地訪問DLL中的函數和過程，甚至一些老版本DLL中新添加的函數或過程；但動態方法難以完全掌握，使用時因為不同的函數或過程要定義很多很復雜的類型和調用方法。對於初學者，筆者建議您使用靜態方法，待熟練后再使用動態調用方法。
使用DLL的實用技巧
一、編寫技巧
1 、為了保證DLL的正確性，可先編寫成普通的應用程序的一部分，調試無誤后再從主程序中分離出來，編譯成DLL。
2 、為了保證DLL的通用性，應該在自己編寫的DLL中杜絕出現可視化控件的名稱，如：Edit1.Text中的Edit1名稱；或者自定義非Windows定義的類型，如某種記錄。
3 、為便於調試，每個函數和過程應該盡可能短小精悍，並配合具體詳細的注釋。
4 、應多利用try-finally來處理可能出現的錯誤和異常，注意這時要引用SysUtils單元。
5 、盡可能少引用單元以減小DLL的大小，特別是不要引用可視化單元，如Dialogs單元。例如一般情況下，我們可以不引用Classes單元，這樣可使編譯后的DLL減小大約16Kb。
二、調用技巧
1 、在用靜態方法時，可以給被調用的函數或過程更名。在前面提到的C++編寫的DLL例子中，如果去掉extern ”C”語句，C++會編譯出一些奇怪的函數名，原來的TestC函數會被命名為@TestC$s等等可笑的怪名字，這是由於C++采用了C++ name mangling技術。這個函數名在Delphi中是非法的，我們可以這樣解決這個問題：
改寫引用函數為
function TestC(i:integer):integer;stdcall;
external ’Cpp.dll’;name ’@TestC$s’;
其中name的作用就是重命名。
2 、可把我們編寫的DLL放到Windows目錄下或者Windows/system目錄下。這樣做可以在external語句中或LoadLibrary語句中不寫路徑而只寫DLL的名稱。但這樣做有些不妥，這兩個目錄下有大量重要的系統DLL，如果您編的DLL與它們重名的話其后果簡直不堪設想，況且您的編程技術還不至於達到將自己編寫的DLL放到系統目錄中的地步吧！
三、調試技巧
1 、我們知道DLL在編寫時是不能運行和單步調試的。有一個辦法可以，那就是在Run|parameters菜單中設置一個宿主程序。在Local頁的Host Application欄中添上宿主程序的名字就可進行單步調試、斷點觀察和運行了。
2 、添加DLL的版本信息。開場白中提到了版本信息對於DLL是很重要的，如果包含了版本信息，DLL的大小會增加2Kb。增加這么一點空間是值得的。很不幸我們如果直接使用Project|options菜單中Version選項是不行的，這一點Delphi的幫助文件中沒有提到，經筆者研究發現，只要加一行代碼就可以了。如下例：
library Delphi;
uses
SysUtils, Classes;
{$R *.RES}
//注意，上面這行代碼必須加在這個位置
function TestDll(i:integer):integer;stdcall;
begin
Result:=i;
end;
exports
TestDll;
begin
end.
3 、為了避免與別的DLL重名，在給自己編寫的DLL起名字的時候最好采用字符數字和下划線混合的方式。如：jl_try16.dll。
4 、如果您原來在Delphi 1或Delphi 2中已經編譯了某些DLL的話，您原來編譯的DLL是16位的。只要將源代碼在新的Delphi 3或Delphi 4環境下重新編譯，就可以得到32位的DLL了。
[后記]：除了上面介紹的DLL最常用的使用方法外，DLL還可以用於做資源的載體。例如，在Windows中更改圖標就是使用的DLL中的資源。另外，熟練掌握了DLL的設計技術，對使用更為高級的OLE、COM以及ActiveX編程都有很多益處。
對使用Delphi制作DLL復用文件的建議
在公司里有一些需要制作DLL的場合，因為熟悉、方便和簡易，大多數使用Delphi來制作。現在就這個主題提出一些個人建議。
盡量使用標准DLL接口。指的是傳遞的參數類型及函數返回類型不能是Delphi特有的，比如string（AnsiString），以及動態數組和含有這些類型成員的復合類型（如記錄），也不能是包含有這些類型成員數據成員的對象類型，以避免可能的錯誤。如果使用了string類型或動態數組類型，且調用方不是Delphi程序，則基本上會報錯。如果調用方是Delphi但調用方或被調用方沒有在工程文件的第一包含單元不是ShareMem，也可能會出錯。
如果調用方是Delphi應用程序，則可能可以使用不包含禁止類型（string, 動態數組）數據成員的對象作為參數或返回值，但也應盡量避免。
如果調用方與被調用方都是Delphi程序，而且要使用string或動態數組作參數，則雙方工程文件的第一包含單元必須是ShareMem。（C++Builder程序的情況可能與此相同，不過沒有測試過。）
如果調用方不是Delphi程序，則string、動態數組、包含string或動態數組的復合數據類型及類實例，都不能作為參數及返回值。
因此，為了提高DLL的復用范圍，避免可能存在的錯誤，應當使用標准WIN32 API標准參數類型，以前使用string的變量，可以使用PChar(s)轉換。動態數組則轉換為指針類型（@array[0]），並加上數組的長度。
如果因為調用方與被調用方都是Delphi程序，為了編寫方便，不想進行上述轉換，則推薦使用運行時包的形式。運行時包可以保證動態分配數據的正確釋放。這樣因為其擴展名（.bpl），顯出該文件僅限於Delphi/C++Builder使用（不象DLL）。
其次，盡量避免使用overload的函數/過程作輸出，如果同一操作有多個方式，則可以讓函數/過程名有少許差別，類似於Delphi中的FormatXXXX、CreateXXXX等函數及方法，如CreateByDefaultFile, CreateDefault。
最后，作為DLL的提供者，應當提供直接編程的接口文件，如Delphi中的.pas或.dcu（最好是.pas，因為可以有注釋）、C及C++中的.h和.lib。而不是讓使用者們自己創建。如果非要有overload的函數/過程，這一點顯得特別重要。另外，作為Delphi應用，提供的.pas文件可以是提前連接的（使用external指定DLL中的輸出函數），也可以是后期連接的（使用LoadLibrary、GetProcAddress），DLL提供者提供編程接口文件，既顯得正式（或HiQoS），又有保障。