我的源程序贴出来，请高手指点迷津！

Question

主程序：如下：
unit UCRM_MAIN;interfaceuses
   ................
type
  TFZX_MAIN = class(TForm)
    MainMenu1: TMainMenu;
    G1: TMenuItem;
        ........
var
  FZX_MAIN: TFZX_MAIN;
//
  procedure FCrm_BAAGLAPP(App:THandle);stdcall;external '.\HBDLL\DllCrm_BAAGL.dll';
  procedure FCrm_BAAGLSFM(frmAy:array of string;frmStrL:TStringList);stdcall;external'.\HBDLL\DllCrm_BAAGL.dll';  procedure FCrm_BMAGLAPP(App:THandle);stdcall;external '.\HBDLL\DllCrm_BMAGL.dll';
  procedure FCrm_BMAGLSFM(frmAy:array of string;frmStrL:TStringList);stdcall;external '.\HBDLL\DllCrm_BMAGL.dll';
  ..........
//procedure TFZX_MAIN.SM01M02Click(Sender: TObject);
   var mainAy : array of string ;
begin
    SetLength(mainAy,2);
    mainAy[0] := userno ;    mainAy[1] := dllcurdir;
    FCrm_BAAGLAPP(Application.Handle);
    FCrm_BAAGLLSFM(mainAy,UserpowerStr);
    mainAy := nil ;
end;procedure TFZX_MAIN.SM01M02Click(Sender: TObject);
   var mainAy : array of string ;
begin
    SetLength(mainAy,2);
    mainAy[0] := userno ;    mainAy[1] := dllcurdir;
    FCrm_BMAGLAPP(Application.Handle);
    FCrm_BMAGLLSFM(mainAy,UserpowerStr);
    mainAy := nil ;
end;        //以上是静态用两个功能    封装好的作业
第一个封装的窗体源码如下：
          ///////////////////
library DllCrm_BAAGL;
uses
  ShareMem,
  SysUtils,
  Classes,
  UCrm_BAAGL in 'UCrm_BAAGL.pas' {FCrm_BAAGL};{$R *.res}
function  GetDllChildFormBAAGL(Parent:TComponent):TFCrm_BAAGL;stdcall;
begin
  Result := TFCrm_BAAGL.Create(Parent);
end;exports
  FCrm_BAAGLAPP,FCrm_BAAGLSFM;begin
end.
           ////////////////////////
unit UCrm_BAAGL;interface
uses
   .............
type
  TFCrm_BAAGL = class(TForm)
      .............................
var
  FCrm_BAAGL: TFCrm_BAAGL;  procedure FCrm_BAAGLAPP(App:THandle);stdcall;
  procedure FCrm_BAAGLSFM(frmAy:array of string;frmStrL:TStringList);stdcall;implementation{$R *.dfm}
//***** 窗体初始调用 *****
procedure FCrm_BAAGLAPP(App:THandle );stdcall;
begin
  Application.Handle := App;
end;
//***** 窗体初始调用 *****
procedure FCrm_BAAGLSFM(frmAy:array of string;frmStrL:TStringList);stdcall;
begin
  try
    if not Assigned(FCrm_BAAGL) then
       FCrm_BAAGL := TFCrm_BAAGL.Create(Application);
    try
      userno := frmAy[0] ;
      dllcurdir := frmAy[1] ;
      UserpowerStr := TStringList.Create;
      UserpowerStr.CommaText := frmStrL.CommaText ;
      FCrm_BAAGL.ShowModal;
    finally
      FCrm_BAAGL.Free;
    end;
  except
    on E: Exception do
      MessageDlg ('Error in CRMBAAFm: ' +
        E.Message, mtError, [mbOK], 0);
  end;
end;
第二个窗体同第一个相似。
  ////////////////////请教高手，我想在主程序中，动态调用这两个DLL窗体文件，该如何改写源代码！！！先谢谢了!!! 能否将具体改写的代码给出，有老了！！   多谢！！！

Answer 1

unit UCRM_MAIN; interface uses 
   ................ 
type 
  TFCrm_BAAGLAPP = procedure(App:THandle);stdcall;    //申明
  TFCrm_BAAGLSFM = procedure FCrm_BAAGLSFM(frmAy:array of string;frmStrL:TStringList);stdcall; //申明
  TFZX_MAIN = class(TForm) 
    MainMenu1: TMainMenu; 
    G1: TMenuItem; 
        ........ 
var 
  FZX_MAIN: TFZX_MAIN; 
 
procedure TFZX_MAIN.SM01M02Click(Sender: TObject); 
   var mainAy : array of string ; 
var
  MyFuncA: TFCrm_BAAGLAPP;
  MyFuncB: TFCrm_BAAGLSFM;
  FPointer: TFarProc;
  handle: THandle;
