Delphi 创建封装窗体的 DLL 实例

2016-08-22 10:20:21来源:http://itwatch.blog.51cto.com/1338142/392606作者:网眼人点击


使用了 Dll 动态链接库后,一个应用程序不再是单一的 EXE 文件了,而是由一个 EXE 文件加多个DLL文件组成,这样做的原因是方便以后的维护与更新,也是跨语言开发的办法之一。


1,打开 Delphi,打开 Dll Wizard,建一个工程,取名 my。
2,在新建的 Dll 工程里,再新建一个Form。
3,在新建的Form里uses stdctrls。
4,在var下面写:
Procedure sysapp(App:THandle);stdcall;
Procedure showform;stdcall;
5,然后在implementation 下面 uses math。
6,在{$R *.dfm}下面写:
Procedure sysapp(App:THandle);stdcall;
Begin
Application.Handle:=app;
End;


Procedure showform;stdcall;
Begin
Form1:=Tform1.create(application);
Form1.show;
End;
7,在dll的Library文件里的{$R *.res}下面写:
exports
sysapp,
showform;


按 Ctrl+F9编译和创建,生成 my.dll 文件。
到此为止上面完成了DLL封装窗体的创建。


下面是调用了:


把你写好的DLL放在本程序的同一目录下。


1,在要调用DLL文件的工程里 uses math,var 下写:
Procedure sysapp(App:THandle);stdcall;external 'my.dll’ ;//你的DLL文件名
Procedure showform;stdcall;external‘my.dll’;//----你的DLL文件名


2,在你的程序的Button的On Click事件下写:
sysapp(applicatiln.Handle);
Showform;


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台