一、打开项目文件(.DPR),删除单元底部begin和end.之间的所有语句(一般情况下这些语句是由Delphi自动生成的)。
二、更改头部 program 类型
将 program 改为 library
三、可以在单元底部的begin语句之前加入自己定义的其他函数或者过程,用于输出。添加主窗体的输出函数:
library Mydll; uses SysUtils, //注意该单元 Classes, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} //---------------------------------------------------代码开始 procedure ShowForm; stdcall; var Form1:TForm1; begin Form1 := TForm1.Create(nil); Form1.ShowModal; FreeAndNil(Form1); end; exports ShowForm; //定义出口函数 //----------------------------------------------------代码结束 begin end.
三、在主窗体中调用DLL
//++++++++++++++++++++++++++++++++++++++++++++++ // 主程序调用 //+++++++++++++++++++++++++++++++++++++++++++++++ unit Unit2; interface uses type var Form2: TForm2; procedure ShowForm; stdcall; external 'Mydll.dll'; //调用mydll.dll implementation {$R *.dfm}