41 lines
673 B
Plaintext
41 lines
673 B
Plaintext
library TocsgDRM;
|
|
|
|
|
|
uses
|
|
System.SysUtils,
|
|
Winapi.Windows,
|
|
System.Classes,
|
|
TgDrmHook in 'TgDrmHook.pas',
|
|
GlobalDefine in '..\LIB_Common\GlobalDefine.pas',
|
|
Tocsg.DRM.Encrypt in '..\LIB_Common\Tocsg.DRM.Encrypt.pas';
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
TgDrmHook: TTgDrmHook = nil;
|
|
|
|
procedure DLLEntryPoint(dwReason: DWORD);
|
|
begin
|
|
case dwReason of
|
|
DLL_PROCESS_ATTACH :
|
|
begin
|
|
TgDrmHook := TTgDrmHook.Create;
|
|
end;
|
|
|
|
DLL_PROCESS_DETACH :
|
|
begin
|
|
try
|
|
if Assigned(TgDrmHook) then
|
|
FreeAndNil(TgDrmHook);
|
|
except
|
|
//
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
DllProc := @DLLEntryPoint;
|
|
DLLEntryPoint(DLL_PROCESS_ATTACH);
|
|
end.
|