正在阅读：用Delphi制作DLL的方法用Delphi制作DLL的方法

　　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;