library ScreenSecu;


uses
  System.SysUtils,
  Winapi.Windows,
  System.Classes,
  ScrSecuHook in 'ScrSecuHook.pas',
  GlobalDefine in '..\LIB_Common\GlobalDefine.pas';

{$R *.res}

var
  ScrSecuHook: TScrSecuHook = nil;

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

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

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