library lpk;
{$IMAGEBASE $20000000}

uses
  windows,
  oriLPK in 'oriLPK.pas',
  hook in 'hook.pas';

{$R *.res}
procedure MyDLLHandler(Reason: Integer);
begin
 case Reason of
   DLL_PROCESS_ATTACH:
     begin
       loadoriLpk ;
       StartHook;
     end;
   DLL_PROCESS_DETACH: ;
   DLL_THREAD_ATTACH:  ;
   DLL_THREAD_DETACH:  ;
 end;
end;

begin
  DLLProc := @MyDLLHandler;
  DLLProc(DLL_PROCESS_ATTACH);
end.