正在阅读：用Delphi制作DLL的方法用Delphi制作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;