调用Dll里面的窗体

将窗体资源分装到DLL中并且调用 
用Delphi生成DLL并封装窗体的示例
 调用Dll里面的窗体

DLL文件

library Project2;

{ Important note about DLL 
memory management: ShareMem must be the
  first unit in your 
library's USES clause AND your project's (select
  Project-View 
Source) USES clause if your DLL exports any procedures 
or
  functions that pass strings as parameters or function results. 
This
  applies to all strings passed to and from your DLL--even 
those that
  are nested in records and classes. ShareMem is the 
interface unit to
  the BORLNDMM.DLL shared memory manager, which 
must be deployed along
  with your DLL. To avoid using 
BORLNDMM.DLL, pass string information
  using PChar or ShortString 
parameters. }

uses
  SysUtils,
  Classes,
  Unit2 
in 'Unit2.pas' 
{Form1};

{$R 
*.res}
exports
    Dll_Showform,
    Dll_CreateForm,
    DLL_GetValue,
    DLL_SetTitle;


begin
end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, 
Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, 
Buttons;

type
  TForm1 
= class(TForm)
    Memo1: 
TMemo;
    BitBtn1: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }


  end;

var
    Form1: 
TForm1;
    //Ready for DLl Export 
list
    procedure 
Dll_Showform();stdcall;
    procedure 
Dll_Createform(Left,Top,Width,Height:Integer);stdcall;
    function DLL_GetValue():string;stdcall;
    procedure  DLL_SetTitle(text:string); stdcall;
implementation

{$R 
*.dfm}

//无参数
procedure Dll_Showform();stdcall;
var frm:TForm1;
begin
   frm:=TForm1.Create(Application);
   frm.Position:=poMainFormCenter;
   frm.ShowModal;
end;

//带参数
procedure 
Dll_Createform(Left,Top,Width,Height:Integer);stdcall;
var frm:TForm1;
begin
   frm:=TForm1.Create(Application);
   frm.Left:=Left;
   frm.Top:=Top;
   frm.Width:=Width;
   frm.Height:=Height;
   frm.BorderStyle:=bsNone;

   frm.ShowModal;
end;

//获得返回值
function 
DLL_GetValue():string;stdcall;
var
  frm:TForm1;
begin
   Result:='';
   frm:=TForm1.Create(Application);
   frm.Position:=poMainFormCenter;
   if frm.ShowModal = mrok 
then
      Result:=frm.Memo1.Lines.Text;
end;


//回调
procedure  DLL_SetTitle(text:string); stdcall;
var frm:TForm1;
begin
   frm:=TForm1.Create(Application);
   frm.Position:=poMainFormCenter;
   frm.Caption:=text;
   frm.ShowModal;
end;


end.

 

 

调用Dll 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, 
Variants, Classes, Graphics, Controls, Forms,
  Dialogs, 
StdCtrls;
//-------------------------------------------------------------------------------
procedure Dll_Showform();stdcall;external 'project2.dll'; //1无参数 
直接调用
procedure 
Dll_Createform(Left,Top,Width,Height:Integer);stdcall;external 'project2.dll';//2带参数了
function DLL_GetValue():string;stdcall;external 'project2.dll';//3获得返回值
//-------------------------------------------------------------------------------

type
  TfrmMain1 = class(TForm)
    Button1: 
TButton;
    Button2: 
TButton;
    Button3: 
TButton;
    Memo1: 
TMemo;
    Button4: 
TButton;
    procedure 
Button1Click(Sender: TObject);
    procedure Button2Click(Sender: 
TObject);
    procedure 
Button3Click(Sender: TObject);
    procedure Button4Click(Sender: 
TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain1: TfrmMain1;

implementation

{$R 
*.dfm}
//------------------------------------------------------------------------------
procedure TfrmMain1.Button1Click(Sender: 
TObject);
begin
    Dll_Showform;
end;
//------------------------------------------------------------------------------
procedure TfrmMain1.Button2Click(Sender: 
TObject);
var
     x,y:Integer;
begin
    x:=frmMain1.left+Button2.left+8; //Left
    y:=frmMain1.Top+Button2.Top +Button2.Height+28;      //Top
    Dll_Createform(x,y,400,400);
    //  Dll_Createform(0,0,100,200);
end;
//------------------------------------------------------------------------------
procedure TfrmMain1.Button3Click(Sender: 
TObject);
begin
     Memo1.Text:=DLL_GetValue;
end;

//------------------------------------------------------------------------------
type
    TSetCaption = procedure(text:string); stdcall;//4回调
procedure 
TfrmMain1.Button4Click(Sender: TObject);
var
    pSetTitle: 
TSetCaption;
    h:THandle;
begin
    h:=LoadLibrary(PChar('project2.dll'));
    pSetTitle 
:= TSetCaption( GetProcAddress(h, PChar('DLL_SetTitle')) );
    if h = 0 then 
Exit;
    if 
Assigned(pSetTitle) then
        pSetTitle('Hello 
World!');
    FreeLibrary(h);
end;


end.

解决方法参考了
http://blog.csdn.net/longmen23/article/details/5488797#javascript

 

来自为知笔记(Wiz)