Delphi Dll 创建和使用（2）

Delphi中DLL的创建和使用   
  1.DLL简介；   2.调用DLL；   3.创建DLL；   4.两个技巧；   5.初始化；   6.例外处理。     
    
   1、DLL简介  
  　　DLL是Dynamic-Link   Libraries(动态链接库)的缩写，库里面是一些可执行的模块以及资源(如位图、图标等)。可以认为DLL和EXE基本上是一回事，只是DLL不能直接执行，而必须由应用程序或者其他DLL调用。

         DLL为应用程序间的资源共享提供了方便，同时也是多语言混合编程的重要手段。由此可见学习使用DLL是Windows程序员必须掌握的一项重要技术。   
  
  2、如何调用DLL  
  　　在Delphi中有两种方法调用DLL中的函数和过程，即外部声明或者动态加载。  
   
  <1>外部声明  
  　　在Delphi中外部声明是访问外部例程最容易和最常用的方式，有两种声明方式：通过名字、通过索引号。举例如下：在MYDLL.DLL中有两个函数和一个过程，则其外部声明可以写成：  
   
  function   test1:integer;external   'mydll';  
  //直接通过名称调用test1（注意名称大小写敏感）。    
  function   test11:integer;external   'mydll'   name   'test1';  
  //通过名称调用test1，在程序中使用新名称（原名称仍然大小写敏感）。    
  procedure   test2;external   'mydll'   index   1;  
  //通过索引号调用TEST2。程序中可以用与DLL中不一样的名称.    
  　　使用外部声明的缺点是程序启动时如果找不到mydll.dll将无法运行，即使没有调用其中的模块。  

         动态加载的方法可以避免这种情况。  
   
  <2>动态加载  
  　　通过调用Windows   API中的相关函数，将DLL调入内存并获得指向函数或过程的指针，执行完模块后释放内存。除了节约内存外，这种方法的一个很大的优点是能处理找不到dll或者在装入过程中出错的情况。

这样即使某个dll有问题，应用程序的其他部分仍然能够正常运行。动态加载的例子如下：  
   
  var   hDll:THandle;  
  　　Test1:function:integer;  
  begin  
  　　hDll:=LoadLibrary('mydll.dll');  
  　　if   hDll<32   then   exit;//如果Dll无法加载则跳出  
  　　@Test1:=GetProcAddress(hDll,MakeIntResource(1));  
  　　　　//取得mydll中的第一个函数的地址。  
  　　...  
  　　FreeLibrary(hDll);  
  end;     
    
  3、用Delphi创建D