File->New->Other
在New items对话框的New面版中:选择Dll Wizard

给你一点我网上找的东西，免的你辛苦了。

你去下载一个名字叫 宇宙中最强悍的DELPHI教程吧，真的很不错

Delphi中动态链接库两种调用方式的比较
　　摘要:本文阐述了Windows环境下动态链接库的概念和特点,对静态调用和动态调用两种调用方式作出了比较,并给出了Delphi中应用动态链接库的实例。 
一、动态链接库的概念
　　动态链接库(Dynamic Link Library,缩写为DLL)是一个可以被其它应用程序共享的程序模块,其中封装了一些可以被共享的例程和资源。动态链接库文件的扩展名一般是dll,也有可能是drv、sys和fon,它和可执行文件(exe)非常类似,区别在于DLL中虽然包含了可执行代码却不能单独执行,而应由Windows应用程序直接或间接调用。
　　动态链接是相对于静态链接而言的。所谓静态链接是指把要调用的函数或者过程链接到可执行文件中,成为可执行文件的一部分。换句话说,函数和过程的代码就在程序的exe文件中,该文件包含了运行时所需的全部代码。当多个程序都调用相同函数时,内存中就会存在这个函数的多个拷贝,这样就浪费了宝贵的内存资源。而动态链接所调用的函数代码并没有被拷贝到应用程序的可执行文件中去,而是仅仅在其中加入了所调用函数的描述信息(往往是一些重定位信息)。仅当应用程序被装入内存开始运行时,在Windows的管理下,才在应用程序与相应的DLL之间建立链接关系。当要执行所调用DLL中的函数时,根据链接产生的重定位信息,Windows才转去执行DLL中相应的函数代码。
　　一般情况下,如果一个应用程序使用了动态链接库,Win32系统保证内存中只有DLL的一份复制品,这是通过内存映射文件实现的。DLL首先被调入Win32系统的全局堆栈,然后映射到调用这个DLL的进程地址空间。在Win32系统中,每个进程拥有自己的32位线性地址空间,如果一个DLL被多个进程调用,每个进程都会收到该DLL的一份映像。与16位Windows不同,在Win32中DLL可以看作是每个进程自己的代码。

二、动态链接库的优点
　　1．共享代码、资源和数据
　　　使用DLL的主要目的就是为了共享代码,DLL的代码可以被所有的Windows应用程序共享。
　　2．隐藏实现的细节
　　　DLL中的例程可以被应用程序访问,而应用程序并不知道这些例程的细节。
　　3．拓展开发工具如Delphi的功能
　　由于DLL是与语言无关的,因此可以创建一个DLL,被C++、VB或任何支持动态链接库的语言调用。这样如果一种语言存在不足,就可以通过访问另一种语言创建的DLL来弥补。


三、动态链接库的实现方法

　　1． Load-time Dynamic Linking
　　这种用法的前提是在编译之前已经明确知道要调用DLL中的哪几个函数,编译时在目标文件中只保留必要的链接信息,而不含DLL函数的代码;当程序执行时,利用链接信息加载DLL函数代码并在内存中将其链接入调用程序的执行空间中,其主要目的是便于代码共享。
　　2． Run-time Dynamic Linking 
　　这种方式是指在编译之前并不知道将会调用哪些DLL函数,完全是在运行过程中根据需要决定应调用哪个函数,并用LoadLibrary和GetProcAddress动态获得DLL函数的入口地址。

四、DLL的两种调用方式在Delphi中的比较
　　编写DLL的目的是为了输出例程供其他程序调用,因此在DLL的工程文件中要把输出的例程用Exports关键字引出。在调用DLL的应用程序中,需要声明用到的DLL中的方法,声明格式要和DLL中的声明一样。访问DLL中的例程有静态调用和动态调用两种方式。静态调用方式就是在单元的Interface部分用External指示字列出要从DLL中引入的例程;动态调用方式就是通过调用Windows的API包括LoadLibrary函数、GetProcAddress函数以及FreeLibrary函数动态的引入DLL中的例程。
　　静态调用方式所需的代码较动态调用方式所需的少,但存在着一些不足,一是如果要加载的DLL不存在或者DLL中没有要引入的例程,这时候程序就自动终止运行;二是DLL一旦加载就一直驻留在应用程序的地址空间,即使DLL已不再需要了。动态调用方式就可解决以上问题,它在需要用到DLL的时候才通过LoadLibrary函数引入,用完后通过FreeLibrary函数从内存中卸载,而且通过调GetProcAddress函数可以指定不同的例程。最重要的是,如果指定的DLL出错,至多是API调用失败,不会导致程序终止。以下将通过具体的实例说明说明这调用方式的使用方法。
　　1．静态调用方式
　　示例程序创建了一个DLL,其中仅包含一个求两个整数的和的函数,在主程序中输入两个整数,通过调用该DLL,即可求出两个整数的和,如图1所示。
 
　　　　　图1 DLL的静态调用  
　　该DLL的程序代码如下:
library AddNum;
uses
SysUtils,
Classes;
{$R *.res}
function AddNumber(Num1,Num2:integer):integer;stdcall; //定义求和函数
　begin
　　result:=Num1+Num2;
　end;
　　exports
　　AddNumber; //引出求和函数
　begin
end. 
　　主程序在调用该DLL时,首先在interface部分声明要调用的函数:
function AddNum(Num1,Num2:integer):integer;stdcall;external 'AddNum.dll'
name 'AddNumber';  
　　然后在按钮控件的事件中写入如下代码:
procedure TForm1.Button1Click(Sender: TObject);
var
　Number1,Number2:integer; 
　Sum:integer;
begin
　Number1:=strtoint(Edit1.Text);
　Number2:=strtoint(Edit2.Text);
　Sum:=AddNum(Number1,Number2); //调用求和函数计算结果
　Edit3.Text:=inttostr(Sum);
end; 
　　2．动态调用方式
　　这个示例程序创建了一个显示日期的DLL,其中包含一个窗体,如图2所示。
 
