写乐14k鱼雷 百乐74:请问下有关API函数帮助文档的问题，谢谢！

DLLs的编写

在Delphi环境中，编写一个DLLs同编写一个一般的应用程序并没有太大的区别。事实上作为DLLs 主体的DLL函数的编写，除了在内存、资源的管理上有所不同外，并不需要其它特别的手段。真正的区别在工程文件上。

在绝大多数情况下，用户几乎意识不到工程文件的存在，因为它一般不显示在屏幕上。如果想查看工程文件，则可以打开View菜单选择Project Source项，此时工程文件的代码就会出现在屏幕的Code Editor(代码编辑器)中。

一般工程文件的格式为：

program 工程标题;

uses 子句;

程序体

而DLLs工程文件的格式为：

library 工程标题;

uses 子句;

exprots 子句;

程序体

它们主要的区别有两点：

1.一般工程文件的头标用program关键字，而DLLs工程文件头标用library 关键字。不同的关键字通知编译器生成不同的可执行文件。用program关键字生成的是.exe文件，而用library关键字生成的是.dll文件；

2.假如DLLs要输出供其它应用程序使用的函数或过程，则必须将这些函数或过程列在exports子句中。而这些函数或过程本身必须用export编译指令进行编译。

编写一般DLLs的步骤

编写一般DLLs的步骤如下：

1.利用Delphi的应用程序模板，建立一个DLLs程序框架。

对于Delphi 1.0的用户，由于没有DLLs模板，因此：

(1).建立一个一般的应用程序，并打开工程文件；

(2).移去窗体和相应的代码单元；

(3).在工程文件中，把program改成library，移去Uses子句中的Forms，并添加适当的库单元（一般SysUtils、Classes是需要的），删去begin...end之间的所有代码。

2.以适当的文件名保持文件，此时library后跟的库名自动修改；

3.输入过程、函数代码。如果过程、函数准备供其它应用程序调用，则在过程、函数头后加上export 编译指示；

4.建立exports子句，包含供其它应用程序调用的函数和过程名。可以利用标准指示 name 、Index、resident以方便和加速过程/函数的调用；

5.输入库初始化代码。这一步是可选的；

6.编译程序，生成动态链接库文件。

10.2.1.2 动态链接库中的标准指示

在动态链接库的输出部分，用到了三个标准指示：name、Index、resident。

1.name

name后面接一个字符串常量，作为该过程或函数的输出名。如：

exports

InStr name MyInstr;

其它应用程序将用新名字(MyInstr)调用该过程或函数。如果仍利用原来的名字(InStr)，则在程序执行到引用点时会引发一个系统错误。

2.Index

Index指示为过程或函数分配一个顺序号。如果不使用Index指示，则由编译器按顺序进行分配。

Index后所接数字的范围为1...32767。使用Index可以加速调用过程。

3.resident

使用resident，则当DLLs装入时特定的输出信息始终保持在内存中。这样当其它应用程序调用该过程时，可以比利用名字扫描DLL入口降低时间开销。

对于那些其它应用程序常常要调用的过程或函数，使用resident指示是合适的。例如：

exports

InStr name MyInStr resident;

......................................................

编写一般DLLs的应用举例

在下面的程序中我们把一个字符串操作的函数储存到一个DLLs中，以便需要的时候调用它。应该注意的一点是：为了保证这个函数可以被其它语言编写的程序所调用，作为参数传递的字符串应该是无结束符的字符数组类型(即PChar类型)，而不是Object Pascal的带结束符的Srting类型。程序清单如下：

library Example;

uses

SysUtils,

Classes;

{返回字符在字符串中的位置}

function InStr(SourceStr: PChar;Ch: Char): Integer; export;

var

Len,i: Integer;

begin

Len := strlen(SourceStr);

for i := 0 to Len-1 do

if SourceStr[i] = ch then

begin

Result := i;

Exit;

end;

Result := -1;

end;

exports

Instr Index 1 name 'MyInStr' resident;

begin

end.

10.2.2 调用DLLs

有两种方法可用于调用一个储存在DLLs中的过程。

1.静态调用或显示装载

使用一个外部声明子句，使DLLs在应用程序开始执行前即被装入。例如：

function Instr(SourceStr : PChar;Check : Char); Integer; far; external 'UseStr';

使用这种方法，程序无法在运行时间里决定DLLs的调用。假如一个特定的DLLs在运行时无法使用，则应用程序将无法执行。

2.动态调用或隐式装载

使用Windows API函数LoadLibray和GetProcAddress可以实现在运行时间里动态装载DLLs并调用其中的过程。

