141 lines
6.4 KiB
Plaintext
141 lines
6.4 KiB
Plaintext
library eCrmHeHelper;
|
|
|
|
|
|
uses
|
|
System.SysUtils,
|
|
Winapi.Windows,
|
|
System.Classes,
|
|
|
|
Tocsg.DllEntry in '..\..\Tocsg.Lib\VCL\Tocsg.DllEntry.pas',
|
|
Tocsg.CommonData in '..\..\Tocsg.Lib\VCL\Tocsg.CommonData.pas',
|
|
Tocsg.Obj in '..\..\Tocsg.Lib\VCL\Tocsg.Obj.pas',
|
|
Tocsg.Trace in '..\..\Tocsg.Lib\VCL\Tocsg.Trace.pas',
|
|
Tocsg.Safe in '..\..\Tocsg.Lib\VCL\Tocsg.Safe.pas',
|
|
Tocsg.Path in '..\..\Tocsg.Lib\VCL\Tocsg.Path.pas',
|
|
Tocsg.Files in '..\..\Tocsg.Lib\VCL\Tocsg.Files.pas',
|
|
|
|
Tocsg.DateTime in '..\..\Tocsg.Lib\VCL\Tocsg.DateTime.pas',
|
|
Tocsg.Encrypt in '..\..\Tocsg.Lib\VCL\Tocsg.Encrypt.pas',
|
|
Tocsg.Thread in '..\..\Tocsg.Lib\VCL\Tocsg.Thread.pas',
|
|
Tocsg.Strings in '..\..\Tocsg.Lib\VCL\Tocsg.Strings.pas',
|
|
Tocsg.Hex in '..\..\Tocsg.Lib\VCL\Tocsg.Hex.pas',
|
|
Tocsg.Json in '..\..\Tocsg.Lib\VCL\Tocsg.Json.pas',
|
|
Tocsg.ClientBase in '..\..\Tocsg.Lib\VCL\CS\Tocsg.ClientBase.pas',
|
|
Tocsg.Packet in '..\..\Tocsg.Lib\VCL\CS\Tocsg.Packet.pas',
|
|
Tocsg.Win32 in '..\..\Tocsg.Lib\VCL\Tocsg.Win32.pas',
|
|
Tocsg.Process in '..\..\Tocsg.Lib\VCL\Tocsg.Process.pas',
|
|
Tocsg.WTS in '..\..\Tocsg.Lib\VCL\Tocsg.WTS.pas',
|
|
Tocsg.Kernel32 in '..\..\Tocsg.Lib\VCL\Tocsg.Kernel32.pas',
|
|
Tocsg.Shell in '..\..\Tocsg.Lib\VCL\Tocsg.Shell.pas',
|
|
Tocsg.Service in '..\..\Tocsg.Lib\VCL\Tocsg.Service.pas',
|
|
Tocsg.Registry in '..\..\Tocsg.Lib\VCL\Tocsg.Registry.pas',
|
|
Tocsg.FileInfo in '..\..\Tocsg.Lib\VCL\Tocsg.FileInfo.pas',
|
|
Tocsg.WndUtil in '..\..\Tocsg.Lib\VCL\Tocsg.WndUtil.pas',
|
|
Tocsg.WinInfo in '..\..\Tocsg.Lib\VCL\Tocsg.WinInfo.pas',
|
|
Tocsg.Exception in '..\..\Tocsg.Lib\VCL\Tocsg.Exception.pas',
|
|
Tocsg.Network in '..\..\Tocsg.Lib\VCL\Tocsg.Network.pas',
|
|
Tocsg.Driver in '..\..\Tocsg.Lib\VCL\Tocsg.Driver.pas',
|
|
Tocsg.Convert in '..\..\Tocsg.Lib\VCL\Tocsg.Convert.pas',
|
|
Tocsg.Disk in '..\..\Tocsg.Lib\VCL\Tocsg.Disk.pas',
|
|
Tocsg.WMI in '..\..\Tocsg.Lib\VCL\Tocsg.WMI.pas',
|
|
Tocsg.Printer in '..\..\Tocsg.Lib\VCL\Tocsg.Printer.pas',
|
|
Tocsg.PacketDefine in '..\..\Tocsg.Lib\VCL\CS\Tocsg.PacketDefine.pas',
|
|
Tocsg.Process.IPC in '..\..\Tocsg.Lib\VCL\Tocsg.Process.IPC.pas',
|
|
Tocsg.Param in '..\..\Tocsg.Lib\VCL\Tocsg.Param.pas',
|
|
Tocsg.DRM.Encrypt in '..\..\Tocsg.Module\TocsgDRM\LIB_Common\Tocsg.DRM.Encrypt.pas',
|
|
|
|
superobject in '..\..\Tocsg.Lib\VCL\SuperObject\superobject.pas',
|
|
aes_type in '..\..\Tocsg.Lib\VCL\EncLib\AES\aes_type.pas',
|
|
aes_cbc in '..\..\Tocsg.Lib\VCL\EncLib\AES\aes_cbc.pas',
|
|
BTypes in '..\..\Tocsg.Lib\VCL\EncLib\AES\BTypes.pas',
|
|
AES_Base in '..\..\Tocsg.Lib\VCL\EncLib\AES\AES_Base.pas',
|
|
AES_Encr in '..\..\Tocsg.Lib\VCL\EncLib\AES\AES_Encr.pas',
|
|
AES_Decr in '..\..\Tocsg.Lib\VCL\EncLib\AES\AES_Decr.pas',
|
|
|
|
Tocsg.Binary in '..\..\Tocsg.Lib\VCL\Tocsg.Binary.pas',
|
|
Tocsg.Hash in '..\..\Tocsg.Lib\VCL\Tocsg.Hash.pas',
|
|
EM.Tocsg.hash in '..\..\Tocsg.Lib\VCL\EncLib\EM.Tocsg.hash.pas',
|
|
EM.Tocsg.Sha1 in '..\..\Tocsg.Lib\VCL\EncLib\EM.Tocsg.Sha1.pas',
|
|
EM.MD5 in '..\..\Tocsg.Lib\VCL\EncLib\EM.MD5.pas',
|
|
EM.CRC32 in '..\..\Tocsg.Lib\VCL\EncLib\EM.CRC32.pas',
|
|
EM.Tocsg.sha256 in '..\..\Tocsg.Lib\VCL\EncLib\EM.Tocsg.sha256.pas',
|
|
EM.GSStorage in '..\..\Tocsg.Lib\VCL\Other\EM.GSStorage.pas',
|
|
EM.nduWlanAPI in '..\..\Tocsg.Lib\VCL\Other\EM.nduWlanAPI.pas',
|
|
EM.nduCType in '..\..\Tocsg.Lib\VCL\Other\EM.nduCType.pas',
|
|
EM.nduL2cmn in '..\..\Tocsg.Lib\VCL\Other\EM.nduL2cmn.pas',
|
|
EM.nduWlanTypes in '..\..\Tocsg.Lib\VCL\Other\EM.nduWlanTypes.pas',
|
|
EM.nduWinDot11 in '..\..\Tocsg.Lib\VCL\Other\EM.nduWinDot11.pas',
|
|
EM.nduWinNT in '..\..\Tocsg.Lib\VCL\Other\EM.nduWinNT.pas',
|
|
EM.nduEapTypes in '..\..\Tocsg.Lib\VCL\Other\EM.nduEapTypes.pas',
|
|
EM.nduNtDDNdis in '..\..\Tocsg.Lib\VCL\Other\EM.nduNtDDNdis.pas',
|
|
EM.WbemScripting_TLB in '..\..\Tocsg.Lib\VCL\Other\EM.WbemScripting_TLB.pas',
|
|
EM.WinOSVersion in '..\..\Tocsg.Lib\VCL\Other\EM.WinOSVersion.pas',
|
|
EM.winioctl in '..\..\Tocsg.Lib\VCL\Other\EM.winioctl.pas',
|
|
EM.WtsApi32 in '..\..\Tocsg.Lib\VCL\EncLib\EM.WtsApi32.pas',
|
|
|
|
DDetours in '..\..\EM.Lib\DDetours\DDetours-master\Source\DDetours.pas',
|
|
LegacyTypes in '..\..\EM.Lib\DDetours\DDetours-master\Source\LegacyTypes.pas',
|
|
InstDecode in '..\..\EM.Lib\DDetours\DDetours-master\Source\InstDecode.pas',
|
|
CPUID in '..\..\EM.Lib\DDetours\DDetours-master\Source\CPUID.pas',
|
|
EM.DelphiZXingQRCode in '..\..\Tocsg.Lib\VCL\Other\EM.DelphiZXingQRCode.pas',
|
|
|
|
BS1Hook in 'BS1Hook.pas',
|
|
GlobalDefine in '..\LIB_Common\GlobalDefine.pas',
|
|
DefineHelper in '..\EXE_eCrmHeHelper\DefineHelper.pas',
|
|
AppCtrlDefine in '..\..\Tocsg.Module\AppCtrl\LIB_Common\AppCtrlDefine.pas',
|
|
ApiHookDraw in '..\..\Tocsg.Module\AppCtrl\DLL_AppCtrl\ApiHookDraw.pas',
|
|
ApiHookFile in '..\..\Tocsg.Module\AppCtrl\DLL_AppCtrl\ApiHookFile.pas',
|
|
ApiHookPrint in '..\..\Tocsg.Module\AppCtrl\DLL_AppCtrl\ApiHookPrint.pas',
|
|
AppHookClient in '..\..\Tocsg.Module\AppCtrl\DLL_AppCtrl\AppHookClient.pas',
|
|
Define in 'Define.pas',
|
|
Condition in '..\LIB_Common\Condition.pas',
|
|
Tocsg.Graphic in '..\..\Tocsg.Lib\VCL\Tocsg.Graphic.pas',
|
|
ProcessWM_Custom in 'PrintWatermark\ProcessWM_Custom.pas',
|
|
ProcessWM_Def in 'PrintWatermark\ProcessWM_Def.pas',
|
|
ProcessWM_GEC in 'PrintWatermark\ProcessWM_GEC.pas',
|
|
ProcessWM_SOLMIX in 'PrintWatermark\ProcessWM_SOLMIX.pas',
|
|
ProcessWM_KBIZ in 'PrintWatermark\ProcessWM_KBIZ.pas',
|
|
ProcessWM_KOCES in 'PrintWatermark\ProcessWM_KOCES.pas',
|
|
ProcessWM_SERVE1 in 'PrintWatermark\ProcessWM_SERVE1.pas',
|
|
ProcessWM_SHSC in 'PrintWatermark\ProcessWM_SHSC.pas',
|
|
ProcessWM_DEMO in 'PrintWatermark\ProcessWM_DEMO.pas',
|
|
ProcessWM_SKEC in 'PrintWatermark\ProcessWM_SKEC.pas',
|
|
ApiHookExplorer in '..\..\Tocsg.Module\AppCtrl\DLL_AppCtrl\ApiHookExplorer.pas',
|
|
ProcessWM_HEC in 'PrintWatermark\ProcessWM_HEC.pas',
|
|
ProcessWM_SHCI in 'PrintWatermark\ProcessWM_SHCI.pas',
|
|
ProcessWM_KORENTAL in 'PrintWatermark\ProcessWM_KORENTAL.pas',
|
|
ProcessWM_WELFND in 'PrintWatermark\ProcessWM_WELFND.pas',
|
|
ProcessWM_JUVIS in 'PrintWatermark\ProcessWM_JUVIS.pas',
|
|
ProcessWM_SANKYO in 'PrintWatermark\ProcessWM_SANKYO.pas',
|
|
ProcessWM_WINSTN in 'PrintWatermark\ProcessWM_WINSTN.pas';
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
BS1Hook: TBS1Hook = nil;
|
|
|
|
procedure DLLEntryPoint(dwReason: DWORD);
|
|
begin
|
|
case dwReason of
|
|
DLL_PROCESS_ATTACH :
|
|
begin
|
|
BS1Hook := TBS1Hook.Create;
|
|
end;
|
|
|
|
DLL_PROCESS_DETACH :
|
|
begin
|
|
try
|
|
if Assigned(BS1Hook) then
|
|
FreeAndNil(BS1Hook);
|
|
except
|
|
//
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
DllProc := @DLLEntryPoint;
|
|
DLLEntryPoint(DLL_PROCESS_ATTACH);
|
|
end.
|