Delphi调用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里的窗体                               }
{                                                       }
{                                                       }
{*******************************************************}
unit U_main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs;
type
TFrm_Main = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Main: TFrm_Main;
implementation
{$R *.dfm}

procedure showlogin(); stdcall; external 'TestDll.dll';
//声名调用的过程名的DLL文件

procedure TFrm_Main.FormCreate(Sender: TObject);
begin
showlogin(); //调用登录窗口
end;
end.