若程序只在其中的一部分调用DLLs的过程，或者程序使用哪个DLLs， 调用其中的哪个过程需要根据程序运行的实际状态来判断，那么使用动态调用就是一个很好的选择。

使用动态调用，即使装载一个DLLs失败了，程序仍能继续运行。

10.2.3 静态调用

在静态调用一个DLLs中的过程或函数时，external指示增加到过程或函数的声明语句中。被调用的过程或函数必须采用远调用模式。这可以使用far过程指示或一个{$F +}编译指示。

Delphi全部支持传统Windows动态链接库编程中的三种调用方式，它们是：

● 通过过程/函数名

● 通过过程/函数的别名

● 通过过程/函数的顺序号

通过过程或函数的别名调用，给用户编程提供了灵活性，而通过顺序号(Index)调用可以提高相应DLL的装载速度。

10.2.4 动态调用

10.2.4.1 动态调用中的API函数

动态调用中使用的Windows API函数主要有三个,即：Loadlibrary，GetProcAddress和Freelibrary。

1.Loadlibrary: 把指定库模块装入内存

语法为：

function Loadlibrary(LibFileName: PChar): THandle;

LibFileName指定了要装载DLLs的文件名，如果LibFileName没有包含一个路径，则Windows按下述顺序进行查找：

(1)当前目录；

(2)Windows目录(包含win.com的目录)。函数GetWindowDirectory返回这一目录的路径；

(3)Windows系统目录(包含系统文件如gdi.exe的目录)。函数GetSystemDirectory返回这一目录的路径；

(4)包含当前任务可执行文件的目录。利用函数GetModuleFileName可以返回这一目录的路径；

(5)列在PATH环境变量中的目录；

(6)网络的映象目录列表。

如果函数执行成功，则返回装载库模块的实例句柄。否则，返回一个小于HINSTANCE_ERROR的错误代码。错误代码的意义如下表：

假如在应用程序用Loadlibrary调用某一模块前，其它应用程序已把该模块装入内存，则Loadlibrary并不会装载该模块的另一实例，而是使该模块的“引用计数”加1。

2.GetProcAddress：捡取给定模块中函数的地址

语法为：

function GetProcAddress(Module: THandle; ProcName: PChar): TFarProc;

Module包含被调用的函数库模块的句柄，这个值由Loadlibrary返回。如果把Module设置为nil，则表示要引用当前模块。

ProcName是指向含有函数名的以nil结尾的字符串的指针，或者也可以是函数的次序值。如果ProcName参数是次序值，则如果该次序值的函数在模块中并不存在时，GetProcAddress仍返回一个非nil的值。这将引起混乱。因此大部分情况下用函数名是一种更好的选择。如果用函数名，则函数名的拼写必须与动态链接库文件EXPORTS节中的对应拼写相一致。

如果GetProcAddress执行成功，则返回模块中函数入口处的地址，否则返回nil。

3.Freelibrary：从内存中移出库模块

语法为：

procedure Freelibrary(Module : THandle);

Module为库模块的句柄。这个值由Loadlibrary返回。

由于库模块在内存中只装载一次，因而调用Freelibrary首先使库模块的引用计数减一。如果引用计数减为0，则卸出该模块。

每调用一次Loadlibrary就应调用一次FreeLibray，以保证不会有多余的库模块在应用程序结束后仍留在内存中。

10.2.4.2 动态调用举例

对于动态调用，我们举了如下的一个简单例子。系统一共包含两个编辑框。在第一个编辑框中输入一个字符串，而后在第二个编辑框中输入字符。如果该字符包含在第一个编辑框的字符串中，则标签框显示信息：“位于第n位。”，否则显示信息：“不包含这个字符。”。如图是程序的运行界面。

输入检查功能的实现在Edit2的OnKeyPress事件处理过程中，程序清单如下。

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

var

order: Integer;

txt: PChar;

PFunc: TFarProc;

Moudle: THandle;

begin

Moudle := Loadlibrary('c:\dlls\example.dll');

if Moudle > 32 then

begin

Edit2.text := '';

Pfunc := GetProcAddress(Moudle,'Instr');

txt := StrAlloc(80);

txt := StrPCopy(txt,Edit1.text);

Order := TInstr(PFunc)(txt,Key);

if Order = -1 then

Label1.Caption := '不包含这个字符 '

else

Label1.Caption := '位于第'+IntToStr(Order+1)+'位';

end;

Freelibrary(Moudle);

end;

在利用GetProcAddess返回的函数指针时，必须进行强制类型转换：

Order := TInstr(PFunc)(text,Key);

TInStr是一个定义好了的函数类型