Delphi 创建封装窗体的 DLL 实例

使用了 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;