52 lines
1.1 KiB
Plaintext
52 lines
1.1 KiB
Plaintext
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.
|