library AppCtrl;


uses
  System.SysUtils,
  Winapi.Windows,
  System.Classes,
  AppHook in 'AppHook.pas',
  AppHookClient in 'AppHookClient.pas',
  Define in 'Define.pas',
  ApiHookFile in 'ApiHookFile.pas',
  Tocsg.DRM.Encrypt in '..\..\TocsgDRM\LIB_Common\Tocsg.DRM.Encrypt.pas',
  ApiHookEtc in 'ApiHookEtc.pas',
  ApiHookNet in 'ApiHookNet.pas',
  ApiHookDraw in 'ApiHookDraw.pas',
  ApiHookPrint in 'ApiHookPrint.pas',
  Condition in '..\..\..\eCrmHE\LIB_Common\Condition.pas',
  GlobalDefine in '..\..\..\eCrmHE\LIB_Common\GlobalDefine.pas',
  ProcessWM in 'ProcessWM.pas',
  AppCtrlDefine in '..\LIB_Common\AppCtrlDefine.pas',
  ApiHookExplorer in 'ApiHookExplorer.pas';

{$R *.res}

var
  AppHook: TAppHook = nil;

procedure DLLEntryPoint(dwReason: DWORD);
begin
  case dwReason of
    DLL_PROCESS_ATTACH :
    begin
      AppHook := TAppHook.Create;
    end;

    DLL_PROCESS_DETACH :
    begin
      try
        if Assigned(AppHook) then
          FreeAndNil(AppHook);
      except
        //
      end;
    end;
  end;
end;

begin
  DllProc := @DLLEntryPoint;
  DLLEntryPoint(DLL_PROCESS_ATTACH);
end.