EPX-Studio调用Dll模块

 procedure TForm1.BitBtn1Click(Sender: TObject);
 var REP : IExcelPanelXDisp;
 modulePath:string;
 begin
   REP := this.NewEPX;
   REP.AddAValue(ADOConnection1); //传递参数
   REP.AddAValue(Pid);// //传递参数
   modulePath := CommandLine.ModuleRoot+'\Components\DATABASE.dll';
   if this.FileExists(modulePath) then
   begin
     REP.CallScriptBuilderComplexFunction(modulePath,'Main.rpas','',False);
     REP.FreeMe;
     REP := Unassigned;
   end
   else
   this.Alert('程序模块已丢失，请重新安装！');
 end;

 //取的传递参数
 procedure TForm2.FormShow(Sender: TObject);
 begin
   if this.ValuesCount =  then
   begin
     ado := this.values[];
     Pid := this.values[];
   end;
 end;