Delphi DLL中封装窗体(将EXE转换为DLL)-2

2016-08-22 10:23:12来源:http://im9527.blog.51cto.com/1159492/1266898作者:hack9527人点击


一、打开项目文件(.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}

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台