begin 
    SetLength(mainAy,2); 
    mainAy[0] := userno ;    mainAy[1] := dllcurdir;    hanlde := LoadLibrary(PChar('.\HBDLL\DllCrm_BAAGL.dll'));    //装载Library
    if handle <> 0 then
    begin
      FPointer := GetProcAddress(handle, 'FCrm_BAAGLAPP');
      if not (FPointer = nil) then
      begin
        MyFuncA := TFCrm_BAAGLAPP(FPointer);
        MyFuncA(Application.Handle);
        FreeLibrary(handle);
      end;
    end;        hanlde := LoadLibrary(PChar('.\HBDLL\DllCrm_BAAGL.dll'));
    if handle <> 0 then
    begin
      FPointer := GetProcAddress(handle, 'FCrm_BAAGLSFM');
      if not (FPointer = nil) then
      begin
        MyFuncB := TFCrm_BAAGLSFM(FPointer);
        MyFuncB(mainAy, UserpowerStr);
        FreeLibrary(handle);
      end;
    end;      mainAy := nil ; 
end; 

Answer 2

不行，出现错误，access violation at address 083c95Bc.read of address 083c95Bc.信息。
如果是函数或过程，这样调用是没有问题的，但是封装窗体，动态调用，就不行。我搞不懂，错在哪里了！！

Answer 3

unit UCRM_MAIN; interface uses 
   ................ 
type 
  TFZX_MAIN = class(TForm) 
    MainMenu1: TMainMenu; 
    G1: TMenuItem; 
        ........ 
var 
  FZX_MAIN: TFZX_MAIN;   procedure FCrm_BAAGLAPP(App:THandle,frmAy:array of string;frmStrL:TStringList);stdcall;external '.\HBDLL\DllCrm_BAAGL.dll'; 
procedure TFZX_MAIN.SM01M02Click(Sender: TObject); 
   var mainAy : array of string ; 
begin 
    SetLength(mainAy,2); 
    mainAy[0] := userno ;    mainAy[1] := dllcurdir; 
    FCrm_BAAGLAPP(Application.Handle,mainAy,UserpowerStr); 
     mainAy := nil ; 
end; 第一个封装的窗体源码如下： 
          /////////////////// 
library DllCrm_BAAGL; 
uses 
  ShareMem, 
  SysUtils, 
  Classes, 
  UCrm_BAAGL in 'UCrm_BAAGL.pas' {FCrm_BAAGL}; {$R *.res} 
function  GetDllChildFormBAAGL(Parent:TComponent):TFCrm_BAAGL;stdcall; 
begin 
  Result := TFCrm_BAAGL.Create(Parent); 
end; exports 
  FCrm_BAAGLAPP; begin 
end. 
           //////////////////////// 
unit UCrm_BAAGL; interface 
uses 
   ............. 
type 
  TFCrm_BAAGL = class(TForm) 
      ............................. 
var 
  //FCrm_BAAGL: TFCrm_BAAGL;---------------------这里注掉   procedure FCrm_BAAGLAPP(App:THandle);stdcall; 
   implementation {$R *.dfm} 
//***** 窗体初始调用 ***** 
procedure FCrm_BAAGLAPP(App:THandle,frmAy:array of string;frmStrL:TStringList);stdcall; 
var
FCrm_BAAGL: TFCrm_BAAGL;//------------这里加回先前注掉的
begin 
  Application.Handle := App; 
  try 
    if not Assigned(FCrm_BAAGL) then 
       FCrm_BAAGL := TFCrm_BAAGL.Create(Application); 
    try 
      userno := frmAy[0] ; 
      dllcurdir := frmAy[1] ; 
      UserpowerStr := TStringList.Create; 
      UserpowerStr.CommaText := frmStrL.CommaText ; 
      FCrm_BAAGL.ShowModal; 
    finally 
      FCrm_BAAGL.Free; 
    end; 
  except 
    on E: Exception do 
      MessageDlg ('Error in CRMBAAFm: ' + 
        E.Message, mtError, [mbOK], 0); 
  end; end; 

Answer 4

//FCrm_BAAGL: TFCrm_BAAGL;---------------------这里注掉   procedure FCrm_BAAGLAPP(App:THandle);stdcall; 
   
更改为://FCrm_BAAGL: TFCrm_BAAGL;---------------------这里注掉 
procedure FCrm_BAAGLAPP(App:THandle,frmAy:array of string;frmStrL:TStringList);stdcall; 

Answer 5

