Delphi与VisualBasic、VisualFoxPro等软件一样，属于RAD工具(快速应用开发工具)。适合开发32位或16位/32位混合应用程序。Delphi所使用的程序语言是ObjectPascal，是结构化、面向对象的编译型语言，具有高执行效率、可重用性、易维护性，及较强的异常处理能力、类封装能力等。VB与Delphi相比，VB不能对程序进行编译，只能解释执行，更重要的不同是Delphi具有较强的继承性，Delphi的应用程序可编译DLL模块，VB却无法编译，只能调用C编译的DLL。而Delphi不仅可调用C++产生的DLL模块，同样C++程序也可调用Delphi所产生的DLL部件。这样交互调用，无须重复开发，大大缩短了生产周期。
1、用Delphi创建DLL
Delphi的DLL创建并不复杂，下面向大家介绍Delphi的DLL创建方法。
1〕首先创建一个新的DLL项目(NewProject)，因为DLL与调用它的主程序要分开编译。如果DLL模块已经建立在调用它的项目中(Project)，则将它的窗体(Form)从Project移出，另建一个新的项目(NewProject)。只需从File菜单选中NewProject项，然后将DLL的Pas模块文件加入到项目中，再将其自动建立的Form1删除即可。
2〕在DLL的DPR文件中把Program关键字改为Library，申明为动态链接库，在USES语句后面加入ExPorts语句，指明调用DLL的函数名。
3〕如果主程序的DPR文件已有DLL窗体CreateForm的语句，则将其去掉。
4〕在DLL的Pas文件中Type......End后加入该DLL的函数或过程的声明，形式如：
FunctionName(argment)：Boolean；export；
该函数或过程应加入窗体的Create和Free(产生和释放)方法。
5〕对项目进行编译即可。
2、DLL的调用
调用DLL有两种方法，一种是在应用程序装载时调用，另一种是在应用程序运行时调用。首先介绍装载时DLL的调用：
(1)装载时调用DLL
在调用DLL的Pas文件中，对DLL函数进行外部声明，声明应位于Implementation的Uses语句后，形式如下：
Implementation
Uses Dialogs；
Function Name(argment)：Boolean；far；External′Call?Name′；
......
其中External关键字后面的引号内的字串是DLL的文件名。声明以后即可在Pas文件任何地方引用DLL函数。
装载时调用DLL的优点是速度较快，程序间也可共享代码。
(2)运行时调用DLL
DLL的另一种调用方法是在运行时调用。要调用到Windows的API函数：loadlibrary，Getprocaddress等。主要用于调用DELPHI和其它语言，特别是C++编译的DLL。
假定你的DLL包括一个函数：
FunctionMyFunc(aparam：word)：string；export；
首先在程序Type类型声明处加入一句：
Type
TMyfunc=function(aparam：word)：string；
此句的作用如同C++中声明的函数指针。
然后定义如下变量∶
Var
aptr：TFarproc；
lhnd：THandle；
s：string；
其中Aptr，lhnd两变量声明必须有，s是DLL函数返回值，视情况而定。
在调用DLL处加入如下语句进行DLL装载：
lhnd：ΚLoadlibrary(′路径\DLL文件名′)；
{如lhnd：ΚLoadlibrary(′c：\aa\bb.dll′)；
aptr：=GetprocAddress(lhnd，′Myfunc′)；
下面可直接调用DLL了：
s：=TMyfunc(bptr)(60)；{根据函数填相应的变量参数}
调用完以后，用FreeLibrary释放DLL占用的内存：
FreeLibrary(lhnd)；
下面给出一个DLL的创建以及运行时调用的示例，该DLL主要用来检查输入的口令是否正确，窗体含有一个Edit编辑框，两个按钮Button，一个标签Label，在编辑框内输入口令，根据比较结果返回真假值。
{main.pas主程序(运行时调用DLL)}
unit Main；
interface
uses WinTypes，WinProcs，Classes，Graphics，Forms，Controls，StdCtrls，ExtCtrls；
type
TForm1=class(TForm)
Edit1：TEdit；
Label1：TLabel；
Button1：TButton；
Bevel1：TBevel；
GroupBox1：TGroupBox；
StatusLbl：TLabel；
procedure Button1Click(Sender：TObject)；
end；
TGetPass=function(aa：string)：boolean；
var
Form1：TForm1；
getpass：TGetpass;
lhnd：THandle；
aptr：TFarproc；
implementation
uses Dialogs；
{＄R*.DFM}
{Import routine from DLL.Takes password to matchand returns boolean.}
{function GetPassword(Password：string)：Boolean；far；external′CHKPWORD′；}
{Call password check routine，show status informcaption.}
procedure TForm1.Button1Click(Sender：TObject)；
begin
if Edit1.Text=′′then
begin
MessageDlg(′Entersamplepasswordfirst′，mt?Information，[mbOK]，0)；
Edit1.SetFocus；
end
else
begin
lhnd：=loadlibrary(′Chkpword.dll′)；
aptr：=getprocaddress(lhnd，′GetPassword′)；
if TGetpass(aptr)(Edit1.Text) then
StatusLbl.Caption：=′Verifiedpassword′
else
StatusLbl.Caption：=′Invalid password′;
freelibrary(lhnd)；
end；
end；
end.
{dllform.pasDLL模块}
unit Dllform；
interface
uses WinTypes，WinProcs，Classes，Graphics，Forms，Controls，Buttons，SysUtils，StdCtrls；
type
TPasswordForm=class(TForm)
Edit1：TEdit；
Label1：TLabel；
BitBtn2：TBitBtn；
BitBtn1：TBitBtn；
end；
function GetPassword(Password：string)：Boolean；export；
implementation
uses Dialogs；
{＄R*.DFM}
function GetPassword(Password：string)：Boolean；
var
PasswordForm：TPasswordForm；
begin
Result：=False；
PasswordForm：=TPasswordForm.Create(Application)；
try
with PasswordForm do
if ShowModal=mrOK then
if UpperCase(Edit1.Text)<>UpperCase(Password) then
MessageDlg(′Invalid Password′，mtWarning，[mbOK]，0)
else
Result：=True；
finally
PasswordForm.Free；
end；
end；
end.
