添加以下的项目到项目组中,
\tangram2.6(XE2)\framework\Core\Tangram_Core.dpk
调试此包的SysModuleMgr.pas的函数,本人还没有测试
function TTangramModule.LoadModule: THandle; begin try Result:=0; 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;
时间: 2024-10-04 11:47:49