Delphi调用DLL文件里的窗体

Delphi调用DLL文件里的窗体
在我们写程序时候，有些窗体要重复使用，最好就是把这些窗体写到一个DLL文件里去，这样就比较方便调用，下面的演示如何调用DLL文件里的窗体。
DLL文件

{*******************************************************}
{                                                       }
{       测试调用Dll里的窗体                               }
{                                                       }
{                                                       }
{*******************************************************}
library TestDll;
uses
  SysUtils, Classes, U_Login in 'U_Login.pas' {Frm_Login};
{$R *.res}

procedure showlogin(); stdcall;
//起动登录窗体
beginFrm_Login := TFrm_Login.Create(nil);
try
  Frm_Login.ShowModal;
except
  Frm_Login.Free;
end;
end;
exports //导出函数和过程名
  showlogin;
begin
end.
主程序源码
{*******************************************************}
{                                                       }
{       测试调用Dll里的窗体