请问怎么样把一个编译好的窗体装入DLL中？谢谢

Question

请问怎么样把一个编译好的窗体装入DLL中？谢高人指点，我是一个初学者。

Answer 1

你是要实现像通用密码框的DLL呀。给你一段代码参考。
library CheckPwd;uses
SysUtils,
Classes,
Dialogs,
Forms,
PassWord in 'Password.pas' {Pwdfrm};{$R *.RES}function CheckPwd : boolean;stdcall;
var
  frm : TPwdfrm;
begin
  result := false;
  Frm :=TPwdfrm.Create(nil);
  if frm.ShowModal= mrOk then
  begin
    if (frm.edtUser = 'username') and (frm.edtPwd='password') then
      result := true;
  end;
end;exports
  CheckPwd; beginend.
{ Password.pas}unit Password;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, Buttons, ExtCtrls;type
  TPwdfrm= class(TForm)
    label1 : TLabel;
    label2 : TLabel;
    edtUser : TEdit;
    edtPwd : TEdit;
    btnOk : TButton;
    btnCancel : TButton;  
    procedure btnOk(Sender : TObject);
    procedure btnCancel(Sender : TObjec);
   private
    { Private declarations }
  public
    { Public declarations }
  end;var
  PwdFrm : TPwdfrm;implementation
{$R *.dfm}procedure TPwdfrm.btnOk(Sender : TObject);
begin
  ModelResult := mrOk;
end;procedure TPwdfrm.btnCancel(Sender : TObject);
begin
  ModelResult := mrCancel;
end;end.

Answer 2

谢谢，但我是自己做了一个程序，但是我想把他编译进入DLL，然后可以通过别的程序
调用DLL中的窗体。
请指教。

Answer 3

你把你自己的程序和一个DLL工程文件放到一个工程文件中 然后在DLL文件中写一个调用你程序的函数或过程  比如如果是窗体 就先Create   然后show一下 就行了 如果是你自己写的函数或者过程 把函数的入口参数写明白  就可以了.