　　　　　图2 DLL的动态调用  
　　程序中定义了一个ShowCalendar函数,返回在这个窗体中设定的日期。函数定义如下:
function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime;
var
　DLLForm: TDLLForm;
begin
　Application.Handle := AHandle;
　DLLForm := TDLLForm.Create(Application); //创建并显示窗体
　try
　　DLLForm.Caption := ACaption;
　　DLLForm.ShowModal; //显示方式为模式化
　　Result := DLLForm.calDLLCalendar.CalendarDate; //返回设定日期
　finally
　　DLLForm.Free; //用完后卸载该窗体
　end;
end; 
　　在DLL的工程文件中用exports ShowCalendar; 语句引出该函数。下面通过一个简单的应用程序测试一下该DLL文件。新建一个工程文件,在窗体中放置一个Label控件和一个按钮控件,在按钮控件的OnClick事件中编写如下代码:
procedure TMainForm.Button1Click(Sender: TObject);
var
　OneHandle : THandle; //定义一个句柄变量
begin
　OneHandle := LoadLibrary('Clendar.dll'); //动态载入DLL,并返回其句柄
　try
　　if OneHandle <> 0 then //如果载入成功则获取ShowCalendar函数的地址
　　　@ShowCalendar := GetProcAddress(OneHandle, 'ShowCalendar');
　　　if not (@ShowCalendar = nil) then
　　　　//如果找到该函数则在主窗体的Label1中显示DLL窗体中设定的日期
　　　　Label1.Caption := DateToStr(ShowCalendar(Application.Handle, Caption))
　　　else
　　　　RaiseLastWin32Error;
　finally
　　FreeLibrary(OneHandle); //调用完毕收回DLL占用的资源
　end;
end; 
　　从以上程序中可以看到DLL的动态调用方式比静态调用方式的优越之处。DLL例程在用到时才被调入,用完后就被卸载,大大减少了系统资源的占用。在调用LoadLibrary函数时可以明确指定DLL的完整路径,如果没有指定路径,运行时首先查找应用程序载入的目录,然后是Windows系统的System目录和环境变量Path设定的路径。 

五、结束语
　　由于动态链接库可以实现代码和资源的共享,大大减少系统资源的占用,因此在当今的应用程序开发中起着非常重要的作用。Delphi是现今流行的应用软件开发工具,本文就如何在Delphi中使用动态链接库给出了一定程度上的阐述。

在付上我的学习笔记
函数的建立：
文件－－新建－－其它DLLWizred 
编译：同普通函数一样：
而DLLs工程文件
library 工程标题; uses 子句; exprots 子句;
程序体
在动态链接
1.name
name后面接一个字符串，作为该过程或函数的输出名；
InStr name MyInstr;
其它应用程序将用新名字(MyInstr)调用该过程或函数。如果仍用原来的名字（InStr）会错误
（程序执行到引用点时候）
2.Index
Index指示为过程或函数分配的一个序号。
不使用编译器按顺序进行分配。
Index后所接数字的范围为1...32767。使用Index加快调用；
3.resident
程序调用该过程时，可以比利用名字扫描DLL入口降低时间开销。 对于那些其它应用程序常常要调用的过

程或函数，使用resident指示是合适的。例如：
exports InStr nam
10.2.1.3 DLLs中的变量和段
一个DLLs拥有自己的数据段(DS)，因而它
模块不能直接使
来，它永远都没有机
一个DLLs没有自己的堆栈段(SS)，它使用调用它的应用程序的
的过程、函
可以避免这种情况。Delphi绝不会产
/函数也都不作这种假定。需注意的是如
录同一个值。



列子：
library Project1;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes;

{$R *.res}
function nn(n:integer):integer; stdcall;
var i:integer;
begin
  result:=1;
  for i:=1 to n do result:=result*i;
end;

exports
  nn  index  1  name   'nx';



begin
end.


exports 函数输出
函数调用
1声明
implementation 
{$R *.dfr}
function nn|n:integer|:integer; stdcall
external 'project1.dll'
2调用(静态)
begin
edit2.text:=inttostr|nn|strtoint|edit1.text|||'
列子：
implementation

{$R *.dfm}
function nx(n:integer):integer; stdcall;
external 'Project1.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit2.text:=inttostr(nx(strtoint(edit1.text)));
end;
end;
3动态调用
function Loadlibrary|LibFileName:PChar|:THandle;载入动态链接库
function GetProcAddress|Module: THandle; ProcName: PChar|调用动态链接库
procedure FreeLibrary|Module : THandle|;释放动态链接库
例子
procedure TForm1.Button2Click(Sender: TObject);
var
  HInst:THandle;
  FPointer:TFarProc;
  str: array[0..200] of char;
begin
  HInst:=LoadLibrary('Project1.dll');
  if HInst>0 then begin
      FPointer:=GetProcAddress(HInst,'nx');
      if FPointer<>nil
      then edit3.text:=inttostr(nx(strtoint(edit1.text)))
      else  ShowMessage('函数未发现');
      FreeLibrary(HInst);
   end else  ShowMessage('DLL文件未发现');
end;


end.