edure (ParentApplication: TApplication; ParentForm: TForm); stdcall;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
var
DllHandle: THandle;
ProcAddr: FarProc;
ProvaChild: T_ProvaChild;
begin
DllHandle := LoadLibrary(''mdidll'');
ProcAddr := GetProcAddress(DllHandle, ''LoadChild'');
if ProcAddr <> nil then
begin
ProvaChild := ProcAddr;
ProvaChild(Application,Self);
end;
end;

end.


结束语：
    到这里你应该会用Delphi调用DLL文件中封装的窗口了吧，如果还有不明白的话请与我联系(主页: http://yousoft.home.chinaren.com ,邮箱:yousoft@chinaren.com)