Delphi中DLL的基本使用方法

一、delphi中的dll使用方法：

     1.  DLL 须置放在与执行档同一目录或Windows System 目录；

     2.  确认 DLL export 出来的函式的原型

    3 用stdcall声明后缀。
    4 最好大小写敏感。 
    5 无须用far调用后缀，那只是为了与windows 16位程序兼容。

二、 Dll的制作一般分为以下几步：
   1 在一个DLL工程里写一个过程或函数
   2 写一个Exports关键字，在其下写过程的名称。不用写参数和调用后缀

三、 在DLL建立一个TForM
   1 把你的Form Uses到Dll中，你的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

   EXAMPLE:

  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;

资料引用:file:///I:/技术学习/DLL/Delphi/Web资料/用Delphi制作DLL小结_Delphi教程_www_knowsky_com.htm