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;

本文转自网眼51CTO博客，原文链接：http://blog.51cto.com/itwatch/392606，如需转载请自行联系原作者