39 lines
570 B
Plaintext
39 lines
570 B
Plaintext
library DrmAssistor;
|
|
|
|
|
|
uses
|
|
System.SysUtils,
|
|
Winapi.Windows,
|
|
System.Classes,
|
|
DrmAstHook in 'DrmAstHook.pas';
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
DrmAstHook: TDrmAstHook = nil;
|
|
|
|
procedure DLLEntryPoint(dwReason: DWORD);
|
|
begin
|
|
case dwReason of
|
|
DLL_PROCESS_ATTACH :
|
|
begin
|
|
DrmAstHook := TDrmAstHook.Create;
|
|
end;
|
|
|
|
DLL_PROCESS_DETACH :
|
|
begin
|
|
try
|
|
if Assigned(DrmAstHook) then
|
|
FreeAndNil(DrmAstHook);
|
|
except
|
|
//
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
DllProc := @DLLEntryPoint;
|
|
DLLEntryPoint(DLL_PROCESS_ATTACH);
|
|
end.
|