虽是原创,但是是参考过别人的作品,然后自己重新写的,目的是要给初学者一个更容易明白。 用DELPHI创建DLL文件,封装窗体的实现方法实例: 即一个程序不再是单一的一个EXE文件了,而是由一个EXE文件加N个DLL文件组成,这样做的原因是方便以后的维护与更新,也是跨平台开发的重要一步。 1, 打开DELPHI,新建一个Dll Wizard 2, 在新建的Dll里新建一个Form 3, 在新建的Form里uses stdctrls 4, 在var下面写: Procedure synapp(App:THandle);stdcall; Procedure showform;stdcall; 5, 然后在implementation 下面uses math 6, 在{$R *.dfm}下面写 Procedure synapp(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,show; 上面到此为止完成了DLL封装窗体的创建
下面是调用了 1, 在要调用DLL文件的程序的var下写: Procedure synapp(App:THandle);stdcall;external ‘my.dll’ ;//----你的DLL文件名 Procedure showform;stdcall;external‘my.dll’;//----你的DLL文件名 注:把你写好的DLL放在本程序的同一目录下,和上面一样,要uses math;
2, 在你的程序的Button的On Click事件下写: Synapp(applicatiln.Handle); Showform; |