添加以下的项目到项目组中,
\tangram2.6(XE2)\framework\Core\Tangram_Core.dpk
调试此包的SysModuleMgr.pas的函数,本人还没有测试
function TTangramModule.LoadModule: THandle;
begin
try
Result:=;
case GetModuleType of
mtBPL:Result:=SysUtils.LoadPackage(self.FModuleFileName);
mtDLL:Result:=Windows.LoadLibrary(Pchar(self.FModuleFileName));
end;
except
on e:Exception do
if SysService.QueryInterface(ILog,log)=S_OK then
begin
log.WriteLog(e.Message);
end;
end;
end;