动态调用时，还是报错，同上面信息一样，
{var 
  //FCrm_BAAGL: TFCrm_BAAGL;---------------------这里注掉 }
这里注掉的话，编译时提示要加 uses Fcrm_baagl

Answer 6

静态调用，没问题，动态调用不行。（我没有注销 //FCrm_BAAGL: TFCrm_BAAGL ）因注销后执行不了。

Answer 7

我的窗体中，有FormShow(Sender: TObject);事件procedure TFCrm_BAAGL.FormShow(Sender: TObject);
begin
 oldwhere := '  ';
  fm_caption:= ';
  enlist := 'MaddMmodMdelMsavMyfqPanEditPanList';
  proc_no:='HBCBAA0100';  BAAGLShowForm();
  BAAGLShow(); 
end;

Answer 8

作如下修改，修改部分用////标出：unit UCrm_BAAGL;interface
uses
  .............
type
  TFCrm_BAAGL = class(TForm)
    .............................
////var
  ////FCrm_BAAGL: TFCrm_BAAGL;    procedure FCrm_BAAGLAPP(App: THandle); stdcall;
    procedure FCrm_BAAGLSFM(frmAy: array of string; frmStrL: TStringList); stdcall;implementation{$R *.dfm}
//***** 窗体初始调用 *****procedure FCrm_BAAGLAPP(App: THandle); stdcall;
begin
  Application.Handle := App;
end;
//***** 窗体初始调用 *****procedure FCrm_BAAGLSFM(frmAy: array of string; frmStrL: TStringList); stdcall;
var
  FCrm_BAAGL: TFCrm_BAAGL;
begin
  try
    if not Assigned(FCrm_BAAGL) then
      ////FCrm_BAAGL := TFCrm_BAAGL.Create(Application);
      FCrm_BAAGL := TFCrm_BAAGL.Create(nil);//TFCrm_BAAGL创建以nil作为Owner试试
    try
      userno := frmAy[0];
      dllcurdir := frmAy[1];
      UserpowerStr := TStringList.Create;
      UserpowerStr.CommaText := frmStrL.CommaText;
      FCrm_BAAGL.ShowModal;
    finally
      FCrm_BAAGL.Free;
    end;
  except
    on E: Exception do
      MessageDlg('Error in CRMBAAFm: ' +
        E.Message, mtError, [mbOK], 0);
  end;
end;
另外，主程序和DLL程序dpr单元的Uses部分引用的第一个单元一定要是ShareMem

Answer 9

还是不行，提示要增加USEs unit UCrm_BAAGL 单元，因为我的UCrm_BAAGL 单元中有很多过程，包括FORMSHOW;

Answer 10

unit UCrm_BAAGL;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Mask, DBCtrls, Buttons,
  ExtCtrls, AppEvnts;type
  TFCrm_BAAGL = class(TForm)
    PanMenu: TPanel;
    Madd: TSpeedButton;
    Mmod: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MaddClick(Sender: TObject);....

Answer 11

其实答案一早出来了,也话是楼主没有用心去看,将我再举个例子吧1.DLL的主体:library MYDLL;{ 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,
  Umain in 'Umain.pas' {Fmain};{$R *.res}
exports 
  FCrm_BAAGLAPP;
  
begin
end.
2.DLL里内的窗体:unit Umain;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TFmain = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;{---看看这里与你的对比---}procedure FCrm_BAAGLAPP(App: THandle); stdcall;implementation{$R *.dfm}
procedure FCrm_BAAGLAPP(App: THandle); stdcall;
var
Fmain: TFmain;
begin
Application.Handle := App;
  Fmain:=TFmain.Create(Application);
    try
    Fmain.ShowModal;
   finally
   Fmain.Free;
   end;
end;
procedure TFmain.Button1Click(Sender: TObject);
begin
 {--窗体的按钮单激事件--}
 close;
end;procedure TFmain.FormShow(Sender: TObject);
begin
 {--窗体的show事件--}
 edit1.Text:='abc';
end;procedure TFmain.FormCreate(Sender: TObject);
var
i:integer;
begin
 {窗体的FormCreate}
 for i := 0 to 20 do
 ListBox1.Items.Add(inttostr(i));
end;end.
3.调用:unit UFcall;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TFcall = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Fcall: TFcall;implementation{$R *.dfm}
procedure FCrm_BAAGLAPP(App:THandle);stdcall;external 'mydll.dll';procedure TFcall.Button1Click(Sender: TObject);
begin
   FCrm_BAAGLAPP(Application.Handle);
end;end.
以上是一个简单的例子,同样的如楼主所说的:我的窗体中，有FormShow(Sender: TObject);事件.

Answer 12

动态调用:unit UFcall;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TFcall = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Fcall: TFcall;implementation{$R *.dfm}
{------------------请注意------------------------------}
//procedure FCrm_BAAGLAPP(App:THandle);stdcall;external 'mydll.dll';procedure TFcall.Button1Click(Sender: TObject);
type 
TShowNls = procedure(App:THandle);stdcall;
var 
Th:Thandle;
ShowNls:TShowNls;
Tp:TFarProc;
begin
Th:=LoadLibrary('mydll.dll'); {装载DLL}
if Th>0 then
try 
Tp:=GetProcAddress(Th,PChar('FCrm_BAAGLAPP'));
if Tp<>nil then begin
ShowNls:=TShowNls(Tp);
ShowNls(Application.Handle);
end
else 
ShowMessage('FCrm_BAAGLAPP过程没有找到');
finally
FreeLibrary(Th); {释放DLL}
end
else 
ShowMessage('mydll.dll没有找到');
end;end.

Answer 13

其实blazingfire 已经写得好明白了,我又用了一个从头到尾的简单例子给你看,你还是不明白就真的没办法了.