Hydra加载流程和阻止加载的技巧

首先回顾一下Hydra加载插件的顺序，这里以传入插件路径的LoadModules为例：

1.我们在程序中创建了THYModuleManager的实例，并调用

function LoadModules(const aSearchPath: string; const InNewAppDomain: boolean = true): integer; overload;

2.LoadModules会将参数aSearchPath下所有插件遍历一遍，并调用

function LoadModule(const aFileName: string; const InNewAppDomain: boolean = true): integer;

3.LoadModule会根据参数aFileName判断该文件属于哪种类型：

TExecuteableType = (etError, etWin32, etWin64, etCLR, etCLR64, etFMX, etXAP);

然后根据不同类型载入插件，这里以etWin32, etWin64为例，会调用

function LoadUnmanagedModule(const aFileName: string): integer;

4.LoadManageModule

4.1 首先调用

function DoBeforeModuleLoad(const aFileName: string): boolean;

判断是否已有该插件，在确保从未加载过该插件之后，创建了一个THYUnmanageModule的实例newmodule,创建调用了构造器

constructor Create(aFileName: string); override;

4.1.1 THYUnmanageModule的构造器根据aFileName提供的文件名，动态载入(第一次)该文件,当载入该文件时，会调用该文件中的 单元文件中的 initialization中的方法。其中必定有一个方法调用了THYPluginFactory的构造器

constructor Create(aModuleInstance: Cardinal;
                       const aPluginName: string;
                       aCreatorFunc: THYPluginCreatorFunc;
                       aPluginClass: TClass;
                       aMajorVersion: integer = 1;
                       aMinorVersion: integer = 0;
                       const aRequiredPrivilege: string = '';
                       const aDescription: string = '';
                       const aUserData: string = ''); overload;

到重点了，这里的参数 aCreatorFunc指向了一个方法的地址，该方法有一个out的形参anInstance，为IInterface类型。这就是插件的实例，而这个方法通常也只有一句话，类似

procedure CreateDemoPlugin(out anInstance: IInterface);
begin
  anInstance := TDemo.Create(nil);
end;

4.1.1.1THYPluginFactory的构造器会调用动态载入(第二次)文件的 HYGetModuleController 方法，返回一个THYModuleController，再调用RegisterPluginFactory将THYPluginFactory的实例写入THYModuleController的fFactories: TList中。THYPluginFactory的构造器结束。

4.1.2 调用HYGetModuleController，并将返回的THYModuleController赋给fModuleController。

最后调用

procedure DoAfterModuleLoad(const NewModule: THYModule);

5 DoAfterModuleLoad 将NewModule.ModuleController中所有的Factory逐个复制到THYModuleManager的fFactoriesRefs中。

至此，一个模块就加载到内存中了，当我们需要创建的时候，只需要给出工厂名称，就可以从工厂列表中找出并创建实例了。

所以，如果我们想根据权限控制空间是否被创建，就应该再上文4.1.1中的aCreatorFunc中做文章，如

procedure CreateDemoPlugin(out anInstance: IInterface);
begin
  if HasPrivilege then
    anInstance := TDemo.Create(nil);
end;