diff --git a/Tocsg.Module/AipMdHelper/AipMdHelper.dpr b/Tocsg.Module/AipMdHelper/AipMdHelper.dpr
new file mode 100644
index 00000000..f5a4f088
--- /dev/null
+++ b/Tocsg.Module/AipMdHelper/AipMdHelper.dpr
@@ -0,0 +1,17 @@
+program AipMdHelper;
+
+uses
+ Vcl.Forms,
+ DAmhMain in 'DAmhMain.pas' {DlgAmhMain},
+ ThdAipMdHelper in 'ThdAipMdHelper.pas';
+
+{$R *.res}
+
+begin
+ ReportMemoryLeaksOnShutdown := DebugHook <> 0;
+
+ Application.Initialize;
+ Application.MainFormOnTaskbar := True;
+ Application.CreateForm(TDlgAmhMain, DlgAmhMain);
+ Application.Run;
+end.
diff --git a/Tocsg.Module/AipMdHelper/AipMdHelper.dproj b/Tocsg.Module/AipMdHelper/AipMdHelper.dproj
new file mode 100644
index 00000000..b3b99889
--- /dev/null
+++ b/Tocsg.Module/AipMdHelper/AipMdHelper.dproj
@@ -0,0 +1,972 @@
+
+
+ {A35CE934-9D50-4FF3-AA8C-5314F018D28E}
+ 19.5
+ VCL
+ True
+ Debug
+ Win32
+ 1
+ Application
+ AipMdHelper.dpr
+
+
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_1
+ true
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_2
+ true
+ true
+
+
+ .\_OUT_Object\$(Platform)\$(Config)
+ .\OUT_$(Config) - $(Platform)
+ false
+ false
+ false
+ false
+ false
+ System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)
+ $(BDS)\bin\delphi_PROJECTICON.ico
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
+ AipMdHelper
+ 1042
+ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
+
+
+ vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;FFmpegRtl_DXT4;appanalytics;IndyProtocols;vclx;adxBuildD28;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;FFmpegVcl_DXT4;emsedge;bindcompfmx;hclcore_xe104;DBXFirebirdDriver;htmlreports_xe104;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;PKIECtrl24;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;PowerPDFDR;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;AbbreviaVCLD;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;htmlcomp_xe104;FireDACMongoDBDriver;IndySystem;PngComponentsD;FireDACTDataDriver;vcldb;ibxbindings;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;htmledit_xe104;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;htmleditcore_xe104;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;adxolBuildD28;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
+ Debug
+ true
+ 1033
+ ..\kkuProject.manifest
+ true
+ none
+
+
+ vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;FFmpegRtl_DXT4;appanalytics;IndyProtocols;vclx;adxBuildD28;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;FFmpegVcl_DXT4;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;PKIECtrl24;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;PowerPDFDR;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;AbbreviaVCLD;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;PngComponentsD;FireDACTDataDriver;vcldb;ibxbindings;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;adxolBuildD28;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+
+
+ DEBUG;$(DCC_Define)
+ true
+ false
+ true
+ true
+ true
+ true
+ true
+
+
+ false
+ PerMonitorV2
+ true
+ 1033
+
+
+ false
+ RELEASE;$(DCC_Define)
+ 0
+ 0
+
+
+ PerMonitorV2
+
+
+
+ MainSource
+
+
+
+ dfm
+
+
+
+ Base
+
+
+ Cfg_1
+ Base
+
+
+ Cfg_2
+ Base
+
+
+
+ Delphi.Personality.12
+ Application
+
+
+
+ AipMdHelper.dpr
+
+
+ Microsoft Office 2000 Sample Automation Server Wrapper Components
+ Microsoft Office XP Sample Automation Server Wrapper Components
+
+
+
+
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ classes
+ 64
+
+
+ classes
+ 64
+
+
+
+
+ res\xml
+ 1
+
+
+ res\xml
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ library\lib\armeabi
+ 1
+
+
+ library\lib\armeabi
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ library\lib\mips
+ 1
+
+
+ library\lib\mips
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+ library\lib\arm64-v8a
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\values-v21
+ 1
+
+
+ res\values-v21
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+
+
+ res\drawable-ldpi
+ 1
+
+
+ res\drawable-ldpi
+ 1
+
+
+
+
+ res\drawable-mdpi
+ 1
+
+
+ res\drawable-mdpi
+ 1
+
+
+
+
+ res\drawable-hdpi
+ 1
+
+
+ res\drawable-hdpi
+ 1
+
+
+
+
+ res\drawable-xhdpi
+ 1
+
+
+ res\drawable-xhdpi
+ 1
+
+
+
+
+ res\drawable-mdpi
+ 1
+
+
+ res\drawable-mdpi
+ 1
+
+
+
+
+ res\drawable-hdpi
+ 1
+
+
+ res\drawable-hdpi
+ 1
+
+
+
+
+ res\drawable-xhdpi
+ 1
+
+
+ res\drawable-xhdpi
+ 1
+
+
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+
+
+ res\drawable-small
+ 1
+
+
+ res\drawable-small
+ 1
+
+
+
+
+ res\drawable-normal
+ 1
+
+
+ res\drawable-normal
+ 1
+
+
+
+
+ res\drawable-large
+ 1
+
+
+ res\drawable-large
+ 1
+
+
+
+
+ res\drawable-xlarge
+ 1
+
+
+ res\drawable-xlarge
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ 0
+
+
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ 0
+ .dll;.bpl
+
+
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ 0
+ .bpl
+
+
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ 0
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen
+ 64
+
+
+ ..\$(PROJECTNAME).launchscreen
+ 64
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+
+
+ Contents
+ 1
+
+
+ Contents
+ 1
+
+
+ Contents
+ 1
+
+
+
+
+ Contents\Resources
+ 1
+
+
+ Contents\Resources
+ 1
+
+
+ Contents\Resources
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+ library\lib\arm64-v8a
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+
+
+ Assets
+ 1
+
+
+ Assets
+ 1
+
+
+
+
+ Assets
+ 1
+
+
+ Assets
+ 1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ True
+ False
+
+
+ 12
+
+
+
+
+
diff --git a/Tocsg.Module/AipMdHelper/DAmhMain.dfm b/Tocsg.Module/AipMdHelper/DAmhMain.dfm
new file mode 100644
index 00000000..4fec6a51
--- /dev/null
+++ b/Tocsg.Module/AipMdHelper/DAmhMain.dfm
@@ -0,0 +1,118 @@
+object DlgAmhMain: TDlgAmhMain
+ Left = 0
+ Top = 0
+ Caption = 'AipMdHelper'
+ ClientHeight = 272
+ ClientWidth = 498
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Position = poScreenCenter
+ TextHeight = 15
+ object pnTop: TPanel
+ Left = 0
+ Top = 0
+ Width = 498
+ Height = 137
+ Align = alTop
+ BevelOuter = bvNone
+ TabOrder = 0
+ object Label1: TLabel
+ Left = 16
+ Top = 24
+ Width = 78
+ Height = 15
+ Caption = 'AIP '#47784#46280' '#44221#47196' :'
+ end
+ object Label2: TLabel
+ Left = 16
+ Top = 61
+ Width = 57
+ Height = 15
+ Caption = #45824#49345' '#54260#45908' :'
+ end
+ object edAipPath: TEdit
+ Left = 100
+ Top = 21
+ Width = 277
+ Height = 23
+ TabOrder = 0
+ Text =
+ 'C:\taskToCSG\Tocsg.Module\BSOne-AIP-Decrypt\bin\x64\Release\BSOn' +
+ 'e-AIP-Decrypt.exe'
+ end
+ object edTargetDir: TEdit
+ Left = 100
+ Top = 58
+ Width = 277
+ Height = 23
+ TabOrder = 1
+ Text = 'C:\Users\kkuzil\Desktop\'#44060#51064#51221#48372' '#53580#49828#53944' '#54028#51068' - ENC\'
+ end
+ object btnEnc: TButton
+ Left = 48
+ Top = 96
+ Width = 75
+ Height = 25
+ Caption = #50516#54840#54868
+ TabOrder = 2
+ OnClick = btnEncClick
+ end
+ object btnDec: TButton
+ Left = 129
+ Top = 96
+ Width = 75
+ Height = 25
+ Caption = #48373#54840#54868
+ TabOrder = 3
+ OnClick = btnDecClick
+ end
+ object btnEncCnt: TButton
+ Left = 224
+ Top = 98
+ Width = 97
+ Height = 25
+ Caption = #50516#54840#54868' '#52852#50868#53944
+ TabOrder = 4
+ OnClick = btnEncCntClick
+ end
+ object btnExtrLabel: TButton
+ Left = 400
+ Top = 74
+ Width = 75
+ Height = 25
+ Caption = #47112#51060#48660' '#52628#52636
+ TabOrder = 5
+ OnClick = btnExtrLabelClick
+ end
+ object btnSetLabel: TButton
+ Left = 400
+ Top = 104
+ Width = 75
+ Height = 25
+ Caption = #47112#51060#48660' '#52628#44032
+ TabOrder = 6
+ OnClick = btnSetLabelClick
+ end
+ object btnLabelChk: TButton
+ Left = 400
+ Top = 24
+ Width = 75
+ Height = 25
+ Caption = #47112#51060#48660' '#54869#51064
+ TabOrder = 7
+ OnClick = btnLabelChkClick
+ end
+ end
+ object mmLog: TMemo
+ Left = 0
+ Top = 137
+ Width = 498
+ Height = 135
+ Align = alClient
+ TabOrder = 1
+ end
+end
diff --git a/Tocsg.Module/AipMdHelper/DAmhMain.pas b/Tocsg.Module/AipMdHelper/DAmhMain.pas
new file mode 100644
index 00000000..09399958
--- /dev/null
+++ b/Tocsg.Module/AipMdHelper/DAmhMain.pas
@@ -0,0 +1,497 @@
+unit DAmhMain;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
+
+type
+ TDlgAmhMain = class(TForm)
+ pnTop: TPanel;
+ Label1: TLabel;
+ Label2: TLabel;
+ edAipPath: TEdit;
+ edTargetDir: TEdit;
+ mmLog: TMemo;
+ btnEnc: TButton;
+ btnDec: TButton;
+ btnEncCnt: TButton;
+ btnExtrLabel: TButton;
+ btnSetLabel: TButton;
+ btnLabelChk: TButton;
+ procedure btnEncClick(Sender: TObject);
+ procedure btnDecClick(Sender: TObject);
+ procedure btnEncCntClick(Sender: TObject);
+ procedure btnExtrLabelClick(Sender: TObject);
+ procedure btnSetLabelClick(Sender: TObject);
+ procedure btnLabelChkClick(Sender: TObject);
+ private
+ { Private declarations }
+ function FindAipMdWnd: HWND;
+ function SendData(h: HWND; dwCmd: DWORD; const sData: String): LONGLONG;
+ public
+ { Public declarations }
+ end;
+
+var
+ DlgAmhMain: TDlgAmhMain;
+
+implementation
+
+uses
+ Tocsg.Files, Tocsg.Safe, Tocsg.Path, Tocsg.Shell, Tocsg.Process,
+ Tocsg.DateTime, Tocsg.WndUtil, superobject, Tocsg.Registry;
+
+{$R *.dfm}
+
+procedure TDlgAmhMain.btnEncClick(Sender: TObject);
+var
+ FileList: TStringList;
+ i, nCnt, n: Integer;
+ sTaskDir,
+ sMdPath, sSrcPath, sDestPath: String;
+ dtBegin: TDateTime;
+ O: ISuperObject;
+begin
+ edAipPath.Text := Trim(edAipPath.Text);
+ edTargetDir.Text := Trim(edTargetDir.Text);
+
+ if edAipPath.Text = '' then
+ begin
+ MessageBox(Handle, PChar('AIP θ Է ֽʽÿ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edAipPath.SetFocus;
+ exit;
+ end;
+
+ sMdPath := edAipPath.Text;
+ if not FileExists(sMdPath) then
+ begin
+ MessageBox(Handle, PChar('AIP ʽϴ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edAipPath.SetFocus;
+ exit;
+ end;
+
+ if edTargetDir.Text = '' then
+ begin
+ MessageBox(Handle, PChar(' Է ֽʽÿ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edTargetDir.SetFocus;
+ exit;
+ end;
+
+ sTaskDir := GetRunExePathDir + 'Task\';
+ if not ForceDirectories(sTaskDir) then
+ begin
+ MessageBox(Handle, PChar('۾ ϴ ߽ϴ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ exit;
+ end;
+
+ Guard(FileList, TStringList.Create);
+ ExtrFilesPathFromDir(edTargetDir.Text, FileList);
+
+ var h: HWND := FindAipMdWnd;
+
+ dtBegin := Now;
+ nCnt := 0;
+ for i := 0 to FileList.Count - 1 do
+ begin
+ sSrcPath := FileList[i];
+ if not FileExists(sSrcPath) then
+ continue;
+
+ sDestPath := sTaskDir + ExtractFileName(sSrcPath);
+ O := SO;
+ O.S['src'] := sSrcPath;
+ O.S['dst'] := sDestPath;
+
+ if h <> 0 then
+ begin
+ n := SendData(h, 1, O.AsString);
+ if (n = 10) and FileExists(sDestPath) then
+ begin
+ DeleteFile(sSrcPath);
+ MoveFile_wait(sDestPath, sSrcPath);
+ Inc(nCnt);
+ end;
+ end;
+
+// ExecuteAppWaitUntilTerminate(sMdPath, Format('-e "%s" "%s"', [sSrcPath, sDestPath]), SW_HIDE, 30000);
+// if FileExists(sDestPath) then
+// begin
+// DeleteFile(sSrcPath);
+// MoveFile_wait(sDestPath, sSrcPath);
+// Inc(nCnt);
+// end;
+ end;
+
+ ShowMessage(Format(' : %d, ҿð : %s', [nCnt, ConvSecBetweenToProgTime(dtBegin, Now)]));
+end;
+
+procedure TDlgAmhMain.btnEncCntClick(Sender: TObject);
+var
+ FileList: TStringList;
+ i, nCnt, n: Integer;
+ sTaskDir,
+ sMdPath, sSrcPath, sDestPath: String;
+ dtBegin: TDateTime;
+ O: ISuperObject;
+begin
+ edAipPath.Text := Trim(edAipPath.Text);
+ edTargetDir.Text := Trim(edTargetDir.Text);
+
+ if edAipPath.Text = '' then
+ begin
+ MessageBox(Handle, PChar('AIP θ Է ֽʽÿ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edAipPath.SetFocus;
+ exit;
+ end;
+
+ sMdPath := edAipPath.Text;
+ if not FileExists(sMdPath) then
+ begin
+ MessageBox(Handle, PChar('AIP ʽϴ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edAipPath.SetFocus;
+ exit;
+ end;
+
+ if edTargetDir.Text = '' then
+ begin
+ MessageBox(Handle, PChar(' Է ֽʽÿ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edTargetDir.SetFocus;
+ exit;
+ end;
+
+ sTaskDir := GetRunExePathDir + 'Task\';
+ if not ForceDirectories(sTaskDir) then
+ begin
+ MessageBox(Handle, PChar('۾ ϴ ߽ϴ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ exit;
+ end;
+
+ Guard(FileList, TStringList.Create);
+ ExtrFilesPathFromDir(edTargetDir.Text, FileList);
+
+ var h: HWND := FindAipMdWnd;
+
+ dtBegin := Now;
+ nCnt := 0;
+ for i := 0 to FileList.Count - 1 do
+ begin
+ sSrcPath := FileList[i];
+ if not FileExists(sSrcPath) then
+ continue;
+
+ sDestPath := sTaskDir + ExtractFileName(sSrcPath);
+ O := SO;
+ O.S['src'] := sSrcPath;
+ O.S['dst'] := sDestPath;
+
+ if h <> 0 then
+ begin
+ n := SendData(h, 3, O.AsString);
+ if n = 10 then
+ Inc(nCnt);
+ end;
+
+// ExecuteAppWaitUntilTerminate(sMdPath, Format('"%s" "%s"', [sSrcPath, sDestPath]), SW_HIDE, 30000);
+// if FileExists(sDestPath) then
+// begin
+// DeleteFile(sSrcPath);
+// MoveFile_wait(sDestPath, sSrcPath);
+// Inc(nCnt);
+// end;
+ end;
+
+ ShowMessage(Format(' : %d, ҿð : %s', [nCnt, ConvSecBetweenToProgTime(dtBegin, Now)]));
+end;
+
+procedure TDlgAmhMain.btnExtrLabelClick(Sender: TObject);
+var
+ dtBegin: TDateTime;
+ O: ISuperObject;
+ sPath,
+ sTaskDir: String;
+ n: Integer;
+begin
+ sTaskDir := GetRunExePathDir + 'Task\';
+ if not ForceDirectories(sTaskDir) then
+ begin
+ MessageBox(Handle, PChar('۾ ϴ ߽ϴ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ exit;
+ end;
+
+ var h: HWND := FindAipMdWnd;
+
+ dtBegin := Now;
+
+ if h <> 0 then
+ begin
+ O := SO;
+ sPath := sTaskDir + 'LabelList.txt';
+ O.S['src'] := sPath;
+ O.S['dst'] := sPath + '.tmp';
+
+ n := SendData(h, 0, O.AsString);
+ if (n = 10) and FileExists(sPath) then
+ begin
+ mmLog.Lines.LoadFromFile(sPath, TEncoding.UTF8);
+ DeleteFile(sPath);
+ end;
+ end;
+
+ ShowMessage(Format('ҿð : %s', [ConvSecBetweenToProgTime(dtBegin, Now)]));
+end;
+
+procedure TDlgAmhMain.btnLabelChkClick(Sender: TObject);
+const
+ REG_TEST = 'SOFTWARE\eCrmHomeEdition';
+var
+ dtBegin: TDateTime;
+ O: ISuperObject;
+ sTaskDir: String;
+ n: Integer;
+begin
+// sTaskDir := GetRunExePathDir + 'Task\';
+// if not ForceDirectories(sTaskDir) then
+// begin
+// MessageBox(Handle, PChar('۾ ϴ ߽ϴ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+// exit;
+// end;
+// SetRegValueString(HKEY_LOCAL_MACHINE, REG_TEST, 'TEST', 'TEST', true);
+// mmLog.Lines.Add(GetRegValueAsString(HKEY_LOCAL_MACHINE, 'SOFTWARE\eCrmHomeEdition', 'TEST', true));
+// exit;
+
+ edTargetDir.Text := Trim(edTargetDir.Text);
+
+ var h: HWND := FindWindow(nil, 'BSOne-AIP-T140713');
+
+ dtBegin := Now;
+
+ if h <> 0 then
+ begin
+ O := SO;
+ O.S['src'] := edTargetDir.Text;
+ O.S['dst'] := edTargetDir.Text + '.tmp';
+ O.S['ssid'] := GetRegRecentUserSid;
+
+ n := SendData(h, 4, O.AsString);
+ if n = 10 then
+ begin
+ mmLog.Lines.Add(GetRegValueAsString(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'ALabel'));
+// DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'ALabel');
+ end else
+ mmLog.Lines.Add('');
+ end else
+ mmLog.Lines.Add('2');
+
+ ShowMessage(Format('ҿð : %s', [ConvSecBetweenToProgTime(dtBegin, Now)]));
+end;
+
+procedure TDlgAmhMain.btnSetLabelClick(Sender: TObject);
+var
+ FileList: TStringList;
+ i, nCnt, n: Integer;
+ sTaskDir,
+ sMdPath, sSrcPath, sDestPath: String;
+ dtBegin: TDateTime;
+ O: ISuperObject;
+begin
+ edAipPath.Text := Trim(edAipPath.Text);
+ edTargetDir.Text := Trim(edTargetDir.Text);
+
+ if edAipPath.Text = '' then
+ begin
+ MessageBox(Handle, PChar('AIP θ Է ֽʽÿ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edAipPath.SetFocus;
+ exit;
+ end;
+
+ sMdPath := edAipPath.Text;
+ if not FileExists(sMdPath) then
+ begin
+ MessageBox(Handle, PChar('AIP ʽϴ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edAipPath.SetFocus;
+ exit;
+ end;
+
+ if edTargetDir.Text = '' then
+ begin
+ MessageBox(Handle, PChar(' Է ֽʽÿ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edTargetDir.SetFocus;
+ exit;
+ end;
+
+ sTaskDir := GetRunExePathDir + 'Task\';
+ if not ForceDirectories(sTaskDir) then
+ begin
+ MessageBox(Handle, PChar('۾ ϴ ߽ϴ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ exit;
+ end;
+
+ Guard(FileList, TStringList.Create);
+ ExtrFilesPathFromDir(edTargetDir.Text, FileList);
+
+ var h: HWND := FindAipMdWnd;
+
+ dtBegin := Now;
+ nCnt := 0;
+ for i := 0 to FileList.Count - 1 do
+ begin
+ sSrcPath := FileList[i];
+ if not FileExists(sSrcPath) then
+ continue;
+
+ sDestPath := sTaskDir + ExtractFileName(sSrcPath);
+ O := SO;
+ O.S['src'] := sSrcPath;
+ O.S['dst'] := sDestPath;
+ O.S['lid'] := '9877e059-3e04-4eba-ad87-888eb0c7e9ba';
+
+ if h <> 0 then
+ begin
+ n := SendData(h, 5, O.AsString);
+ if (n = 10) and FileExists(sDestPath) then
+ begin
+ DeleteFile(sSrcPath);
+ MoveFile_wait(sDestPath, sSrcPath);
+ Inc(nCnt);
+ end;
+ end;
+
+// ExecuteAppWaitUntilTerminate(sMdPath, Format('"%s" "%s"', [sSrcPath, sDestPath]), SW_HIDE, 30000);
+// if FileExists(sDestPath) then
+// begin
+// DeleteFile(sSrcPath);
+// MoveFile_wait(sDestPath, sSrcPath);
+// Inc(nCnt);
+// end;
+ end;
+
+ ShowMessage(Format(' : %d, ҿð : %s', [nCnt, ConvSecBetweenToProgTime(dtBegin, Now)]));
+end;
+
+function TDlgAmhMain.FindAipMdWnd: HWND;
+var
+ nTO: Integer;
+ sPName: String;
+begin
+ nTO := 0;
+ Result := FindWindow(nil, 'BSOne-AIP-T140713');
+ if Result = 0 then
+ begin
+ sPName := ExtractFileName(edAipPath.Text);
+ while Result = 0 do
+ begin
+ if nTO > 300 then
+ exit;
+ if GetProcessPidByName(sPName) = 0 then
+ begin
+ if not FileExists(edAipPath.Text) then
+ exit;
+ ExecutePath_hide(edAipPath.Text, '-r');
+ Sleep(500);
+ end;
+ Result := FindWindow(nil, 'BSOne-AIP-T140713');
+ Sleep(200);
+ end;
+
+ if Result = 0 then
+ TerminateProcessByName(sPName);
+ end;
+end;
+
+function TDlgAmhMain.SendData(h: HWND; dwCmd: DWORD; const sData: String): LONGLONG;
+var
+ CopyData: TCopyDataStruct;
+begin
+ CopyData.dwData := dwCmd;
+
+ CopyData.cbData := (Length(sData) + 1) * 2;
+ CopyData.lpData := PChar(sData);
+
+ Result := SendMessage(h, WM_COPYDATA, 0, NativeInt(@CopyData));
+end;
+
+procedure TDlgAmhMain.btnDecClick(Sender: TObject);
+var
+ FileList: TStringList;
+ i, nCnt, n: Integer;
+ sTaskDir,
+ sMdPath, sSrcPath, sDestPath: String;
+ dtBegin: TDateTime;
+ O: ISuperObject;
+begin
+ edAipPath.Text := Trim(edAipPath.Text);
+ edTargetDir.Text := Trim(edTargetDir.Text);
+
+ if edAipPath.Text = '' then
+ begin
+ MessageBox(Handle, PChar('AIP θ Է ֽʽÿ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edAipPath.SetFocus;
+ exit;
+ end;
+
+ sMdPath := edAipPath.Text;
+ if not FileExists(sMdPath) then
+ begin
+ MessageBox(Handle, PChar('AIP ʽϴ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edAipPath.SetFocus;
+ exit;
+ end;
+
+ if edTargetDir.Text = '' then
+ begin
+ MessageBox(Handle, PChar(' Է ֽʽÿ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ edTargetDir.SetFocus;
+ exit;
+ end;
+
+ sTaskDir := GetRunExePathDir + 'Task\';
+ if not ForceDirectories(sTaskDir) then
+ begin
+ MessageBox(Handle, PChar('۾ ϴ ߽ϴ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ exit;
+ end;
+
+ Guard(FileList, TStringList.Create);
+ ExtrFilesPathFromDir(edTargetDir.Text, FileList);
+
+ var h: HWND := FindAipMdWnd;
+
+ dtBegin := Now;
+ nCnt := 0;
+ for i := 0 to FileList.Count - 1 do
+ begin
+ sSrcPath := FileList[i];
+ if not FileExists(sSrcPath) then
+ continue;
+
+ sDestPath := sTaskDir + ExtractFileName(sSrcPath);
+ O := SO;
+ O.S['src'] := sSrcPath;
+ O.S['dst'] := sDestPath;
+
+ if h <> 0 then
+ begin
+ n := SendData(h, 2, O.AsString);
+ if (n = 10) and FileExists(sDestPath) then
+ begin
+ DeleteFile(sSrcPath);
+ MoveFile_wait(sDestPath, sSrcPath);
+ Inc(nCnt);
+ end;
+ end;
+
+// ExecuteAppWaitUntilTerminate(sMdPath, Format('"%s" "%s"', [sSrcPath, sDestPath]), SW_HIDE, 30000);
+// if FileExists(sDestPath) then
+// begin
+// DeleteFile(sSrcPath);
+// MoveFile_wait(sDestPath, sSrcPath);
+// Inc(nCnt);
+// end;
+ end;
+
+ ShowMessage(Format(' : %d, ҿð : %s', [nCnt, ConvSecBetweenToProgTime(dtBegin, Now)]));
+end;
+
+end.
diff --git a/Tocsg.Module/AipMdHelper/ThdAipMdHelper.pas b/Tocsg.Module/AipMdHelper/ThdAipMdHelper.pas
new file mode 100644
index 00000000..421fe72d
--- /dev/null
+++ b/Tocsg.Module/AipMdHelper/ThdAipMdHelper.pas
@@ -0,0 +1,44 @@
+{*******************************************************}
+{ }
+{ ThdAipMdHelper }
+{ }
+{ Copyright (C) 2023 kku }
+{ }
+{*******************************************************}
+
+unit ThdAipMdHelper;
+
+interface
+
+uses
+ Tocsg.Thread, System.SysUtils, System.Classes, Winapi.Windows;
+
+type
+ TThdAipMdHelper = class(TTgThread)
+ protected
+ procedure Execute; override;
+ public
+ Constructor Create;
+ Destructor Destroy; override;
+ end;
+
+implementation
+
+{ TThdAipMdHelper }
+
+Constructor TThdAipMdHelper.Create;
+begin
+ Inherited Create;
+end;
+
+Destructor TThdAipMdHelper.Destroy;
+begin
+ Inherited;
+end;
+
+procedure TThdAipMdHelper.Execute;
+begin
+
+end;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookDraw.pas b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookDraw.pas
new file mode 100644
index 00000000..d337660e
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookDraw.pas
@@ -0,0 +1,2151 @@
+{*******************************************************}
+{ }
+{ ApiHookDraw }
+{ }
+{ Copyright (C) 2023 kku }
+{ }
+{*******************************************************}
+
+unit ApiHookDraw;
+
+interface
+
+uses
+ Winapi.Windows, System.SysUtils, Vcl.Graphics, System.Classes,
+ System.Generics.Collections;
+
+type
+ TFun_BitBlt = function(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC;
+ XSrc, YSrc: Integer; Rop: DWORD): BOOL; stdcall;
+ TFun_StretchBlt = function(DestDC: HDC; X, Y, SrcWidth, SrcHeight: Integer; SrcDC: HDC;
+ XSrc, YSrc, DestWidth, DestHeight: Integer; Rop: DWORD): BOOL; stdcall;
+ TFun_TransparentBlt = function(DestDC: HDC; X, Y, DestWidth, DestHeight: Integer; SrcDC: HDC;
+ XSrc, YSrc, SrcWidth, SrcHeight: Integer; dwTransparent: DWORD): BOOL; stdcall;
+ TFun_StretchDIBits = function(DC: HDC; DestX, DestY, DestWidth, DestHeight, SrcX,
+ SrcY, SrcWidth, SrcHeight: Integer; Bits: Pointer; var BitsInfo: TBitmapInfo;
+ Usage: UINT; Rop: DWORD): Integer; stdcall;
+ TFun_SetDIBitsToDevice = function(DC: HDC; DestX, DestY: Integer; Width, Height: DWORD;
+ SrcX, SrcY: Integer; nStartScan, NumScans: UINT; Bits: Pointer;
+ var BitsInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
+ TFun_SetDIBits = function(DC: HDC; Bitmap: HBITMAP; StartScan, NumScans: UINT;
+ Bits: Pointer; var BitsInfo: TBitmapInfo; Usage: UINT): Integer; stdcall; // 추가 25_1001 10:43:39 kku
+ TFun_SetROP2 = function(DC: HDC; p2: Integer): Integer; stdcall; // 추가 25_1001 10:43:39 kku
+
+ TFun_SetMapperFlags = function(DC: HDC; Flag: DWORD): DWORD; stdcall;
+ TFun_SetGraphicsMode = function(hdc: HDC; iMode: Integer): Integer; stdcall;
+ TFun_SetMapMode = function(DC: HDC; p2: Integer): Integer; stdcall;
+
+// 추가 25_1001 10:43:39 kku
+ TFun_SetWindowOrgEx = function(DC: HDC; X, Y: Integer; Point: PPoint): BOOL; stdcall;
+ TFun_ModifyWorldTransform = function(DC: HDC; p2: PXForm; p3: DWORD): BOOL; stdcall;
+ TFun_SelectPalette = function(DC: HDC; Palette: HPALETTE; ForceBackground: Bool): HPALETTE; stdcall;
+ TFun_SetBkColor = function(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+ TFun_SetBrushOrgEx = function(DC: HDC; X, Y: Integer; PrevPt: PPoint): BOOL; stdcall;
+ TFun_SetWorldTransform = function(DC: HDC; p2: PXForm): BOOL; stdcall;
+ TFun_ExcludeClipRect = function(DC: HDC; LeftRect, TopRect, RightRect, BottomRect: Integer): Integer; stdcall;
+ TFun_SetTextColor = function(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+ TFun_CreateHalftonePalette = function(DC: HDC): HPALETTE; stdcall;
+ TFun_CreateDIBSection = function(DC: HDC; const p2: TBitmapInfo; p3: UINT;
+ var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; stdcall;
+ TFun_SetBoundsRect = function(DC: HDC; p2: PRect; p3: UINT): UINT; stdcall;
+ TFun_SetSystemPaletteUse = function(DC: HDC; p2: UINT): UINT; stdcall;
+ TFun_GetTextCharsetInfo = function(hdc: HDC; lpSig: PFontSignature; dwFlags: DWORD): Integer; stdcall;
+ TFun_RealizePalette = function(DC: HDC): UINT; stdcall;
+ TFun_GetGlyphIndicesA = function(DC: HDC; p2: LPCSTR; p3: Integer; p4: PWORD; p5: DWORD): DWORD; stdcall;
+ TFun_GetGlyphIndicesW = function(DC: HDC; p2: LPCWSTR; p3: Integer; p4: PWORD; p5: DWORD): DWORD; stdcall;
+ TFun_GetFontLanguageInfo = function(DC: HDC): DWORD; stdcall;
+ TFun_GetCharacterPlacementA = function(DC: HDC; p2: LPCSTR; p3, p4: Integer;
+ var p5: TGCPResultsA; p6: DWORD): DWORD; stdcall;
+ TFun_GetCharacterPlacementW = function(DC: HDC; p2: LPCWSTR; p3, p4: Integer;
+ var p5: TGCPResultsW; p6: DWORD): DWORD; stdcall;
+ TFun_GetFontData = function(DC: HDC; p2, p3: DWORD; p4: Pointer; p5: DWORD): DWORD; stdcall;
+ TFun_GetGlyphOutlineA = function(DC: HDC; uChar, uFormat: UINT;
+ const lpgm: TGlyphMetrics; cbBuffer: DWORD; lpvBuffer: Pointer; const lpmat2: TMat2): DWORD; stdcall;
+ TFun_GetGlyphOutlineW = function(DC: HDC; uChar, uFormat: UINT;
+ const lpgm: TGlyphMetrics; cbBuffer: DWORD; lpvBuffer: Pointer; const lpmat2: TMat2): DWORD; stdcall;
+ TFun_ResetDCA = function(DC: HDC; const InitData: TDeviceModeA): HDC; stdcall;
+ TFun_ResetDCW = function(DC: HDC; const InitData: TDeviceModeW): HDC; stdcall;
+ TFun_ColorCorrectPalette = function(DC: HDC; p2: HPALETTE; p3, p4: DWORD): BOOL; stdcall;
+ TFun_SetICMProfileA = function(DC: HDC; Name: LPSTR): BOOL; stdcall;
+ TFun_SetICMProfileW = function(DC: HDC; Name: LPWSTR): BOOL; stdcall;
+ TFun_AlphaBlend = function(DC: HDC; p2, p3, p4, p5: Integer; DC6: HDC; p7, p8, p9, p10: Integer; p11: TBlendFunction): BOOL; stdcall;
+ TFun_SetTextJustification = function(DC: HDC; BreakExtra, BreakCount: Integer): Integer; stdcall;
+ TFun_ScaleWindowExtEx = function(DC: HDC; XM, XD, YM, YD: Integer; Size: PSize): BOOL; stdcall;
+ TFun_RestoreDC = function(DC: HDC; SavedDC: Integer): BOOL; stdcall;
+ TFun_SetMiterLimit = function(DC: HDC; NewLimit: Single; OldLimit: PSingle): BOOL; stdcall;
+ TFun_CloseFigure = function(DC: HDC): BOOL; stdcall;
+ TFun_SelectClipPath = function(DC: HDC; Mode: Integer): BOOL; stdcall;
+ TFun_AbortPath = function(DC: HDC): BOOL; stdcall;
+ TFun_FrameRgn = function(DC: HDC; hrgn: HRGN; hbr: HBRUSH; Width, Height: Integer): BOOL; stdcall;
+ TFun_InvertRgn = function(DC: HDC; p2: HRGN): BOOL; stdcall;
+ TFun_MaskBlt = function(DestDC: HDC; XDest, YDest, Width, Height: Integer; SrcDC: HDC;
+ XScr, YScr: Integer; Mask: HBITMAP; xMask, yMask: Integer; Rop: DWORD): BOOL; stdcall;
+ TFun_GetTextMetricsA = function(DC: HDC; var TM: TTextMetricA): BOOL; stdcall;
+ TFun_GetTextMetricsW = function(DC: HDC; var TM: TTextMetricW): BOOL; stdcall;
+ TFun_GetTextExtentPoint32A = function(DC: HDC; Str: LPCSTR; Count: Integer; var Size: TSize): BOOL; stdcall;
+ TFun_GetTextExtentPoint32W = function(DC: HDC; Str: LPCWSTR; Count: Integer; var Size: TSize): BOOL; stdcall;
+ TFun_GdiComment = function(DC: HDC; p2: UINT; p3: LPSTR): BOOL; stdcall;
+ TFun_GetCharABCWidthsA = function(DC: HDC; FirstChar, LastChar: UINT; const ABCStructs): BOOL; stdcall;
+ TFun_GetCharABCWidthsW = function(DC: HDC; FirstChar, LastChar: UINT; const ABCStructs): BOOL; stdcall;
+ TFun_UpdateColors = function(DC: HDC): BOOL; stdcall;
+ TFun_OffsetViewportOrgEx = function(DC: HDC; X, Y: Integer; Points: PPoint): BOOL; stdcall;
+ TFun_OffsetWindowOrgEx = function(DC: HDC; X, Y: Integer; Points: PPoint): BOOL; stdcall;
+ TFun_OffsetWindowOrgEx2 = function(DC: HDC; X, Y: Integer; var Points): BOOL; stdcall;
+ TFun_SetDeviceGammaRamp = function(DC: HDC; var Ramp): BOOL; stdcall;
+ TFun_ColorMatchToTarget = function(DC: HDC; Target: HDC; Action: DWORD): BOOL; stdcall;
+ TFun_PtVisible = function(DC: HDC; X, Y: Integer): BOOL; stdcall;
+ TFun_RectVisible = function(DC: HDC; const Rect: TRect): BOOL; stdcall;
+ TFun_SetPixelFormat = function(DC: HDC; PixelFormat: Integer; FormatDef: PPixelFormatDescriptor): BOOL; stdcall;
+ TFun_SetStretchBltMode = function(DC: HDC; StretchMode: Integer): Integer; stdcall;
+ TFun_OffsetClipRgn = function(DC: HDC; XOffset, YOffset: Integer): Integer; stdcall;
+ TFun_IntersectClipRect = function(DC: HDC; X1, Y1, X2, Y2: Integer): Integer; stdcall;
+ TFun_SetTextCharacterExtra = function(DC: HDC; CharExtra: Integer): Integer; stdcall;
+ TFun_EnumICMProfilesA = function(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
+ TFun_EnumICMProfilesW = function(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
+ TFun_ExtEscape = function(DC: HDC; p2, p3: Integer; const p4: LPCSTR; p5: Integer; p6: LPSTR): Integer; stdcall;
+ TFun_EnumFontsA = function(DC: HDC; lpszFace: LPCSTR; fntenmprc: TFNFontEnumProcA; lParam: LPARAM): Integer; stdcall;
+ TFun_EnumFontsW = function(DC: HDC; lpszFace: LPCWSTR; fntenmprc: TFNFontEnumProcW; lParam: LPARAM): Integer; stdcall;
+ TFun_EnumFontFamiliesA = function(DC: HDC; p2: LPCSTR; p3: TFNFontEnumProcA; p4: LPARAM): Integer; stdcall;
+ TFun_EnumFontFamiliesW = function(DC: HDC; p2: LPCWSTR; p3: TFNFontEnumProcW; p4: LPARAM): Integer; stdcall;
+ TFun_CreateCompatibleDC = function(DC: HDC): HDC; stdcall;
+ TFun_CreateCompatibleBitmap = function(DC: HDC; Width, Height: Integer): HBITMAP; stdcall;
+ TFun_SetMetaRgn = function(DC: HDC): Integer; stdcall;
+ TFun_PlayEnhMetaFile = function(DC: HDC; p2: HENHMETAFILE; const p3: TRect): BOOL; stdcall;
+ TFun_PlayEnhMetaFileRecord = function(DC: HDC; var p2: THandleTable; const p3: TEnhMetaRecord; p4: UINT): BOOL; stdcall;
+///////////////////////////////////
+
+ TFun_SetPixel = function(DC: HDC; X, Y: Integer; Color: COLORREF): COLORREF; stdcall;
+ TFun_SetPixelV = function(DC: HDC; X, Y: Integer; Color: COLORREF): BOOL; stdcall;
+ TFun_LineTo = function(DC: HDC; X, Y: Integer): BOOL; stdcall;
+ TFun_PlgBlt = function(DestDC: HDC; const PointsArray; SrcDC: HDC;
+ XSrc, YSrc, Width, Height: Integer; Mask: HBITMAP; xMask, yMask: Integer): BOOL; stdcall; // 추가 25_1001 10:43:39 kku
+ TFun_PatBlt = function(DC: HDC; X, Y, Width, Height: Integer; Rop: DWORD): BOOL; stdcall; // 추가 25_1001 10:43:39 kku
+ TFun_MoveToEx = function(DC: HDC; p2, p3: Integer; p4: PPoint): BOOL; stdcall;
+ TFun_PolyBezierTo = function(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
+ TFun_PolyLineTo = function(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
+ TFun_PolyDraw = function(DC: HDC; const Points, Types; cCount: Integer): BOOL; stdcall;
+ TFun_Polygon = function(DC: HDC; const Points; Count: Integer): BOOL; stdcall;
+ TFun_Polyline = function(DC: HDC; const Points; Count: Integer): BOOL; stdcall;
+ TFun_PolyBezier = function(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
+ TFun_Rectangle = function(DC: HDC; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
+ TFun_RoundRect = function(DC: HDC; X1, Y1, X2, Y2, X3, Y3: Integer): BOOL; stdcall;
+ TFun_BeginPath = function(DC: HDC): BOOL; stdcall;
+ TFun_EndPath = function(DC: HDC): BOOL; stdcall;
+ TFun_FillPath = function(DC: HDC): BOOL; stdcall;
+ TFun_FlattenPath = function(DC: HDC): BOOL; stdcall;
+ TFun_WidenPath = function(DC: HDC): BOOL; stdcall;
+ TFun_StrokePath = function(DC: HDC): BOOL; stdcall;
+ TFun_StrokeAndFillPath = function(DC: HDC): BOOL; stdcall;
+ TFun_SetDCBrushColor = function(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+ TFun_SetDCPenColor = function(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+ TFun_SetDIBColorTable = function(DC: HDC; p2, p3: UINT; var RGBQuadSTructs): UINT; stdcall;
+ TFun_SetTextAlign = function(DC: HDC; Flags: UINT): UINT; stdcall;
+ TFun_SetBkModeHook = function(DC: HDC; BkMode: Integer): Integer; stdcall; // 추가 25_1001 10:43:39 kku
+ TFun_GradientFill = function(DC: HDC; Vertex: PTriVertex; NumVertex: ULONG; Mesh: Pointer; NumMesh, Mode: ULONG): BOOL; stdcall;
+ TFun_FillRect = function(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
+ TFun_FrameRect = function(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
+ TFun_ExtFloodFill = function(DC: HDC; X, Y: Integer; Color: COLORREF; FillType: UINT): BOOL; stdcall;
+ TFun_FloodFill = function(DC: HDC; nXStart, nYStart: Integer; crFill: COLORREF): BOOL; stdcall;
+ TFun_FillRgn = function(DC: HDC; hrgn: HRGN; hbr: HBRUSH): BOOL; stdcall;
+ TFun_SetPolyFillMode = function(DC: HDC; PolyFillMode: Integer): Integer; stdcall;
+ TFun_DrawEscape = function(DC: HDC; p2, p3: Integer; p4: LPCSTR): BOOL; stdcall;
+ TFun_PaintRgn = function(DC: HDC; RGN: HRGN): BOOL; stdcall;
+ TFun_SetColorAdjustment = function(DC: HDC; const p2: TColorAdjustment): BOOL; stdcall;
+ TFun_SetArcDirection = function(DC: HDC; Direction: Integer): Integer; stdcall;
+ TFun_SetViewportExtEx = function(DC: HDC; XExt, YExt: Integer; Size: PSize): BOOL; stdcall;
+ TFun_SetViewportOrgEx = function(DC: HDC; X, Y: Integer; Point: PPoint): BOOL; stdcall;
+ TFun_ScaleViewportExtEx = function(DC: HDC; XM, XD, YM, YD: Integer; Size: PSize): BOOL; stdcall; // 추가 25_1001 10:43:39 kku
+ TFun_SetWindowExtEx = function(DC: HDC; XExt, YExt: Integer; Size: PSize): BOOL; stdcall;
+ TFun_SelectClipRgn = function(DC: HDC; Region: HRGN): Integer; stdcall;
+ TFun_ExtSelectClipRgn = function(DC: HDC; Region: HRGN; Mode: Integer): Integer; stdcall; // 추가 25_1001 10:43:39 kku
+ TFun_SetICMMode = function(DC: HDC; Mode: Integer): Integer; stdcall;
+ TFun_SetColorSpace = function(DC: HDC; ColorSpace: HCOLORSPACE): BOOL; stdcall;
+ TFun_SaveDC = function(DC: HDC): Integer; stdcall;
+ TFun_AngleArc = function(DC: HDC; p2, p3: Integer; p4: DWORD; p5, p6: Single): BOOL; stdcall;
+ TFun_ArcTo = function(DC: HDC; RLeft, RTop, RRight, RBottom: Integer; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
+ TFun_PolyPolyline = function(DC: HDC; const PointStructs; const Points; p4: DWORD): BOOL; stdcall;
+ TFun_Ellipse = function(DC: HDC; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
+ TFun_LPtoDP = function(DC: HDC; Points: PPoint; Count: Integer): BOOL; stdcall; // 추가 25_1001 10:43:39 kku
+ TFun_DPtoLP = function(DC: HDC; Points: PPoint; Count: Integer): BOOL; stdcall; // 추가 25_1001 10:43:39 kku
+ TFun_SelectObject = function(DC: HDC; p2: HGDIOBJ): HGDIOBJ; stdcall; // 추가 25_1001 10:43:39 kku
+ TFun_Chord = function(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): BOOL; stdcall;
+ TFun_Arc = function(hDC: HDC; left, top, right, bottom, startX, startY, endX, endY: Integer): BOOL; stdcall;
+ TFun_Pie = function(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): BOOL; stdcall;
+ TFun_PolyPolygon = function(DC: HDC; var Points; var nPoints; p4: Integer): BOOL; stdcall;
+ TFun_ExtTextOutA = function(DC: HDC; X, Y: Integer; Options: Longint;
+ Rect: PRect; Str: LPCSTR; Count: Longint; Dx: PInteger): BOOL; stdcall;
+ TFun_ExtTextOutW = function(DC: HDC; X, Y: Integer; Options: Longint;
+ Rect: PRect; Str: LPCWSTR; Count: Longint; Dx: PInteger): BOOL; stdcall;
+
+ TFun_DrawTextA = function(hDC: HDC; lpString: LPCSTR; nCount: Integer;
+ var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+ TFun_DrawTextW = function(hDC: HDC; lpString: LPCWSTR; nCount: Integer;
+ var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+ TFun_DrawTextExA = function(DC: HDC; lpchText: LPCSTR; cchText: Integer; var p4: TRect;
+ dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+ TFun_DrawTextExW = function(DC: HDC; lpchText: LPCWSTR; cchText: Integer; var p4: TRect;
+ dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+ TFun_TextOutA = function(DC: HDC; X, Y: Integer; Str: LPCSTR; Count: Integer): BOOL; stdcall;
+ TFun_TextOutW = function(DC: HDC; X, Y: Integer; Str: LPCWSTR; Count: Integer): BOOL; stdcall;
+ TFun_PolyTextOutA = function(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+ TFun_PolyTextOutW = function(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+ TFun_TabbedTextOutA = function(hDC: HDC; X, Y: Integer; lpString: LPCSTR; nCount, nTabPositions: Integer;
+ var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+ TFun_TabbedTextOutW = function(hDC: HDC; X, Y: Integer; lpString: LPCWSTR; nCount, nTabPositions: Integer;
+ var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+
+function BitBltHook(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC;
+ XSrc, YSrc: Integer; Rop: DWORD): BOOL; stdcall;
+function StretchBltHook(DestDC: HDC; X, Y, SrcWidth, SrcHeight: Integer; SrcDC: HDC;
+ XSrc, YSrc, DestWidth, DestHeight: Integer; Rop: DWORD): BOOL; stdcall;
+function TransparentBltHook(DestDC: HDC; X, Y, DestWidth, DestHeight: Integer; SrcDC: HDC;
+ XSrc, YSrc, SrcWidth, SrcHeight: Integer; dwTransparent: DWORD): BOOL; stdcall;
+function StretchDIBitsHook(DC: HDC; DestX, DestY, DestWidth, DestHeight, SrcX,
+ SrcY, SrcWidth, SrcHeight: Integer; Bits: Pointer; var BitsInfo: TBitmapInfo;
+ Usage: UINT; Rop: DWORD): Integer; stdcall;
+function SetDIBitsToDeviceHook(DC: HDC; DestX, DestY: Integer; Width, Height: DWORD;
+ SrcX, SrcY: Integer; nStartScan, NumScans: UINT; Bits: Pointer;
+ var BitsInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
+function SetDIBitsHook(DC: HDC; Bitmap: HBITMAP; StartScan, NumScans: UINT;
+ Bits: Pointer; var BitsInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
+function SetROP2Hook(DC: HDC; p2: Integer): Integer; stdcall;
+function SetMapperFlagsHook(DC: HDC; Flag: DWORD): DWORD; stdcall;
+function SetMapModeHook(DC: HDC; p2: Integer): Integer; stdcall;
+function SetWindowOrgExHook(DC: HDC; X, Y: Integer; Point: PPoint): BOOL; stdcall;
+function SetWorldTransformHook(DC: HDC; const p2: PXForm): BOOL; stdcall;
+function SetGraphicsModeHook(hdc: HDC; iMode: Integer): Integer; stdcall;
+function ModifyWorldTransformHook(DC: HDC; const p2: PXForm; p3: DWORD): BOOL; stdcall;
+function SelectPaletteHook(DC: HDC; Palette: HPALETTE; ForceBackground: Bool): HPALETTE; stdcall;
+function SetBkColorHook(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+function SetBrushOrgExHook(DC: HDC; X, Y: Integer; PrevPt: PPoint): BOOL; stdcall;
+function ExcludeClipRectHook(DC: HDC; LeftRect, TopRect, RightRect, BottomRect: Integer): Integer; stdcall;
+function SetTextColorHook(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+function CreateHalftonePaletteHook(DC: HDC): HPALETTE; stdcall;
+function CreateDIBSectionHook(DC: HDC; const p2: TBitmapInfo; p3: UINT;
+ var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; stdcall;
+function SetBoundsRectHook(DC: HDC; p2: PRect; p3: UINT): UINT; stdcall;
+function SetSystemPaletteUseHook(DC: HDC; p2: UINT): UINT; stdcall;
+function GetTextCharsetInfoHook(hdc: HDC; lpSig: PFontSignature; dwFlags: DWORD): Integer; stdcall;
+function RealizePaletteHook(DC: HDC): UINT; stdcall;
+function GetGlyphIndicesAHook(DC: HDC; p2: LPCSTR; p3: Integer; p4: PWORD; p5: DWORD): DWORD; stdcall;
+function GetGlyphIndicesWHook(DC: HDC; p2: LPCWSTR; p3: Integer; p4: PWORD; p5: DWORD): DWORD; stdcall;
+function GetFontLanguageInfoHook(DC: HDC): DWORD; stdcall;
+function GetCharacterPlacementAHook(DC: HDC; p2: LPCSTR; p3, p4: Integer;
+ var p5: TGCPResultsA; p6: DWORD): DWORD; stdcall;
+function GetCharacterPlacementWHook(DC: HDC; p2: LPCWSTR; p3, p4: Integer;
+ var p5: TGCPResultsW; p6: DWORD): DWORD; stdcall;
+function GetFontDataHook(DC: HDC; p2, p3: DWORD; p4: Pointer; p5: DWORD): DWORD; stdcall;
+function GetGlyphOutlineAHook(DC: HDC; uChar, uFormat: UINT;
+ const lpgm: TGlyphMetrics; cbBuffer: DWORD; lpvBuffer: Pointer; const lpmat2: TMat2): DWORD; stdcall;
+function GetGlyphOutlineWHook(DC: HDC; uChar, uFormat: UINT;
+ const lpgm: TGlyphMetrics; cbBuffer: DWORD; lpvBuffer: Pointer; const lpmat2: TMat2): DWORD; stdcall;
+function ResetDCAHook(DC: HDC; const InitData: TDeviceModeA): HDC; stdcall;
+function ResetDCWHook(DC: HDC; const InitData: TDeviceModeW): HDC; stdcall;
+function ColorCorrectPaletteHook(DC: HDC; p2: HPALETTE; p3, p4: DWORD): BOOL; stdcall;
+function SetICMProfileAHook(DC: HDC; Name: LPSTR): BOOL; stdcall;
+function SetICMProfileWHook(DC: HDC; Name: LPWSTR): BOOL; stdcall;
+function AlphaBlendHook(DC: HDC; p2, p3, p4, p5: Integer; DC6: HDC; p7, p8, p9, p10: Integer; p11: TBlendFunction): BOOL; stdcall;
+function SetTextJustificationHook(DC: HDC; BreakExtra, BreakCount: Integer): Integer; stdcall;
+function ScaleWindowExtExHook(DC: HDC; XM, XD, YM, YD: Integer; Size: PSize): BOOL; stdcall;
+function SetMiterLimitHook(DC: HDC; NewLimit: Single; OldLimit: PSingle): BOOL; stdcall;
+function CloseFigureHook(DC: HDC): BOOL; stdcall;
+function SelectClipPathHook(DC: HDC; Mode: Integer): BOOL; stdcall;
+function AbortPathHook(DC: HDC): BOOL; stdcall;
+function FrameRgnHook(DC: HDC; hrgn: HRGN; hbr: HBRUSH; Width, Height: Integer): BOOL; stdcall;
+function InvertRgnHook(DC: HDC; p2: HRGN): BOOL; stdcall;
+function MaskBltHook(DestDC: HDC; XDest, YDest, Width, Height: Integer; SrcDC: HDC;
+ XScr, YScr: Integer; Mask: HBITMAP; xMask, yMask: Integer; Rop: DWORD): BOOL; stdcall;
+function GetTextMetricsAHook(DC: HDC; var TM: TTextMetricA): BOOL; stdcall;
+function GetTextMetricsWHook(DC: HDC; var TM: TTextMetricW): BOOL; stdcall;
+function GetTextExtentPoint32AHook(DC: HDC; Str: LPCSTR; Count: Integer; var Size: TSize): BOOL; overload; stdcall;
+function GetTextExtentPoint32WHook(DC: HDC; Str: LPCWSTR; Count: Integer; var Size: TSize): BOOL; overload; stdcall;
+function GdiCommentHook(DC: HDC; p2: UINT; p3: LPSTR): BOOL; stdcall;
+function GetCharABCWidthsAHook(DC: HDC; FirstChar, LastChar: UINT; const ABCStructs): BOOL; stdcall;
+function GetCharABCWidthsWHook(DC: HDC; FirstChar, LastChar: UINT; const ABCStructs): BOOL; stdcall;
+function UpdateColorsHook(DC: HDC): BOOL; stdcall;
+function OffsetViewportOrgExHook(DC: HDC; X, Y: Integer; Points: PPoint): BOOL; stdcall;
+function OffsetWindowOrgExHook(DC: HDC; X, Y: Integer; Points: PPoint): BOOL; stdcall;
+function SetDeviceGammaRampHook(DC: HDC; var Ramp): BOOL; stdcall;
+function ColorMatchToTargetHook(DC: HDC; Target: HDC; Action: DWORD): BOOL; stdcall;
+function PtVisibleHook(DC: HDC; X, Y: Integer): BOOL; stdcall;
+function RectVisibleHook(DC: HDC; const Rect: TRect): BOOL; stdcall;
+function SetPixelFormatHook(DC: HDC; PixelFormat: Integer; FormatDef: PPixelFormatDescriptor): BOOL; stdcall;
+function SetStretchBltModeHook(DC: HDC; StretchMode: Integer): Integer; stdcall;
+function OffsetClipRgnHook(DC: HDC; XOffset, YOffset: Integer): Integer; stdcall;
+function IntersectClipRectHook(DC: HDC; X1, Y1, X2, Y2: Integer): Integer; stdcall;
+function SetTextCharacterExtraHook(DC: HDC; CharExtra: Integer): Integer; stdcall;
+function EnumICMProfilesAHook(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
+function EnumICMProfilesWHook(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
+function ExtEscapeHook(DC: HDC; p2, p3: Integer; const p4: LPCSTR; p5: Integer; p6: LPSTR): Integer; stdcall;
+function EnumFontsAHook(DC: HDC; lpszFace: LPCSTR; fntenmprc: TFNFontEnumProcA; lParam: LPARAM): Integer; stdcall;
+function EnumFontsWHook(DC: HDC; lpszFace: LPCWSTR; fntenmprc: TFNFontEnumProcW; lParam: LPARAM): Integer; stdcall;
+function EnumFontFamiliesAHook(DC: HDC; p2: LPCSTR; p3: TFNFontEnumProcA; p4: LPARAM): Integer; stdcall;
+function EnumFontFamiliesWHook(DC: HDC; p2: LPCWSTR; p3: TFNFontEnumProcW; p4: LPARAM): Integer; stdcall;
+function CreateCompatibleDCHook(DC: HDC): HDC; stdcall;
+function CreateCompatibleBitmapHook(DC: HDC; Width, Height: Integer): HBITMAP; stdcall;
+function SetMetaRgnHook(DC: HDC): Integer; stdcall;
+function PlayEnhMetaFileHook(DC: HDC; p2: HENHMETAFILE; const p3: TRect): BOOL; stdcall;
+function PlayEnhMetaFileRecordHook(DC: HDC; var p2: THandleTable; const p3: TEnhMetaRecord; p4: UINT): BOOL; stdcall;
+function SetPixelHook(DC: HDC; X, Y: Integer; Color: COLORREF): COLORREF; stdcall;
+function SetPixelVHook(DC: HDC; X, Y: Integer; Color: COLORREF): BOOL; stdcall;
+function LineToHook(DC: HDC; X, Y: Integer): BOOL; stdcall;
+function PlgBltHook(DestDC: HDC; const PointsArray; SrcDC: HDC;
+ XSrc, YSrc, Width, Height: Integer; Mask: HBITMAP; xMask, yMask: Integer): BOOL; stdcall;
+function PatBltHook(DC: HDC; X, Y, Width, Height: Integer; Rop: DWORD): BOOL; stdcall;
+function MoveToExHook(DC: HDC; p2, p3: Integer; p4: PPoint): BOOL; stdcall;
+function PolyBezierToHook(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
+function PolyLineToHook(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
+function PolyDrawHook(DC: HDC; const Points, Types; cCount: Integer): BOOL; stdcall;
+function PolygonHook(DC: HDC; const Points; Count: Integer): BOOL; stdcall;
+function PolylineHook(DC: HDC; const Points; Count: Integer): BOOL; stdcall;
+function PolyBezierHook(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
+function RectangleHook(DC: HDC; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
+function RoundRectHook(DC: HDC; X1, Y1, X2, Y2, X3, Y3: Integer): BOOL; stdcall;
+function BeginPathHook(DC: HDC): BOOL; stdcall;
+function EndPathHook(DC: HDC): BOOL; stdcall;
+function FillPathHook(DC: HDC): BOOL; stdcall;
+function FlattenPathHook(DC: HDC): BOOL; stdcall;
+function WidenPathHook(DC: HDC): BOOL; stdcall;
+function StrokePathHook(DC: HDC): BOOL; stdcall;
+function StrokeAndFillPathHook(DC: HDC): BOOL; stdcall;
+function SetDCBrushColorHook(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+function SetDCPenColorHook(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+function SetDIBColorTableHook(DC: HDC; p2, p3: UINT; var RGBQuadSTructs): UINT; stdcall;
+function SetTextAlignHook(DC: HDC; Flags: UINT): UINT; stdcall;
+function SetBkModeHook(DC: HDC; BkMode: Integer): Integer; stdcall;
+function GradientFillHook(DC: HDC; Vertex: PTriVertex; NumVertex: ULONG; Mesh: Pointer; NumMesh, Mode: ULONG): BOOL; stdcall;
+function FillRectHook(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
+function FrameRectHook(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
+function ExtFloodFillHook(DC: HDC; X, Y: Integer; Color: COLORREF; FillType: UINT): BOOL; stdcall;
+function FloodFillHook(DC: HDC; X, Y: Integer; Color: COLORREF; FillType: UINT): BOOL; stdcall;
+function FillRgnHook(DC: HDC; hrgn: HRGN; hbr: HBRUSH): BOOL; stdcall;
+function SetPolyFillModeHook(DC: HDC; PolyFillMode: Integer): Integer; stdcall;
+function DrawEscapeHook(DC: HDC; p2, p3: Integer; p4: LPCSTR): BOOL; stdcall;
+function PaintRgnHook(DC: HDC; RGN: HRGN): BOOL; stdcall;
+function SetColorAdjustmentHook(DC: HDC; const p2: TColorAdjustment): BOOL; stdcall;
+function SetArcDirectionHook(DC: HDC; Direction: Integer): Integer; stdcall;
+function SetViewportExtExHook(DC: HDC; XExt, YExt: Integer; Size: PSize): BOOL; stdcall;
+function SetViewportOrgExHook(DC: HDC; X, Y: Integer; Point: PPoint): BOOL; stdcall;
+function ScaleViewportExtExHook(DC: HDC; XM, XD, YM, YD: Integer; Size: PSize): BOOL; stdcall;
+function SetWindowExtExHook(DC: HDC; XExt, YExt: Integer; Size: PSize): BOOL; stdcall;
+function SelectClipRgnHook(DC: HDC; Region: HRGN): Integer; stdcall;
+function ExtSelectClipRgnHook(DC: HDC; Region: HRGN; Mode: Integer): Integer; stdcall;
+function SetICMModeHook(DC: HDC; Mode: Integer): Integer; stdcall;
+function SetColorSpaceHook(DC: HDC; ColorSpace: HCOLORSPACE): BOOL; stdcall;
+function SaveDCHook(DC: HDC): Integer; stdcall;
+function RestoreDCHook(DC: HDC; SavedDC: Integer): BOOL; stdcall;
+function AngleArcHook(DC: HDC; p2, p3: Integer; p4: DWORD; p5, p6: Single): BOOL; stdcall;
+function ArcToHook(DC: HDC; RLeft, RTop, RRight, RBottom: Integer; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
+function PolyPolylineHook(DC: HDC; const PointStructs; const Points; p4: DWORD): BOOL; stdcall;
+function EllipseHook(DC: HDC; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
+function LPtoDPHook(DC: HDC; Points: PPoint; Count: Integer): BOOL; stdcall;
+function DPtoLPHook(DC: HDC; Points: PPoint; Count: Integer): BOOL; stdcall;
+function SelectObjectHook(DC: HDC; p2: HGDIOBJ): HGDIOBJ; stdcall;
+function ChordHook(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): BOOL; stdcall;
+function ArcHook(hDC: HDC; left, top, right, bottom, startX, startY, endX, endY: Integer): BOOL; stdcall;
+function PieHook(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): BOOL; stdcall;
+function PolyPolygonHook(DC: HDC; var Points; var nPoints; p4: Integer): BOOL; stdcall;
+
+function ExtTextOutAHook(DC: HDC; X, Y: Integer; Options: Longint;
+ const Rect: PRect; Str: LPCSTR; Count: Longint; const Dx: PInteger): BOOL; stdcall;
+function ExtTextOutWHook(DC: HDC; X, Y: Integer; Options: Longint;
+ const Rect: PRect; Str: LPCWSTR; Count: Longint; const Dx: PInteger): BOOL; stdcall;
+
+function DrawTextAHook(hDC: HDC; lpString: LPCSTR; nCount: Integer;
+ var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+function DrawTextWHook(hDC: HDC; lpString: LPCWSTR; nCount: Integer;
+ var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+function DrawTextExAHook(DC: HDC; lpchText: LPCSTR; cchText: Integer; var p4: TRect;
+ dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+function DrawTextExWHook(DC: HDC; lpchText: LPCWSTR; cchText: Integer; var p4: TRect;
+ dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+function TextOutAHook(DC: HDC; X, Y: Integer; Str: LPCSTR; Count: Integer): BOOL; stdcall;
+function TextOutWHook(DC: HDC; X, Y: Integer; Str: LPCWSTR; Count: Integer): BOOL; stdcall;
+function PolyTextOutAHook(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+function PolyTextOutWHook(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+function TabbedTextOutAHook(hDC: HDC; X, Y: Integer; lpString: LPCSTR; nCount, nTabPositions: Integer;
+ var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+function TabbedTextOutWHook(hDC: HDC; X, Y: Integer; lpString: LPCWSTR; nCount, nTabPositions: Integer;
+ var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+
+function CreateCopyDC(aPrtDC: HDC; sDocName: String; nPageIdx: Integer): HDC;
+procedure DeleteCopyDC;
+
+var
+ ozBitBlt: TFun_BitBlt = nil;
+ ozStretchBlt: TFun_StretchBlt = nil;
+ ozTransparentBlt: TFun_TransparentBlt = nil;
+ ozStretchDIBits: TFun_StretchDIBits = nil;
+ ozSetDIBitsToDevice: TFun_SetDIBitsToDevice = nil;
+ ozSetDIBits: TFun_SetDIBits = nil;
+ ozSetROP2: TFun_SetROP2 = nil;
+ ozSetMapperFlags: TFun_SetMapperFlags = nil;
+ ozSetGraphicsMode: TFun_SetGraphicsMode = nil;
+ ozSetMapMode: TFun_SetMapMode = nil;
+ ozSetWindowOrgEx: TFun_SetWindowOrgEx = nil;
+ ozModifyWorldTransform: TFun_ModifyWorldTransform = nil;
+ ozSelectPalette: TFun_SelectPalette = nil;
+ ozSetBkColor: TFun_SetBkColor = nil;
+ ozSetBrushOrgEx: TFun_SetBrushOrgEx = nil;
+ ozSetWorldTransform: TFun_SetWorldTransform = nil;
+ ozExcludeClipRect: TFun_ExcludeClipRect = nil;
+ ozSetTextColor: TFun_SetTextColor = nil;
+ ozCreateHalftonePalette: TFun_CreateHalftonePalette = nil;
+ ozCreateDIBSection: TFun_CreateDIBSection = nil;
+ ozSetBoundsRect: TFun_SetBoundsRect = nil;
+ ozSetSystemPaletteUse: TFun_SetSystemPaletteUse = nil;
+ ozGetTextCharsetInfo: TFun_GetTextCharsetInfo = nil;
+ ozRealizePalette: TFun_RealizePalette = nil;
+ ozGetGlyphIndicesA: TFun_GetGlyphIndicesA = nil;
+ ozGetGlyphIndicesW: TFun_GetGlyphIndicesW = nil;
+ ozGetFontLanguageInfo: TFun_GetFontLanguageInfo = nil;
+ ozGetCharacterPlacementA: TFun_GetCharacterPlacementA = nil;
+ ozGetCharacterPlacementW: TFun_GetCharacterPlacementW = nil;
+ ozGetFontData: TFun_GetFontData = nil;
+ ozGetGlyphOutlineA: TFun_GetGlyphOutlineA = nil;
+ ozGetGlyphOutlineW: TFun_GetGlyphOutlineW = nil;
+ ozResetDCA: TFun_ResetDCA = nil;
+ ozResetDCW: TFun_ResetDCW = nil;
+ ozColorCorrectPalette: TFun_ColorCorrectPalette = nil;
+ ozSetICMProfileA: TFun_SetICMProfileA = nil;
+ ozSetICMProfileW: TFun_SetICMProfileW = nil;
+ ozAlphaBlend: TFun_AlphaBlend = nil;
+ ozSetTextJustification: TFun_SetTextJustification = nil;
+ ozScaleWindowExtEx: TFun_ScaleWindowExtEx = nil;
+ ozRestoreDC: TFun_RestoreDC = nil;
+ ozSetMiterLimit: TFun_SetMiterLimit = nil;
+ ozCloseFigure: TFun_CloseFigure = nil;
+ ozSelectClipPath: TFun_SelectClipPath = nil;
+ ozAbortPath: TFun_AbortPath = nil;
+ ozFrameRgn: TFun_FrameRgn = nil;
+ ozInvertRgn: TFun_InvertRgn = nil;
+ ozMaskBlt: TFun_MaskBlt = nil;
+ ozGetTextMetricsA: TFun_GetTextMetricsA = nil;
+ ozGetTextMetricsW: TFun_GetTextMetricsW = nil;
+ ozGetTextExtentPoint32A: TFun_GetTextExtentPoint32A = nil;
+ ozGetTextExtentPoint32W: TFun_GetTextExtentPoint32W = nil;
+ ozGdiComment: TFun_GdiComment = nil;
+ ozGetCharABCWidthsA: TFun_GetCharABCWidthsA = nil;
+ ozGetCharABCWidthsW: TFun_GetCharABCWidthsW = nil;
+ ozUpdateColors: TFun_UpdateColors = nil;
+ ozOffsetViewportOrgEx: TFun_OffsetViewportOrgEx = nil;
+ ozOffsetWindowOrgEx: TFun_OffsetWindowOrgEx = nil;
+ ozOffsetWindowOrgEx2: TFun_OffsetWindowOrgEx2 = nil;
+ ozSetDeviceGammaRamp: TFun_SetDeviceGammaRamp = nil;
+ ozColorMatchToTarget: TFun_ColorMatchToTarget = nil;
+ ozPtVisible: TFun_PtVisible = nil;
+ ozRectVisible: TFun_RectVisible = nil;
+ ozSetPixelFormat: TFun_SetPixelFormat = nil;
+ ozSetStretchBltMode: TFun_SetStretchBltMode = nil;
+ ozOffsetClipRgn: TFun_OffsetClipRgn = nil;
+ ozIntersectClipRect: TFun_IntersectClipRect = nil;
+ ozSetTextCharacterExtra: TFun_SetTextCharacterExtra = nil;
+ ozEnumICMProfilesA: TFun_EnumICMProfilesA = nil;
+ ozEnumICMProfilesW: TFun_EnumICMProfilesW = nil;
+ ozExtEscape: TFun_ExtEscape = nil;
+ ozEnumFontsA: TFun_EnumFontsA = nil;
+ ozEnumFontsW: TFun_EnumFontsW = nil;
+ ozEnumFontFamiliesA: TFun_EnumFontFamiliesA = nil;
+ ozEnumFontFamiliesW: TFun_EnumFontFamiliesW = nil;
+ ozCreateCompatibleDC: TFun_CreateCompatibleDC = nil;
+ ozCreateCompatibleBitmap: TFun_CreateCompatibleBitmap = nil;
+ ozSetMetaRgn: TFun_SetMetaRgn = nil;
+ ozPlayEnhMetaFile: TFun_PlayEnhMetaFile = nil;
+ ozPlayEnhMetaFileRecord: TFun_PlayEnhMetaFileRecord = nil;
+ ozSetPolyFillMode: TFun_SetPolyFillMode = nil;
+ ozSetPixel: TFun_SetPixel = nil;
+ ozSetPixelV: TFun_SetPixelV = nil;
+ ozLineTo: TFun_LineTo = nil;
+ ozPlgBlt: TFun_PlgBlt = nil;
+ ozPatBlt: TFun_PatBlt = nil;
+ ozMoveToEx: TFun_MoveToEx = nil;
+ ozPolyBezierTo: TFun_PolyBezierTo = nil;
+ ozPolyLineTo: TFun_PolyLineTo = nil;
+ ozPolyDraw: TFun_PolyDraw = nil;
+ ozPolygon: TFun_Polygon = nil;
+ ozPolyline: TFun_Polyline = nil;
+ ozPolyBezier: TFun_PolyBezier = nil;
+ ozRectangle: TFun_Rectangle = nil;
+ ozRoundRect: TFun_RoundRect = nil;
+ ozBeginPath: TFun_BeginPath = nil;
+ ozEndPath: TFun_EndPath = nil;
+ ozFillPath: TFun_FillPath = nil;
+ ozFlattenPath: TFun_FlattenPath = nil;
+ ozWidenPath: TFun_WidenPath = nil;
+ ozStrokePath: TFun_StrokePath = nil;
+ ozStrokeAndFillPath: TFun_StrokeAndFillPath = nil;
+ ozSetDCBrushColor: TFun_SetDCBrushColor = nil;
+ ozSetDCPenColor: TFun_SetDCPenColor = nil;
+ ozSetDIBColorTable: TFun_SetDIBColorTable = nil;
+ ozSetTextAlign: TFun_SetTextAlign = nil;
+ ozSetBkMode: TFun_SetBkModeHook = nil;
+ ozGradientFill: TFun_GradientFill = nil;
+ ozFillRect: TFun_FillRect = nil;
+ ozFrameRect: TFun_FrameRect = nil;
+ ozExtFloodFill: TFun_ExtFloodFill = nil;
+ ozFloodFill: TFun_FloodFill = nil;
+ ozFillRgn: TFun_FillRgn = nil;
+ ozDrawEscape: TFun_DrawEscape = nil;
+ ozPaintRgn: TFun_PaintRgn = nil;
+ ozSetColorAdjustment: TFun_SetColorAdjustment = nil;
+ ozSetArcDirection: TFun_SetArcDirection = nil;
+ ozSetViewportExtEx: TFun_SetViewportExtEx = nil;
+ ozSetViewportOrgEx: TFun_SetViewportOrgEx = nil;
+ ozScaleViewportExtEx: TFun_ScaleViewportExtEx = nil;
+ ozSetWindowExtEx: TFun_SetWindowExtEx = nil;
+ ozSelectClipRgn: TFun_SelectClipRgn = nil;
+ ozExtSelectClipRgn: TFun_ExtSelectClipRgn = nil;
+ ozSetICMMode: TFun_SetICMMode = nil;
+ ozSetColorSpace: TFun_SetColorSpace = nil;
+ ozSaveDC: TFun_SaveDC = nil;
+ ozAngleArc: TFun_AngleArc = nil;
+ ozArcTo: TFun_ArcTo = nil;
+ ozPolyPolyline: TFun_PolyPolyline = nil;
+ ozEllipse: TFun_Ellipse = nil;
+ ozLPtoDP: TFun_LPtoDP = nil;
+ ozDPtoLP: TFun_DPtoLP = nil;
+ ozSelectObject: TFun_SelectObject = nil;
+ ozChord: TFun_Chord = nil;
+ ozArc: TFun_Arc = nil;
+ ozPie: TFun_Pie = nil;
+ ozPolyPolygon: TFun_PolyPolygon = nil;
+ ozExtTextOutA: TFun_ExtTextOutA = nil;
+ ozExtTextOutW: TFun_ExtTextOutW = nil;
+
+ ozDrawTextA: TFun_DrawTextA = nil;
+ ozDrawTextW: TFun_DrawTextW = nil;
+ ozDrawTextExA: TFun_DrawTextExA = nil;
+ ozDrawTextExW: TFun_DrawTextExW = nil;
+ ozTextOutA: TFun_TextOutA = nil;
+ ozTextOutW: TFun_TextOutW = nil;
+ ozPolyTextOutA: TFun_PolyTextOutA = nil;
+ ozPolyTextOutW: TFun_PolyTextOutW = nil;
+ ozTabbedTextOutA: TFun_TabbedTextOutA = nil;
+ ozTabbedTextOutW: TFun_TabbedTextOutW = nil;
+
+// 출력물 수집을 위한 DC 25_0930 16:47:27 kku
+ _CopyDC: HDC = 0;
+ _PrtDC: HDC = 0;
+ _hNotepadFont: HFONT = 0;
+ _OldNotepadFont: HFONT = 0;
+ _sEmfPath: String = '';
+ _nTmp: Integer = 0;
+ _bSkipNextMWT: Boolean = false;
+
+implementation
+
+uses
+{$IFDEF _BS1HP_}
+ BS1Hook,
+{$ELSE}
+ AppHook,
+{$ENDIF}
+ Tocsg.Strings, Vcl.Imaging.pngimage, ApiHookPrint, AppCtrlDefine;
+
+function CreateCopyDC(aPrtDC: HDC; sDocName: String; nPageIdx: Integer): HDC;
+var
+ DC: HDC;
+ nPhyicalW, nPhyicalH,
+ nDevWmm, nDevHmm, nDevX, nDevY: Integer;
+ R: TRect;
+ hP, hOldP: HPEN;
+ hB, hOldB: HBRUSH;
+ OrgFont: TLogFont;
+ hCurFont: HFONT;
+begin
+ Result := 0;
+ try
+ if (gAppHook = nil) or (gAppHook.Helper = nil) then
+ exit;
+
+ if gAppHook.Helper.CtrlOpt.sPrtEmfOutDir = '' then
+ exit;
+
+ if not ForceDirectories(gAppHook.Helper.CtrlOpt.sPrtEmfOutDir) then
+ exit;
+
+ if _CopyDC <> 0 then
+ DeleteCopyDC;
+
+ hP := 0;
+ hOldP := 0;
+ hB := 0;
+ hOldB:= 0;
+ _nTmp := 0;
+ _bSkipNextMWT := false;
+
+ DC := CreateCompatibleDC(aPrtDC);
+
+ // 페이지 전체 픽셀 수(용지 포함)
+ nPhyicalW := GetDeviceCaps(DC, PHYSICALWIDTH);
+ nPhyicalH := GetDeviceCaps(DC, PHYSICALHEIGHT);
+
+ // 실제 출력 장치(모니터/프린터)의 논리적 해상도 (픽셀 단위)
+ nDevX := GetDeviceCaps(DC, HORZRES);
+ nDevY := GetDeviceCaps(DC, VERTRES);
+
+ // 출력 장치의 물리적 크기(mm 단위)
+ nDevWmm := GetDeviceCaps(DC, HORZSIZE);
+ nDevHmm := GetDeviceCaps(DC, VERTSIZE);
+
+ ZeroMemory(@R, SizeOf(R));
+ // nPhyicalW / nDevX : 한 픽셀이 차지하는 물리적 길이(장치 전체 폭에서 논리 폭으로 환산)
+ // nDevX * 100 : mm 단위를 0.01mm 단위로 바꿔줌
+
+ // 픽셀 기반 값(PHYSICALWIDTH, PHYSICALHEIGHT)을 실제 mm 단위로 변환한 뒤, 다시 0.01mm 단위로 정규화
+ // R을 "출력 장치의 실제 물리적 크기" 기준(0.01mm 단위) 좌표계로 정의하기 위해 계산
+ // 픽셀 좌표(nDevX, nDevY)를 그대로 쓰면 장치마다 크기가 달라지지만, 0.01mm 단위로 바꿔두면 장치에 무관하게 동일한 물리적 크기를 표현 가능
+ R.Right := (nPhyicalW * nDevWmm * 100) div nDevX;
+ R.Bottom := (nPhyicalH * nDevHmm * 100) div nDevY;
+
+ gAppHook.Log('CreateCopyDC() .. W=%d, H=%d, DX=%d, DY=%d, PW=%d, PH=%d',
+ [R.Right, R.Bottom, nDevX, nDevY, nPhyicalW, nPhyicalH]);
+
+ _sEmfPath := gAppHook.Helper.CtrlOpt.sPrtEmfOutDir + Format('%s-%.4d.em1', [sDocName, nPageIdx]); // 파수 DRM이 emf를 자동 암호화해버려서 em1로 변경 25_1111 09:09:58 kku
+// _CopyDC := CreateEnhMetaFile(DC, PChar(_sEmfPath), nil, 'BS1 Preview File');
+ _CopyDC := CreateEnhMetaFile(DC, nil, nil, 'BS1 Preview File'); // 파일로 한번에 저장하는 방식으로 변경 25_1013 14:38:04 kku
+ if _CopyDC <> 0 then
+ begin
+ _PrtDC := aPrtDC;
+ Result := _CopyDC;
+ DeleteDC(DC);
+
+ hP := CreatePen(PS_SOLID, 1, RGB(255, 255, 255));
+ hOldP := SelectObject(_CopyDC, hP);
+
+ hB := GetStockObject(WHITE_BRUSH);
+ hOldB := SelectObject(_CopyDC, hB);
+
+ Rectangle(_CopyDC, 0, 0, nDevX, nDevY);
+ SelectObject(_CopyDC, hOldP);
+ SelectObject(_CopyDC, hOldB);
+
+ if CompareText(gAppHook.Helper.AppName, 'notepad.exe') = 0 then
+ begin
+ gAppHook.Log('CreateCopyDC() .. Notepad Font change');
+ ZeroMemory(@OrgFont, SizeOf(OrgFont));
+ hCurFont := GetCurrentObject(aPrtDC, OBJ_FONT);
+ if hCurFont <> 0 then
+ begin
+ GetObject(hCurFont, SizeOf(LOGFONTW), @OrgFont);
+
+ gAppHook.Log('CreateCopyDC() .. Notepad OrgFont .. IfFaceName=%s, IfHeight=%d', [OrgFont.lfFaceName, OrgFont.lfHeight]);
+
+ _hNotepadFont := CreateFontIndirect(OrgFont);
+ if _hNotepadFont <> 0 then
+ _OldNotepadFont := SelectObject(_CopyDC, _hNotepadFont);
+ end;
+ end;
+
+ if hP <> 0 then
+ DeleteObject(hP);
+
+ gAppHook.Log('CreateCopyDC() .. OK')
+ end else begin
+ gAppHook.Log('CreateCopyDC() .. Fail .. CreateEnhMetaFile()');
+ end;
+ except
+// on E: Exception do
+// ETgException.TraceException(Self, E, 'Fail .. CreateMemDC()');
+ end;
+end;
+
+procedure EmfToPng(const sEmfPath, sPngPath: string;
+ TargetDPI: Integer = 96; Background: TColor = clWhite);
+var
+ mf: TMetafile;
+ bmp: TBitmap;
+ png: TPngImage;
+ nW, nH: Integer;
+begin
+ mf := TMetafile.Create;
+ try
+ mf.LoadFromFile(sEmfPath);
+
+ // TMetafile.MMWidth/MMHeight는 0.01mm 단위
+ if (mf.MMWidth = 0) or (mf.MMHeight = 0) then
+ raise Exception.Create('유효하지 않은 EMF 크기입니다.');
+
+ nW := MulDiv(mf.MMWidth, TargetDPI, 2540); // 2540 = 25.4(mm) * 100
+ nH := MulDiv(mf.MMHeight, TargetDPI, 2540);
+
+ bmp := TBitmap.Create;
+ try
+ bmp.SetSize(nW, nH);
+ bmp.PixelFormat := pf24bit;
+ bmp.Canvas.Brush.Color := Background;
+ bmp.Canvas.FillRect(Rect(0, 0, nW, nH));
+
+ // 간단히 벡터를 래스터로 그려 넣기
+ bmp.Canvas.StretchDraw(Rect(0, 0, nW, nH), mf);
+
+ png := TPngImage.Create;
+ try
+ png.Assign(bmp);
+ png.SaveToFile(sPngPath);
+ finally
+ png.Free;
+ end;
+ finally
+ bmp.Free;
+ end;
+ finally
+ mf.Free;
+ end;
+end;
+
+procedure DeleteCopyDC;
+var
+ hEmf, hEmfCopy: HENHMETAFILE;
+ i: Integer;
+begin
+ if _CopyDC = 0 then
+ exit;
+
+ hEmf := CloseEnhMetaFile(_CopyDC);
+ hEmfCopy := CopyEnhMetaFile(hEmf, PChar(_sEmfPath)); // 파일로 한번에 저장하는 방식으로 변경 25_1013 14:38:04 kku
+ if hEmfCopy <> 0 then
+ DeleteEnhMetaFile(hEmfCopy);
+ if hEmf <> 0 then
+ begin
+ DeleteEnhMetaFile(hEmf);
+ if FileExists(_sEmfPath) then
+ begin
+ {$IFNDEF _BS1HP_}
+ try
+ EmfToPng(_sEmfPath, _sEmfPath + '.png', 600, clWhite);
+ except
+
+ end;
+ {$ENDIF}
+ _sEmfPath := '';
+ end;
+ end else
+ gAppHook.Log('DeleteMemDC() .. Fail Error=%d', [GetLastError]);
+
+ if _hNotepadFont <> 0 then
+ begin
+ DeleteObject(_hNotepadFont);
+ _hNotepadFont := 0;
+ end;
+
+ DeleteDC(_CopyDC);
+ _CopyDC := 0;
+ _PrtDC := 0;
+// GdiFlush;
+end;
+
+function IsAblePrintDrawCopy(aPrtDC: HDC): Boolean;
+begin
+ Result := (_CopyDC <> 0) and (_PrtDC = aPrtDC) and not gPrtWatering;
+end;
+
+function BitBltHook(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC;
+ XSrc, YSrc: Integer; Rop: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DestDC) then
+ begin
+// gAppHook.Log(Format('BitBltHook() .. X=%d, Y=%d, Width=%d, Height=%d', [X, Y, Width, Height]));
+ try
+ ozBitBlt(_CopyDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, Rop);
+ except
+ on E: Exception do
+ gAppHook.Log('Fail .. BitBltHook() .. ' + E.Message);
+ end;
+ end;
+
+ Result := ozBitBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, Rop);
+end;
+
+function StretchBltHook(DestDC: HDC; X, Y, SrcWidth, SrcHeight: Integer; SrcDC: HDC;
+ XSrc, YSrc, DestWidth, DestHeight: Integer; Rop: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DestDC) then
+ begin
+// gAppHook.Log(Format('StretchBltHook() .. XSrc=%d, YSrc=%d, SrcWidth=%d, SrcHeight=%d', [XSrc, YSrc, SrcWidth, SrcHeight]));
+ try
+ ozStretchBlt(_CopyDC, X, Y, SrcWidth, SrcHeight, SrcDC, XSrc, YSrc, DestWidth, DestHeight, Rop);
+ except
+ on E: Exception do
+ gAppHook.Log('Fail .. StretchBltHook() .. ' + E.Message);
+ end;
+ end;
+
+ Result := ozStretchBlt(DestDC, X, Y, SrcWidth, SrcHeight, SrcDC, XSrc, YSrc, DestWidth, DestHeight, Rop);
+end;
+
+function TransparentBltHook(DestDC: HDC; X, Y, DestWidth, DestHeight: Integer; SrcDC: HDC;
+ XSrc, YSrc, SrcWidth, SrcHeight: Integer; dwTransparent: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DestDC) then
+ begin
+// gAppHook.Log(Format('TransparentBltHook() .. XSrc=%d, YSrc=%d, SrcWidth=%d, SrcHeight=%d', [XSrc, YSrc, SrcWidth, SrcHeight]));
+ try
+ ozTransparentBlt(_CopyDC, X, Y, DestWidth, DestHeight, SrcDC, XSrc, YSrc, SrcWidth, SrcHeight, dwTransparent);
+ except
+ on E: Exception do
+ gAppHook.Log('Fail .. TransparentBltHook() .. ' + E.Message);
+ end;
+ end;
+
+ Result := ozTransparentBlt(DestDc, X, Y, DestWidth, DestHeight, SrcDC, XSrc, YSrc, SrcWidth, SrcHeight, dwTransparent);
+end;
+
+function StretchDIBitsHook(DC: HDC; DestX, DestY, DestWidth, DestHeight, SrcX,
+ SrcY, SrcWidth, SrcHeight: Integer; Bits: Pointer; var BitsInfo: TBitmapInfo;
+ Usage: UINT; Rop: DWORD): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ begin
+ try
+ ozStretchDIBits(_CopyDC, DestX, DestY, DestWidth, DestHeight, SrcX, SrcY,
+ SrcWidth, SrcHeight, Bits, BitsInfo, Usage, Rop);
+ except
+ on E: Exception do
+ gAppHook.Log('Fail .. StretchDIBitsHook() .. ' + E.Message);
+ end;
+ end;
+
+ Result := ozStretchDIBits(DC, DestX, DestY, DestWidth, DestHeight, SrcX, SrcY,
+ SrcWidth, SrcHeight, Bits, BitsInfo, Usage, Rop);
+end;
+
+function SetDIBitsToDeviceHook(DC: HDC; DestX, DestY: Integer; Width, Height: DWORD;
+ SrcX, SrcY: Integer; nStartScan, NumScans: UINT; Bits: Pointer;
+ var BitsInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ begin
+// gAppHook.Log(Format('SetDIBitsToDeviceHook() .. DestX=%d, DestY=%d, Width=%d, Height=%d', [DestX, DestY, Width, Height]));
+ try
+ ozSetDIBitsToDevice(_CopyDC, DestX, DestY, Width, Height, SrcX, SrcY, nStartScan, NumScans, Bits, BitsInfo, Usage);
+ except
+ on E: Exception do
+ gAppHook.Log('Fail .. SetDIBitsToDeviceHook() .. ' + E.Message);
+ end;
+ end;
+
+ Result := ozSetDIBitsToDevice(DC, DestX, DestY, Width, Height, SrcX, SrcY, nStartScan, NumScans, Bits, BitsInfo, Usage);
+end;
+
+function SetDIBitsHook(DC: HDC; Bitmap: HBITMAP; StartScan, NumScans: UINT;
+ Bits: Pointer; var BitsInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetDIBits(_CopyDC, Bitmap, StartScan, NumScans, Bits, BitsInfo, Usage);
+ Result := ozSetDIBits(DC, Bitmap, StartScan, NumScans, Bits, BitsInfo, Usage);
+end;
+
+function SetROP2Hook(DC: HDC; p2: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetROP2(_CopyDC, p2);
+ Result := ozSetROP2(DC, p2);
+end;
+
+function SetMapperFlagsHook(DC: HDC; Flag: DWORD): DWORD; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetMapperFlags(_CopyDC, Flag);
+ Result := ozSetMapperFlags(DC, Flag);
+end;
+
+function SetMapModeHook(DC: HDC; p2: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetMapMode(_CopyDC, p2);
+ Result := ozSetMapMode(DC, p2);
+end;
+
+function SetWindowOrgExHook(DC: HDC; X, Y: Integer; Point: PPoint): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetWindowOrgEx(_CopyDC, X, Y, Point);
+ Result := ozSetWindowOrgEx(DC, X, Y, Point);
+end;
+
+procedure SetFromMetrix(aDC: HDC; aXForm: PXForm); stdcall;
+begin
+ if aXForm <> nil then
+ begin
+// _xFormX := Round(aXForm.eDx);
+// _xFormY := Round(aXForm.eDy);
+ end;
+end;
+
+function SetWorldTransformHook(DC: HDC; const p2: PXForm): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetWorldTransform(_CopyDC, p2);
+ Result := ozSetWorldTransform(DC, p2);
+// if Result then
+// begin
+// if IsAblePrintDrawCopy(DC) then
+// begin
+// var W: TXForm;
+// GetWorldTransform(DC, W);
+// ozSetWorldTransform(_CopyDC, @W);
+// _bSkipNextMWT := true;
+// end;
+
+ // OFFICE군중 ExtTexout의 Y좌표값이 라인이 변경되어도 고정값으로 들어오는 경우가
+ // 존재하여, _ModifyWorldTransform, SetWorldTransform 에서 XFORM의 Y좌표값을 저장
+// SetFromMetrix(DC, p2);
+// end;
+end;
+
+function SetGraphicsModeHook(hdc: HDC; iMode: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(hDC) then
+ ozSetGraphicsMode(_CopyDC, iMode);
+ Result := ozSetGraphicsMode(hdc, iMode);
+end;
+
+function MatAlmostEqual(const A, B: XFORM; Eps: Single = 1e-5): Boolean;
+begin
+ Result :=
+ (Abs(A.eM11 - B.eM11) < Eps) and
+ (Abs(A.eM12 - B.eM12) < Eps) and
+ (Abs(A.eM21 - B.eM21) < Eps) and
+ (Abs(A.eM22 - B.eM22) < Eps) and
+ (Abs(A.eDx - B.eDx ) < Eps) and
+ (Abs(A.eDy - B.eDy ) < Eps);
+end;
+
+function ModifyWorldTransformHook(DC: HDC; const p2: PXForm; p3: DWORD): BOOL; stdcall;
+begin
+// if IsAblePrintDrawCopy(DC) then
+// ozModifyWorldTransform(_CopyDC, p2, p3);
+ Result := ozModifyWorldTransform(DC, p2, p3);
+
+ if Result and IsAblePrintDrawCopy(DC) then
+ begin
+ if gAppHook.Helper.CurAppType = catPPT then
+ begin
+ // 그냥 위 처럼 처리하면 좌표 이동이 두번 누적되는 경우가 발생한다... (원인 파악은 실패...)
+ // 아래처럼 원본과 좌표를 비교해서 강제로 맞춰주도록 보완
+ // 현재는 파워 포인트에서만 확인됨 25_1010 16:16:33 kku
+ var W0, W1: TXForm;
+ GetWorldTransform(DC, W0);
+ GetWorldTransform(_CopyDC, W1);
+
+ if not MatAlmostEqual(W0, W1) then
+ ozModifyWorldTransform(_CopyDC, @W0, p3);
+ end else
+ ozModifyWorldTransform(_CopyDC, p2, p3);
+ end;
+
+// if Result then
+// SetFromMetrix(DC, p2);
+end;
+
+function SelectPaletteHook(DC: HDC; Palette: HPALETTE; ForceBackground: Bool): HPALETTE; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSelectPalette(_CopyDC, Palette, ForceBackground);
+ Result := ozSelectPalette(DC, Palette, ForceBackground);
+end;
+
+function SetBkColorHook(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetBkColor(_CopyDC, Color);
+ Result := ozSetBkColor(DC, Color);
+end;
+
+function SetBrushOrgExHook(DC: HDC; X, Y: Integer; PrevPt: PPoint): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetBrushOrgEx(_CopyDC, X, Y, PrevPt);
+ Result := ozSetBrushOrgEx(DC, X, Y, PrevPt);
+end;
+
+function ExcludeClipRectHook(DC: HDC; LeftRect, TopRect, RightRect, BottomRect: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozExcludeClipRect(_CopyDC, LeftRect, TopRect, RightRect, BottomRect);
+ Result := ozExcludeClipRect(DC, LeftRect, TopRect, RightRect, BottomRect);
+end;
+
+function SetTextColorHook(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetTextColor(_CopyDC, Color);
+ Result := ozSetTextColor(DC, Color);
+end;
+
+function CreateHalftonePaletteHook(DC: HDC): HPALETTE; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozCreateHalftonePalette(_CopyDC);
+ Result := ozCreateHalftonePalette(DC);
+end;
+
+function CreateDIBSectionHook(DC: HDC; const p2: TBitmapInfo; p3: UINT;
+ var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozCreateDIBSection(_CopyDC, p2, p3, p4, p5, p6);
+ Result := ozCreateDIBSection(DC, p2, p3, p4, p5, p6);
+end;
+
+function SetBoundsRectHook(DC: HDC; p2: PRect; p3: UINT): UINT; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetBoundsRect(_CopyDC, p2, p3);
+ Result := ozSetBoundsRect(Dc, p2, p3);
+end;
+
+function SetSystemPaletteUseHook(DC: HDC; p2: UINT): UINT; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetSystemPaletteUse(_CopyDC, p2);
+ Result := ozSetSystemPaletteUse(DC, p2);
+end;
+
+function GetTextCharsetInfoHook(hdc: HDC; lpSig: PFontSignature; dwFlags: DWORD): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(hDC) then
+ ozGetTextCharsetInfo(_CopyDC, lpSig, dwFlags);
+ Result := ozGetTextCharsetInfo(hdc, lpSig, dwFlags);
+end;
+
+function RealizePaletteHook(DC: HDC): UINT; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozRealizePalette(_CopyDC);
+ Result := ozRealizePalette(DC);
+end;
+
+function GetGlyphIndicesAHook(DC: HDC; p2: LPCSTR; p3: Integer; p4: PWORD; p5: DWORD): DWORD; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetGlyphIndicesA(_CopyDC, p2, p3, p4, p5);
+ Result := ozGetGlyphIndicesA(DC, p2, p3, p4, p5);
+end;
+
+function GetGlyphIndicesWHook(DC: HDC; p2: LPCWSTR; p3: Integer; p4: PWORD; p5: DWORD): DWORD; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetGlyphIndicesW(_CopyDC, p2, p3, p4, p5);;
+ Result := ozGetGlyphIndicesW(DC, p2, p3, p4, p5);;
+end;
+
+function GetFontLanguageInfoHook(DC: HDC): DWORD; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetFontLanguageInfo(_CopyDC);
+ Result := ozGetFontLanguageInfo(DC);
+end;
+
+function GetCharacterPlacementAHook(DC: HDC; p2: LPCSTR; p3, p4: Integer;
+ var p5: TGCPResultsA; p6: DWORD): DWORD; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetCharacterPlacementA(_CopyDC, p2, p3, p4, p5, p6);
+ Result := ozGetCharacterPlacementA(DC, p2, p3, p4, p5, p6);
+end;
+
+function GetCharacterPlacementWHook(DC: HDC; p2: LPCWSTR; p3, p4: Integer;
+ var p5: TGCPResultsW; p6: DWORD): DWORD; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetCharacterPlacementW(_CopyDC, p2, p3, p4, p5, p6);
+ Result := ozGetCharacterPlacementW(DC, p2, p3, p4, p5, p6);
+end;
+
+function GetFontDataHook(DC: HDC; p2, p3: DWORD; p4: Pointer; p5: DWORD): DWORD; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetFontData(_CopyDC, p2, p3, p4, p5);
+ Result := ozGetFontData(DC, p2, p3, p4, p5);
+end;
+
+function GetGlyphOutlineAHook(DC: HDC; uChar, uFormat: UINT;
+ const lpgm: TGlyphMetrics; cbBuffer: DWORD; lpvBuffer: Pointer; const lpmat2: TMat2): DWORD; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetGlyphOutlineA(_CopyDC, uChar, uFormat, lpgm, cbBuffer, lpvBuffer, lpmat2);
+ Result := ozGetGlyphOutlineA(DC, uChar, uFormat, lpgm, cbBuffer, lpvBuffer, lpmat2);
+end;
+
+function GetGlyphOutlineWHook(DC: HDC; uChar, uFormat: UINT;
+ const lpgm: TGlyphMetrics; cbBuffer: DWORD; lpvBuffer: Pointer; const lpmat2: TMat2): DWORD; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetGlyphOutlineW(_CopyDC, uChar, uFormat, lpgm, cbBuffer, lpvBuffer, lpmat2);
+ Result := ozGetGlyphOutlineW(DC, uChar, uFormat, lpgm, cbBuffer, lpvBuffer, lpmat2);
+end;
+
+function ResetDCAHook(DC: HDC; const InitData: TDeviceModeA): HDC; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozResetDCA(_CopyDC, InitData);
+ Result := ozResetDCA(DC, InitData);
+end;
+
+function ResetDCWHook(DC: HDC; const InitData: TDeviceModeW): HDC; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozResetDCW(_CopyDC, InitData);
+ Result := ozResetDCW(DC, InitData);
+end;
+
+function ColorCorrectPaletteHook(DC: HDC; p2: HPALETTE; p3, p4: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozColorCorrectPalette(_CopyDC, p2, p3, p4);
+ Result := ozColorCorrectPalette(DC, p2, p3, p4);
+end;
+
+function SetICMProfileAHook(DC: HDC; Name: LPSTR): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetICMProfileA(_CopyDC, Name);
+ Result := ozSetICMProfileA(DC, Name);
+end;
+
+function SetICMProfileWHook(DC: HDC; Name: LPWSTR): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetICMProfileW(_CopyDC, Name);
+ Result := ozSetICMProfileW(DC, Name);
+end;
+
+function AlphaBlendHook(DC: HDC; p2, p3, p4, p5: Integer; DC6: HDC; p7, p8, p9, p10: Integer; p11: TBlendFunction): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozAlphaBlend(_CopyDC, p2, p3, p4, p5, DC6, p7, p8, p9, p10, p11);
+ Result := ozAlphaBlend(DC, p2, p3, p4, p5, DC6, p7, p8, p9, p10, p11);
+end;
+
+function SetTextJustificationHook(DC: HDC; BreakExtra, BreakCount: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetTextJustification(_CopyDC, BreakExtra, BreakCount);
+ Result := ozSetTextJustification(DC, BreakExtra, BreakCount);
+end;
+
+function ScaleWindowExtExHook(DC: HDC; XM, XD, YM, YD: Integer; Size: PSize): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozScaleWindowExtEx(_CopyDC, XM, XD, YM, YD, Size);
+ Result := ozScaleWindowExtEx(DC, XM, XD, YM, YD, Size);
+end;
+
+function SetMiterLimitHook(DC: HDC; NewLimit: Single; OldLimit: PSingle): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetMiterLimit(_CopyDC, NewLimit, OldLimit);
+ Result := ozSetMiterLimit(DC, NewLimit, OldLimit);
+end;
+
+function CloseFigureHook(DC: HDC): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozCloseFigure(_CopyDC);
+ Result := ozCloseFigure(DC);
+end;
+
+function SelectClipPathHook(DC: HDC; Mode: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSelectClipPath(_CopyDC, Mode);
+ Result := ozSelectClipPath(DC, Mode);
+end;
+
+function AbortPathHook(DC: HDC): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozAbortPath(_CopyDC);
+ Result := ozAbortPath(DC);
+end;
+
+function FrameRgnHook(DC: HDC; hrgn: HRGN; hbr: HBRUSH; Width, Height: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozFrameRgn(_CopyDC, hrgn, hbr, Width, Height);
+ Result := ozFrameRgn(DC, hrgn, hbr, Width, Height);
+end;
+
+function InvertRgnHook(DC: HDC; p2: HRGN): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozInvertRgn(_CopyDC, p2);
+ Result := ozInvertRgn(DC, p2);
+end;
+
+function MaskBltHook(DestDC: HDC; XDest, YDest, Width, Height: Integer; SrcDC: HDC;
+ XScr, YScr: Integer; Mask: HBITMAP; xMask, yMask: Integer; Rop: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DestDC) then
+ ozMaskBlt(_CopyDC, XDest, YDest, Width, Height, SrcDC, XScr, YScr, Mask, xMask, yMask, Rop);
+ Result := ozMaskBlt(DestDC, XDest, YDest, Width, Height, SrcDC, XScr, YScr, Mask, xMask, yMask, Rop);
+end;
+
+function GetTextMetricsAHook(DC: HDC; var TM: TTextMetricA): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetTextMetricsA(_CopyDC, TM);
+ Result := ozGetTextMetricsA(DC, TM);
+end;
+
+function GetTextMetricsWHook(DC: HDC; var TM: TTextMetricW): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetTextMetricsW(_CopyDC, TM);
+ Result := ozGetTextMetricsW(DC, TM);
+end;
+
+function GetTextExtentPoint32AHook(DC: HDC; Str: LPCSTR; Count: Integer;
+ var Size: TSize): BOOL; overload; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetTextExtentPoint32A(_CopyDC, Str, Count, Size);
+ Result := ozGetTextExtentPoint32A(DC, Str, Count, Size);
+end;
+
+function GetTextExtentPoint32WHook(DC: HDC; Str: LPCWSTR; Count: Integer;
+ var Size: TSize): BOOL; overload; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetTextExtentPoint32W(_CopyDC, Str, Count, Size);
+ Result := ozGetTextExtentPoint32W(DC, Str, Count, Size);
+end;
+
+function GdiCommentHook(DC: HDC; p2: UINT; p3: LPSTR): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGdiComment(_CopyDC, p2, p3);
+ Result := ozGdiComment(DC, p2, p3);
+end;
+
+function GetCharABCWidthsAHook(DC: HDC; FirstChar, LastChar: UINT; const ABCStructs): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetCharABCWidthsA(_CopyDC, FirstChar, LastChar, ABCStructs);
+ Result := ozGetCharABCWidthsA(DC, FirstChar, LastChar, ABCStructs);
+end;
+
+function GetCharABCWidthsWHook(DC: HDC; FirstChar, LastChar: UINT; const ABCStructs): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGetCharABCWidthsW(_CopyDC, FirstChar, LastChar, ABCStructs);
+ Result := ozGetCharABCWidthsW(DC, FirstChar, LastChar, ABCStructs);
+end;
+
+function UpdateColorsHook(DC: HDC): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozUpdateColors(_CopyDC);
+ Result := ozUpdateColors(DC);
+end;
+
+function OffsetViewportOrgExHook(DC: HDC; X, Y: Integer; Points: PPoint): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozOffsetViewportOrgEx(_CopyDC, X, Y, Points);
+ Result := ozOffsetViewportOrgEx(DC, X, Y, Points);
+end;
+
+function OffsetWindowOrgExHook(DC: HDC; X, Y: Integer; Points: PPoint): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozOffsetWindowOrgEx(_CopyDC, X, Y, Points);
+ Result := ozOffsetWindowOrgEx(DC, X, Y, Points);
+end;
+
+function SetDeviceGammaRampHook(DC: HDC; var Ramp): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetDeviceGammaRamp(_CopyDC, Ramp);
+ Result := ozSetDeviceGammaRamp(DC, Ramp);
+end;
+
+function ColorMatchToTargetHook(DC: HDC; Target: HDC; Action: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozColorMatchToTarget(_CopyDC, Target, Action);
+ Result := ozColorMatchToTarget(DC, Target, Action);
+end;
+
+function PtVisibleHook(DC: HDC; X, Y: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPtVisible(_CopyDC, X, Y);
+ Result := ozPtVisible(DC, X, Y);
+end;
+
+function RectVisibleHook(DC: HDC; const Rect: TRect): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozRectVisible(_CopyDC, Rect);
+ Result := ozRectVisible(DC, Rect);
+end;
+
+function SetPixelFormatHook(DC: HDC; PixelFormat: Integer; FormatDef: PPixelFormatDescriptor): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetPixelFormat(_CopyDC, PixelFormat, FormatDef);
+ Result := ozSetPixelFormat(DC, PixelFormat, FormatDef);
+end;
+
+function SetStretchBltModeHook(DC: HDC; StretchMode: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetStretchBltMode(_CopyDC, StretchMode);
+ Result := ozSetStretchBltMode(DC, StretchMode);
+end;
+
+function OffsetClipRgnHook(DC: HDC; XOffset, YOffset: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozOffsetClipRgn(_CopyDC, XOffset, YOffset);
+ Result := ozOffsetClipRgn(DC, XOffset, YOffset);
+end;
+
+function IntersectClipRectHook(DC: HDC; X1, Y1, X2, Y2: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozIntersectClipRect(_CopyDC, X1, Y1, X2, Y2);
+ Result := ozIntersectClipRect(DC, X1, Y1, X2, Y2);
+end;
+
+function SetTextCharacterExtraHook(DC: HDC; CharExtra: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetTextCharacterExtra(_CopyDC, CharExtra);
+ Result := ozSetTextCharacterExtra(DC, CharExtra);
+end;
+
+function EnumICMProfilesAHook(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozEnumICMProfilesA(_CopyDC, ICMProc, p3);
+ Result := ozEnumICMProfilesA(DC, ICMProc, p3);
+end;
+
+function EnumICMProfilesWHook(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozEnumICMProfilesW(_CopyDC, ICMProc, p3);
+ Result := ozEnumICMProfilesW(DC, ICMProc, p3);
+end;
+
+function ExtEscapeHook(DC: HDC; p2, p3: Integer; const p4: LPCSTR; p5: Integer; p6: LPSTR): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozExtEscape(_CopyDC, p2, p3, p4, p5, p6);
+ Result := ozExtEscape(DC, p2, p3, p4, p5, p6);
+end;
+
+function EnumFontsAHook(DC: HDC; lpszFace: LPCSTR; fntenmprc: TFNFontEnumProcA; lParam: LPARAM): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozEnumFontsA(_CopyDC, lpszFace, fntenmprc, lParam);
+ Result := ozEnumFontsA(DC, lpszFace, fntenmprc, lParam);
+end;
+
+function EnumFontsWHook(DC: HDC; lpszFace: LPCWSTR; fntenmprc: TFNFontEnumProcW; lParam: LPARAM): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozEnumFontsW(_CopyDC, lpszFace, fntenmprc, lParam);
+ Result := ozEnumFontsW(DC, lpszFace, fntenmprc, lParam);
+end;
+
+function EnumFontFamiliesAHook(DC: HDC; p2: LPCSTR; p3: TFNFontEnumProcA; p4: LPARAM): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozEnumFontFamiliesA(_CopyDC, p2, p3, p4);
+ Result := ozEnumFontFamiliesA(DC, p2, p3, p4);
+end;
+
+function EnumFontFamiliesWHook(DC: HDC; p2: LPCWSTR; p3: TFNFontEnumProcW; p4: LPARAM): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozEnumFontFamiliesW(_CopyDC, p2, p3, p4);
+ Result := ozEnumFontFamiliesW(DC, p2, p3, p4);
+end;
+
+function CreateCompatibleDCHook(DC: HDC): HDC; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozCreateCompatibleDC(_CopyDC);
+ Result := ozCreateCompatibleDC(DC);
+end;
+
+function CreateCompatibleBitmapHook(DC: HDC; Width, Height: Integer): HBITMAP; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozCreateCompatibleBitmap(_CopyDC, Width, Height);
+ Result := ozCreateCompatibleBitmap(DC, Width, Height);
+end;
+
+function SetMetaRgnHook(DC: HDC): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetMetaRgn(_CopyDC);
+ Result := ozSetMetaRgn(DC);
+end;
+
+function PlayEnhMetaFileHook(DC: HDC; p2: HENHMETAFILE; const p3: TRect): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPlayEnhMetaFile(_CopyDC, p2, p3);
+ Result := ozPlayEnhMetaFile(DC, p2, p3);
+end;
+
+function PlayEnhMetaFileRecordHook(DC: HDC; var p2: THandleTable; const p3: TEnhMetaRecord; p4: UINT): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ begin
+ if p3.iType <> EMR_EXTCREATEFONTINDIRECTW then
+ ozPlayEnhMetaFileRecord(_CopyDC, p2, p3, p4);
+ end;
+ Result := ozPlayEnhMetaFileRecord(DC, p2, p3, p4);
+end;
+
+function SetPixelHook(DC: HDC; X, Y: Integer; Color: COLORREF): COLORREF; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetPixel(_CopyDC, X, Y, Color);
+ Result := ozSetPixel(DC, X, Y, Color);
+end;
+
+function SetPixelVHook(DC: HDC; X, Y: Integer; Color: COLORREF): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetPixelV(_CopyDC, X, Y, Color);
+ Result := ozSetPixelV(DC, X, Y, Color);
+end;
+
+function LineToHook(DC: HDC; X, Y: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozLineTo(_CopyDC, X, Y);
+ Result := ozLineTo(DC, X, Y);
+end;
+
+function PlgBltHook(DestDC: HDC; const PointsArray; SrcDC: HDC;
+ XSrc, YSrc, Width, Height: Integer; Mask: HBITMAP; xMask, yMask: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DestDC) then
+ ozPlgBlt(_CopyDC, PointsArray, SrcDC, XSrc, YSrc, Width, Height, Mask, xMask, yMask);
+ Result := ozPlgBlt(DestDC, PointsArray, SrcDC, XSrc, YSrc, Width, Height, Mask, xMask, yMask);
+end;
+
+function PatBltHook(DC: HDC; X, Y, Width, Height: Integer; Rop: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPatBlt(_CopyDC, X, Y, Width, Height, Rop);
+ Result := ozPatBlt(DC, X, Y, Width, Height, Rop);
+end;
+
+function MoveToExHook(DC: HDC; p2, p3: Integer; p4: PPoint): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozMoveToEx(_CopyDC, p2, p3, p4);
+ Result := ozMoveToEx(DC, p2, p3, p4);
+end;
+
+function PolyBezierToHook(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPolyBezierTo(_CopyDC, Points, Count);
+ Result := ozPolyBezierTo(DC, Points, Count);
+end;
+
+function PolyLineToHook(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPolyLineTo(_CopyDC, Points, Count);
+ Result := ozPolyLineTo(DC, Points, Count);
+end;
+
+function PolyDrawHook(DC: HDC; const Points, Types; cCount: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPolyDraw(_CopyDC, Points, Types, cCount);
+ Result := ozPolyDraw(DC, Points, Types, cCount);
+end;
+
+function PolygonHook(DC: HDC; const Points; Count: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPolygon(_CopyDC, Points, Count);
+ Result := ozPolygon(DC, Points, Count);
+end;
+
+function PolylineHook(DC: HDC; const Points; Count: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPolyline(_CopyDC, Points, Count);
+ Result := ozPolyline(DC, Points, Count);
+end;
+
+function PolyBezierHook(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPolyBezier(_CopyDC, Points, Count);
+ Result := ozPolyBezier(DC, Points, Count);
+end;
+
+function RectangleHook(DC: HDC; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozRectangle(_CopyDC, X1, Y1, X2, Y2);
+ Result := ozRectangle(DC, X1, Y1, X2, Y2);
+end;
+
+function RoundRectHook(DC: HDC; X1, Y1, X2, Y2, X3, Y3: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozRoundRect(_CopyDC, X1, Y1, X2, Y2, X3, Y3);
+ Result := ozRoundRect(DC, X1, Y1, X2, Y2, X3, Y3);
+end;
+
+function BeginPathHook(DC: HDC): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozBeginPath(_CopyDC);
+ Result := ozBeginPath(DC);
+end;
+
+function EndPathHook(DC: HDC): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozEndPath(_CopyDC);
+ Result := ozEndPath(DC);
+end;
+
+function FillPathHook(DC: HDC): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozFillPath(_CopyDC);
+ Result := ozFillPath(DC);
+end;
+
+function FlattenPathHook(DC: HDC): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozFlattenPath(_CopyDC);
+ Result := ozFlattenPath(DC);
+end;
+
+function WidenPathHook(DC: HDC): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozWidenPath(_CopyDC);
+ Result := ozWidenPath(DC);
+end;
+
+function StrokePathHook(DC: HDC): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozStrokePath(_CopyDC);
+ Result := ozStrokePath(DC);
+end;
+
+function StrokeAndFillPathHook(DC: HDC): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozStrokeAndFillPath(_CopyDC);
+ Result := ozStrokeAndFillPath(DC);
+end;
+
+function SetDCBrushColorHook(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetDCBrushColor(_CopyDC, Color);
+ Result := ozSetDCBrushColor(DC, Color);
+end;
+
+function SetDCPenColorHook(DC: HDC; Color: COLORREF): COLORREF; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetDCPenColor(_CopyDC, Color);
+ Result := ozSetDCPenColor(DC, Color);
+end;
+
+function SetDIBColorTableHook(DC: HDC; p2, p3: UINT; var RGBQuadSTructs): UINT; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetDIBColorTable(_CopyDC, p2, p3, RGBQuadSTructs);
+ Result := ozSetDIBColorTable(DC, p2, p3, RGBQuadSTructs);
+end;
+
+function SetTextAlignHook(DC: HDC; Flags: UINT): UINT; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetTextAlign(_CopyDC, Flags);
+ Result := ozSetTextAlign(DC, Flags);
+end;
+
+function SetBkModeHook(DC: HDC; BkMode: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetBkMode(_CopyDC, BkMode);
+ Result := ozSetBkMode(DC, BkMode);
+end;
+
+function GradientFillHook(DC: HDC; Vertex: PTriVertex; NumVertex: ULONG; Mesh: Pointer; NumMesh, Mode: ULONG): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozGradientFill(_CopyDC, Vertex, NumVertex, Mesh, NumMesh, Mode);
+ Result := ozGradientFill(DC, Vertex, NumVertex, Mesh, NumMesh, Mode);
+end;
+
+function FillRectHook(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(hDC) then
+ ozFillRect(_CopyDC, lprc, hbr);
+ Result := ozFillRect(hDC, lprc, hbr);
+end;
+
+function FrameRectHook(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(hDC) then
+ ozFrameRect(_CopyDC, lprc, hbr);
+ Result := ozFrameRect(hDC, lprc, hbr);
+end;
+
+function ExtFloodFillHook(DC: HDC; X, Y: Integer; Color: COLORREF; FillType: UINT): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozExtFloodFill(_CopyDC, X, Y, Color, FillType);
+ Result := ozExtFloodFill(DC, X, Y, Color, FillType);
+end;
+
+function FloodFillHook(DC: HDC; X, Y: Integer; Color: COLORREF; FillType: UINT): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozFloodFill(_CopyDC, X, Y, Color);
+ Result := ozFloodFill(DC, X, Y, Color);
+end;
+
+function FillRgnHook(DC: HDC; hrgn: HRGN; hbr: HBRUSH): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozFillRgn(_CopyDC, hrgn, hbr);
+ Result := ozFillRgn(DC, hrgn, hbr);
+end;
+
+function SetPolyFillModeHook(DC: HDC; PolyFillMode: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetPolyFillMode(_CopyDC, PolyFillMode);
+ Result := ozSetPolyFillMode(DC, PolyFillMode);
+end;
+
+function DrawEscapeHook(DC: HDC; p2, p3: Integer; p4: LPCSTR): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozDrawEscape(_CopyDC, p2, p3, p4);
+ Result := ozDrawEscape(DC, p2, p3, p4);
+end;
+
+function PaintRgnHook(DC: HDC; RGN: HRGN): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPaintRgn(_CopyDC, RGN);
+ Result := ozPaintRgn(DC, RGN);
+end;
+
+function SetColorAdjustmentHook(DC: HDC; const p2: TColorAdjustment): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetColorAdjustment(_CopyDC, p2);
+ Result := ozSetColorAdjustment(DC, p2);
+end;
+
+function SetArcDirectionHook(DC: HDC; Direction: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetArcDirection(_CopyDC, Direction);
+ Result := ozSetArcDirection(DC, Direction);
+end;
+
+function SetViewportExtExHook(DC: HDC; XExt, YExt: Integer; Size: PSize): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetViewportExtEx(_CopyDC, XExt, YExt, Size);
+ Result := ozSetViewportExtEx(DC, XExt, YExt, Size);
+end;
+
+function SetViewportOrgExHook(DC: HDC; X, Y: Integer; Point: PPoint): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetViewportOrgEx(_CopyDC, X, Y, Point);
+ Result := ozSetViewportOrgEx(DC, X, Y, Point);
+end;
+
+function ScaleViewportExtExHook(DC: HDC; XM, XD, YM, YD: Integer; Size: PSize): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozScaleViewportExtEx(_CopyDC, XM, XD, YM, YD, Size);
+ Result := ozScaleViewportExtEx(DC, XM, XD, YM, YD, Size);
+end;
+
+function SetWindowExtExHook(DC: HDC; XExt, YExt: Integer; Size: PSize): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetWindowExtEx(_CopyDC, XExt, YExt, Size);
+ Result := ozSetWindowExtEx(DC, XExt, YExt, Size);
+end;
+
+function SelectClipRgnHook(DC: HDC; Region: HRGN): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSelectClipRgn(_CopyDC, Region);
+ Result := ozSelectClipRgn(DC, Region);
+end;
+
+function ExtSelectClipRgnHook(DC: HDC; Region: HRGN; Mode: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozExtSelectClipRgn(_CopyDC, Region, Mode);
+ Result := ozExtSelectClipRgn(DC, Region, Mode);
+end;
+
+function SetICMModeHook(DC: HDC; Mode: Integer): Integer; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetICMMode(_CopyDC, Mode);
+ Result := ozSetICMMode(DC, Mode);
+end;
+
+function SetColorSpaceHook(DC: HDC; ColorSpace: HCOLORSPACE): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozSetColorSpace(_CopyDC, ColorSpace);
+ Result := ozSetColorSpace(DC, ColorSpace);
+end;
+
+function SaveDCHook(DC: HDC): Integer; stdcall;
+begin
+ Result := ozSaveDC(DC);
+ if (Result <> 0) and IsAblePrintDrawCopy(DC) then
+ ozSaveDC(_CopyDC);
+end;
+
+function RestoreDCHook(DC: HDC; SavedDC: Integer): BOOL; stdcall;
+begin
+ Result := ozRestoreDC(DC, SavedDC);
+ if Result and IsAblePrintDrawCopy(DC) then
+ ozRestoreDC(_CopyDC, SavedDC);
+end;
+
+function AngleArcHook(DC: HDC; p2, p3: Integer; p4: DWORD; p5, p6: Single): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozAngleArc(_CopyDC, p2, p3, p4, p5, p6);
+ Result := ozAngleArc(DC, p2, p3, p4, p5, p6);
+end;
+
+function ArcToHook(DC: HDC; RLeft, RTop, RRight, RBottom: Integer; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozArcTo(_CopyDC, RLeft, RTop, RRight, RBottom, X1, Y1, X2, Y2);
+ Result := ozArcTo(DC, RLeft, RTop, RRight, RBottom, X1, Y1, X2, Y2);
+end;
+
+function PolyPolylineHook(DC: HDC; const PointStructs; const Points; p4: DWORD): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPolyPolyline(_CopyDC, PointStructs, Points, p4);
+ Result := ozPolyPolyline(DC, PointStructs, Points, p4);
+end;
+
+function EllipseHook(DC: HDC; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozEllipse(_CopyDC, X1, Y1, X2, Y2);
+ Result := ozEllipse(DC, X1, Y1, X2, Y2);
+end;
+
+function LPtoDPHook(DC: HDC; Points: PPoint; Count: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ begin
+ if Points <> nil then
+ begin
+ // 속도 문제와 안정성문제(테스트 도중 행걸리는 현상 발생)가 있어 nCount가 1보다 크더라도 첫값만 넘기도록 처리
+ // 현재 1개의 값만 넘겨도 원본로그와 프린트원본에 문제가 발생하지 않음. 추후 문제 발생시 확인해보는 것을 추천 by mg
+ var pt: TPoint;
+ pt.X := Points.X;
+ pt.Y := Points.Y;
+ ozLPtoDP(_CopyDC, @pt, 1);
+ end else
+ ozLPtoDP(_CopyDC, Points, Count);
+ end;
+ Result := ozLPtoDP(DC, Points, Count);
+end;
+
+function DPtoLPHook(DC: HDC; Points: PPoint; Count: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ begin
+ if Points <> nil then
+ begin
+ // 속도 문제와 안정성문제(테스트 도중 행걸리는 현상 발생)가 있어 nCount가 1보다 크더라도 첫값만 넘기도록 처리
+ // 현재 1개의 값만 넘겨도 원본로그와 프린트원본에 문제가 발생하지 않음. 추후 문제 발생시 확인해보는 것을 추천 by mg
+ var pt: TPoint;
+ pt.X := Points.X;
+ pt.Y := Points.Y;
+ ozDPtoLP(_CopyDC, @pt, 1);
+ end else
+ ozDPtoLP(_CopyDC, Points, Count);
+ end;
+ Result := ozDPtoLP(DC, Points, Count);
+end;
+
+function SelectObjectHook(DC: HDC; p2: HGDIOBJ): HGDIOBJ; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ begin
+ ozSelectObject(_CopyDC, p2);
+ end;
+ Result := ozSelectObject(DC, p2);
+end;
+
+function ChordHook(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozChord(_CopyDC, X1, Y1, X2, Y2, X3, Y3, X4, Y4);
+ Result := ozChord(DC, X1, Y1, X2, Y2, X3, Y3, X4, Y4);
+end;
+
+function ArcHook(hDC: HDC; left, top, right, bottom, startX, startY, endX, endY: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(hDC) then
+ ozArc(_CopyDC, left, top, right, bottom, startX, startY, endX, endY);
+ Result := ozArc(hDC, left, top, right, bottom, startX, startY, endX, endY);
+end;
+
+function PieHook(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPie(_CopyDC, X1, Y1, X2, Y2, X3, Y3, X4, Y4);
+ Result := ozPie(DC, X1, Y1, X2, Y2, X3, Y3, X4, Y4);
+end;
+
+function PolyPolygonHook(DC: HDC; var Points; var nPoints; p4: Integer): BOOL; stdcall;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ ozPolyPolygon(_CopyDC, Points, nPoints, p4);
+ Result := ozPolyPolygon(DC, Points, nPoints, p4);
+end;
+
+function ExtTextOutAHook(DC: HDC; X, Y: Integer; Options: Longint;
+ const Rect: PRect; Str: LPCSTR; Count: Longint; const Dx: PInteger): BOOL; stdcall;
+var
+ sData: AnsiString;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ begin
+// sData := AnsiString(Str);
+// SumString(gAppHook.Helper.sPtrText_, sData, ' ');
+
+// gAppHook.Log(Format('ExtTextOutAHook() .. Str="%s"', [sData]));
+
+ var dwOpt: DWORD := Options;
+ case gAppHook.Helper.CurAppType of
+ catNotepad,
+ catHwp :
+ begin
+ if Options = ETO_IGNORELANGUAGE then
+ dwOpt := ETO_CLIPPED;
+ end;
+ end;
+
+ ozExtTextOutA(_CopyDC, X, Y, dwOpt, Rect, Str, Count, Dx);
+
+// if gAppHook.hMemDC_ <> 0 then
+// ozExtTextOutA(gAppHook.hMemDC_, X, Y, Options, Rect, Str, Count, Dx);
+ end;
+
+ Result := ozExtTextOutA(DC, X, Y, Options, Rect, Str, Count, Dx);
+end;
+
+procedure AuditBeforeText(hdcSrc, hdcMir: HDC; const Tag: string);
+ function XfToStr(const X: XFORM): string;
+ begin
+ Result := Format('[%.6f %.6f %.6f %.6f | %.6f %.6f]', [X.eM11,X.eM12,X.eM21,X.eM22,X.eDx,X.eDy]);
+ end;
+var
+ gmS, gmM, mmS, mmM, taS, taM, bkS, bkM, ceS, ceM: Integer;
+ wS, wM, vS, vM: TSize;
+ woS, woM, voS, voM, cpS, cpM: TPoint;
+ XS, XM: XFORM;
+begin
+ gmS := GetGraphicsMode(hdcSrc); gmM := GetGraphicsMode(hdcMir);
+ GetWorldTransform(hdcSrc, XS); GetWorldTransform(hdcMir, XM);
+
+ mmS := GetMapMode(hdcSrc); mmM := GetMapMode(hdcMir);
+ GetWindowExtEx(hdcSrc,wS); GetWindowExtEx(hdcMir,wM);
+ GetViewportExtEx(hdcSrc,vS); GetViewportExtEx(hdcMir,vM);
+ GetWindowOrgEx(hdcSrc,woS); GetWindowOrgEx(hdcMir,woM);
+ GetViewportOrgEx(hdcSrc,voS); GetViewportOrgEx(hdcMir,voM);
+
+ taS := GetTextAlign(hdcSrc); taM := GetTextAlign(hdcMir);
+ bkS := GetBkMode(hdcSrc); bkM := GetBkMode(hdcMir);
+ ceS := GetTextCharacterExtra(hdcSrc); ceM := GetTextCharacterExtra(hdcMir);
+ GetCurrentPositionEx(hdcSrc, @cpS);
+ GetCurrentPositionEx(hdcMir, @cpM);
+
+ gAppHook.Log(Format(
+ 'AUDIT %s | GM S/M=%d/%d | X S=%s M=%s | MM S/M=%d/%d | WExt S/M=%dx%d/%dx%d | VExt S/M=%dx%d/%dx%d | WOrg S/M=%d,%d/%d,%d | VOrg S/M=%d,%d/%d,%d | TA S/M=%x/%x | BK S/M=%d/%d | CE S/M=%d/%d | CP S/M=%d,%d/%d,%d',
+ [Tag, gmS, gmM, XfToStr(XS), XfToStr(XM), mmS, mmM, wS.cx, wS.cy, wM.cx, wM.cy,
+ vS.cx, vS.cy, vM.cx, vM.cy, woS.X, woS.Y, woM.X, woM.Y, voS.X, voS.Y, voM.X, voM.Y,
+ taS, taM, bkS, bkM, ceS, ceM, cpS.X, cpS.Y, cpM.X, cpM.Y]));
+end;
+
+function ExtTextOutWHook(DC: HDC; X, Y: Integer; Options: Longint;
+ const Rect: PRect; Str: LPCWSTR; Count: Longint; const Dx: PInteger): BOOL; stdcall;
+var
+ sData: String;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ begin
+// ReplaceTextW(Str);
+// sData := String(Str);
+// SumString(gAppHook.Helper.sPtrText_, String(Str), ' ');
+
+// gAppHook.Log(Format('ExtTextOutAHook() .. Str="%s"', [sData]));
+
+ var dwOpt: DWORD := Options;
+ case gAppHook.Helper.CurAppType of
+ catNotepad,
+ catHwp :
+ begin
+ if Options = ETO_IGNORELANGUAGE then
+ dwOpt := ETO_CLIPPED;
+ end;
+ end;
+
+// if gAppHook.Helper.CurAppType = catPPT then
+// begin
+// if (X = 0) and (Y = 0) then
+// begin
+// var nX := Round(_xForm.eDx);
+// var nY := Round(_xForm.eDy);
+// ozExtTextOutW(_CopyDC, nX, nY, dwOpt, Rect, Str, Count, Dx);
+// end else
+// ozExtTextOutW(_CopyDC, X, Y, dwOpt, Rect, Str, Count, Dx);
+// end else
+// ozExtTextOutW(_CopyDC, X, Y, dwOpt, Rect, Str, Count, Dx);
+// gAppHook.Log('ExtTextOutWHook() .. X=%d, Y=%d, Str=%s, Dx=%d', [X, Y, Str, Dx^]);
+
+ ozExtTextOutW(_CopyDC, X, Y, dwOpt, Rect, Str, Count, Dx);
+
+ if _nTmp = 0 then
+ begin
+ _nTmp := 1;
+ AuditBeforeText(DC, _CopyDC, 'Test');
+ end;
+
+// if gAppHook.hMemDC_ <> 0 then
+// ozExtTextOutW(gAppHook.hMemDC_, X, Y, Options, Rect, Str, Count, Dx);
+ end;
+
+ Result := ozExtTextOutW(DC, X, Y, Options, Rect, Str, Count, Dx);
+end;
+
+function DrawTextAHook(hDC: HDC; lpString: LPCSTR; nCount: Integer;
+ var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+var
+ sData: AnsiString;
+begin
+// sData := AnsiString(lpString);
+// gAppHook.SendText(sData);
+// Result := ozDrawTextA(hDc, lpString, nCount, lpRect, uFormat);
+// exit;
+ if IsAblePrintDrawCopy(hDC) then
+ begin
+// ReplaceTextA(lpString);
+
+// sData := AnsiString(lpString);
+// SumString(gAppHook.Helper.sPtrText_, sData, ' ');
+
+ ozDrawTextA(_CopyDC, lpString, nCount, lpRect, uFormat);
+ end;
+
+ Result := ozDrawTextA(hDc, lpString, nCount, lpRect, uFormat);
+end;
+
+function DrawTextWHook(hDC: HDC; lpString: LPCWSTR; nCount: Integer;
+ var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+var
+ sData: String;
+begin
+// sData := String(lpString);
+// gAppHook.SendText(sData);
+// Result := ozDrawTextW(hDc, lpString, nCount, lpRect, uFormat);
+// exit;
+ if IsAblePrintDrawCopy(hDC) then
+ begin
+// ReplaceTextW(lpString);
+
+// sData := String(lpString);
+// SumString(gAppHook.Helper.sPtrText_, sData, ' ');
+
+ ozDrawTextW(_CopyDC, lpString, nCount, lpRect, uFormat);
+ end;
+
+ Result := ozDrawTextW(hDc, lpString, nCount, lpRect, uFormat);
+end;
+
+function DrawTextExAHook(DC: HDC; lpchText: LPCSTR; cchText: Integer; var p4: TRect;
+ dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+var
+ sData: AnsiString;
+begin
+// ReplaceTextA(lpchText);
+
+ if IsAblePrintDrawCopy(DC) then
+ begin
+// sData := AnsiString(lpchText);
+// SumString(gAppHook.Helper.sPtrText_, sData, ' ');
+
+ ozDrawTextExA(_CopyDC, lpchText, cchText, p4, dwDTFormat, DTParams);
+ end;
+ Result := ozDrawTextExA(DC, lpchText, cchText, p4, dwDTFormat, DTParams);
+end;
+
+function DrawTextExWHook(DC: HDC; lpchText: LPCWSTR; cchText: Integer; var p4: TRect;
+ dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+var
+ sData: String;
+begin
+// ReplaceTextW(lpchText);
+
+ if IsAblePrintDrawCopy(DC) then
+ begin
+// sData := String(lpchText);
+// SumString(gAppHook.Helper.sPtrText_, sData, ' ');
+
+ ozDrawTextExW(_CopyDC, lpchText, cchText, p4, dwDTFormat, DTParams);
+
+// if gAppHook.Helper.hMemDC_ <> 0 then
+// ozDrawTextExW(gAppHook.Helper.hMemDC_, lpchText, cchText, p4, dwDTFormat, DTParams);
+ end;
+ Result := ozDrawTextExW(DC, lpchText, cchText, p4, dwDTFormat, DTParams);
+end;
+
+function TextOutAHook(DC: HDC; X, Y: Integer; Str: LPCSTR; Count: Integer): BOOL; stdcall;
+var
+ sData: AnsiString;
+begin
+// ReplaceTextA(Str);
+
+ if IsAblePrintDrawCopy(DC) then
+ begin
+// sData := AnsiString(Str);
+// SumString(gAppHook.Helper.sPtrText_, sData, ' ');
+ ozTextOutA(_CopyDC, X, Y, Str, Count);
+ end;
+
+ Result := ozTextOutA(DC, X, Y, Str, Count);
+end;
+
+function TextOutWHook(DC: HDC; X, Y: Integer; Str: LPCWSTR; Count: Integer): BOOL; stdcall;
+var
+ sData: String;
+begin
+// ReplaceTextW(Str);
+
+ if IsAblePrintDrawCopy(DC) then
+ begin
+// sData := String(Str);
+// SumString(gAppHook.Helper.sPtrText_, sData, ' ');
+
+ ozTextOutW(_CopyDC, X, Y, Str, Count);
+ end;
+
+ Result := ozTextOutW(DC, X, Y, Str, Count);
+end;
+
+function PolyTextOutAHook(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+type
+ TArrayLPCSTR = array [0..0] of LPCSTR;
+var
+ i: Integer;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ begin
+ try
+// for i := 0 to Strings - 1 do
+// begin
+// SumString(gAppHook.Helper.sPtrText_, AnsiString(TArrayLPCSTR(PolyTextArray)[i]), ' ');
+// end;
+ ozPolyTextOutA(_CopyDC, PolyTextArray, Strings);
+ except
+ // ..
+ end;
+ end;
+ Result := ozPolyTextOutA(DC, PolyTextArray, Strings);
+end;
+
+function PolyTextOutWHook(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+type
+ TArrayLPCWSTR = array [0..0] of LPCWSTR;
+var
+ i: Integer;
+begin
+ if IsAblePrintDrawCopy(DC) then
+ begin
+ try
+// for i := 0 to Strings - 1 do
+// begin
+// SumString(gAppHook.Helper.sPtrText_, String(TArrayLPCWSTR(PolyTextArray)[i]), ' ');
+// end;
+ ozPolyTextOutW(_CopyDC, PolyTextArray, Strings);
+ except
+ // ..
+ end;
+ end;
+ Result := ozPolyTextOutW(DC, PolyTextArray, Strings);
+end;
+
+function TabbedTextOutAHook(hDC: HDC; X, Y: Integer; lpString: LPCSTR; nCount, nTabPositions: Integer;
+ var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+var
+ sData: AnsiString;
+begin
+ if IsAblePrintDrawCopy(hDC) then
+ begin
+// ReplaceTextA(lpString);
+// sData := AnsiString(lpString);
+// SumString(gAppHook.Helper.sPtrText_, sData, ' ');
+
+ ozTabbedTextOutA(_CopyDC, X, Y, lpString, nCount, nTabPositions,
+ lpnTabStopPositions, nTabOrigin);
+ end;
+
+ Result := ozTabbedTextOutA(hDC, X, Y, lpString, nCount, nTabPositions,
+ lpnTabStopPositions, nTabOrigin);
+end;
+
+function TabbedTextOutWHook(hDC: HDC; X, Y: Integer; lpString: LPCWSTR; nCount, nTabPositions: Integer;
+ var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+var
+ sData: String;
+begin
+ if IsAblePrintDrawCopy(hDC) then
+ begin
+// ReplaceTextW(lpString);
+// sData := String(lpString);
+// SumString(gAppHook.Helper.sPtrText_, sData, ' ');
+
+ ozTabbedTextOutW(_CopyDC, X, Y, lpString, nCount, nTabPositions,
+ lpnTabStopPositions, nTabOrigin);
+ end;
+ Result := ozTabbedTextOutW(hDC, X, Y, lpString, nCount, nTabPositions,
+ lpnTabStopPositions, nTabOrigin);
+end;
+
+//initialization
+//
+//finalization
+
+end.
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookEtc.pas b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookEtc.pas
new file mode 100644
index 00000000..3e1c2ca7
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookEtc.pas
@@ -0,0 +1,144 @@
+{*******************************************************}
+{ }
+{ ApiHookEtc }
+{ }
+{ Copyright (C) 2023 kku }
+{ }
+{*******************************************************}
+
+unit ApiHookEtc;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.ShellAPI;
+
+type
+ TFun_DragQueryFileA = function(Drop: HDROP; FileIndex: UINT; FileName: LPSTR; cb: UINT): UINT; stdcall;
+ TFun_DragQueryFileW = function(Drop: HDROP; FileIndex: UINT; FileName: LPWSTR; cb: UINT): UINT; stdcall;
+ TFun_DragQueryPoint = function(Drop: HDROP; var Point: TPoint): BOOL; stdcall;
+
+function DragQueryFileAHook(Drop: HDROP; FileIndex: UINT; FileName: LPSTR; cb: UINT): UINT; stdcall;
+function DragQueryFileWHook(Drop: HDROP; FileIndex: UINT; FileName: LPWSTR; cb: UINT): UINT; stdcall;
+function DragQueryPointHook(Drop: HDROP; var Point: TPoint): BOOL; stdcall;
+
+var
+ ozDragQueryFileA: TFun_DragQueryFileA = nil;
+ ozDragQueryFileW: TFun_DragQueryFileW = nil;
+ ozDragQueryPoint: TFun_DragQueryPoint = nil;
+
+implementation
+
+function DragQueryFileAHook(Drop: HDROP; FileIndex: UINT; FileName: LPSTR; cb: UINT): UINT; stdcall;
+begin
+ {
+ if (_AppHook <> nil) and _AppHook.Active then
+ begin
+// _AppHook.Log('DragQueryFileAHook()');
+// 차단
+ if (_AppHook.RcvWnd <> 0) and
+ (FileIndex = DWORD(-1)) then
+// (FileIndex <> DWORD(-1)) and (FileName <> nil) then
+ begin
+ Result := 0; //ozDragQueryFileA(Drop, FileIndex, FileName, cb);
+
+ var i, nCnt, nLen: Integer;
+ nCnt := ozDragQueryFileA(Drop, DWORD(-1), nil, 0);
+ if nCnt > 0 then
+ begin
+ var FList: TStringList;
+ Guard(FList, TStringList.Create);
+
+ FList.Add(_AppHook.ModuleName);
+ if _AppHook.hProcWnd_ <> 0 then
+ FList.Add(GetWindowCaption(_AppHook.hProcWnd_))
+ else
+ FList.Add('');
+
+ var sPath: AnsiString;
+ for i := 0 to nCnt - 1 do
+ begin
+ nLen := ozDragQueryFileA(Drop, i, nil, 0) + 1;
+ SetLength(sPath, nLen);
+ ozDragQueryFileA(Drop, i, PAnsiChar(sPath), nLen);
+// if FileExists(sPath) then
+ begin
+ SetLength(sPath, nLen - 1); // 끝에 #0 제거
+ FList.Add(sPath);
+ end;
+ end;
+
+ if FList.Count > 1 then
+ begin
+ FList.SaveToFile(ExtractFilePath(_AppHook.sLogPath_) + TXT_DROPINFO, TEncoding.UTF8);
+ PostMessage(_AppHook.RcvWnd, WM_CATCH_DROPFILES, 0, 0);
+ end;
+ end;
+ end;
+// Result := 0;
+ end else
+ }
+ Result := ozDragQueryFileA(Drop, FileIndex, FileName, cb);
+end;
+
+function DragQueryFileWHook(Drop: HDROP; FileIndex: UINT; FileName: LPWSTR; cb: UINT): UINT; stdcall;
+begin
+ {
+ if (_AppHook <> nil) and _AppHook.Active then
+ begin
+// _AppHook.Log('DragQueryFileAHook()');
+// 차단
+ if (_AppHook.RcvWnd <> 0) and
+ (FileIndex = DWORD(-1)) then
+// (FileIndex <> DWORD(-1)) and (FileName <> nil) then
+ begin
+ Result := 0; //ozDragQueryFileA(Drop, FileIndex, FileName, cb);
+
+ var i, nCnt, nLen: Integer;
+ nCnt := ozDragQueryFileW(Drop, DWORD(-1), nil, 0);
+ if nCnt > 0 then
+ begin
+ var FList: TStringList;
+ Guard(FList, TStringList.Create);
+ FList.Add(_AppHook.ModuleName);
+ if _AppHook.hProcWnd_ <> 0 then
+ FList.Add(GetWindowCaption(_AppHook.hProcWnd_))
+ else
+ FList.Add('');
+
+ var sPath: String;
+ for i := 0 to nCnt - 1 do
+ begin
+ nLen := ozDragQueryFileW(Drop, i, nil, 0) + 1;
+ SetLength(sPath, nLen);
+ ozDragQueryFileW(Drop, i, PChar(sPath), nLen);
+// if FileExists(sPath) then
+ begin
+ SetLength(sPath, nLen - 1); // 끝에 #0 제거
+ FList.Add(sPath);
+ end;
+ end;
+
+ if FList.Count > 1 then
+ begin
+ FList.SaveToFile(ExtractFilePath(_AppHook.sLogPath_) + '$DrpFle.txt', TEncoding.UTF8);
+ PostMessage(_AppHook.RcvWnd, WM_CATCH_DROPFILES, 0, 0);
+ end;
+ end;
+ end;
+ end else
+ }
+ Result := ozDragQueryFileW(Drop, FileIndex, FileName, cb);
+end;
+
+function DragQueryPointHook(Drop: HDROP; var Point: TPoint): BOOL; stdcall;
+begin
+ {
+ if (_AppHook <> nil) and _AppHook.Active then
+ Result := FALSE
+ else
+ }
+ ozDragQueryPoint(Drop, Point);
+end;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookExplorer.pas b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookExplorer.pas
new file mode 100644
index 00000000..c73ba58b
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookExplorer.pas
@@ -0,0 +1,437 @@
+{*******************************************************}
+{ }
+{ ApiHookExplorer }
+{ }
+{ Copyright (C) 2025 kku }
+{ }
+{*******************************************************}
+
+unit ApiHookExplorer;
+
+interface
+
+uses
+ Winapi.Windows, System.SysUtils, Winapi.ActiveX, Tocsg.Thread, Winapi.ShlObj;
+
+type
+ TFileOpProgressSink = class(TInterfacedObject, IFileOperationProgressSink)
+ public
+ function StartOperations: HRESULT; stdcall;
+ function FinishOperations(hrResult: HRESULT): HRESULT; stdcall;
+
+ function PreRenameItem(dwFlags: DWORD; const psiItem: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
+ function PostRenameItem(dwFlags: DWORD; const psiItem: IShellItem;
+ pszNewName: LPCWSTR; hrRename: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
+
+ function PreMoveItem(dwFlags: DWORD; const psiItem: IShellItem;
+ const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
+ function PostMoveItem(dwFlags: DWORD; const psiItem: IShellItem;
+ const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR; hrMove: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
+
+ function PreCopyItem(dwFlags: DWORD; const psiItem: IShellItem;
+ const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
+ function PostCopyItem(dwFlags: DWORD; const psiItem: IShellItem;
+ const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR;
+ hrCopy: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
+
+ function PreDeleteItem(dwFlags: DWORD; const psiItem: IShellItem): HResult; stdcall;
+ function PostDeleteItem(dwFlags: DWORD; const psiItem: IShellItem; hrDelete: HResult;
+ const psiNewlyCreated: IShellItem): HResult; stdcall;
+
+ function PreNewItem(dwFlags: DWORD; const psiDestinationFolder: IShellItem;
+ pszNewName: LPCWSTR): HResult; stdcall;
+ function PostNewItem(dwFlags: DWORD; const psiDestinationFolder: IShellItem;
+ pszNewName: LPCWSTR; pszTemplateName: LPCWSTR; dwFileAttributes: DWORD;
+ hrNew: HResult; const psiNewItem: IShellItem): HResult; stdcall;
+
+ function UpdateProgress(iWorkTotal, iWorkSoFar: UINT): HRESULT; stdcall;
+ function ResetTimer: HRESULT; stdcall;
+ function PauseTimer: HRESULT; stdcall;
+ function ResumeTimer: HRESULT; stdcall;
+ end;
+
+ TPerformOperations = function(iFO: IFileOperation): HRESULT; stdcall;
+ TThdFoHookInit = class(TTgThread)
+ protected
+ procedure Execute; override;
+ public
+ Constructor Create;
+ end;
+
+function PerformOperationsHook(iFO: IFileOperation): HRESULT; stdcall;
+procedure InstallFileOperationHooks;
+procedure UninstallFileOperationHooks;
+
+implementation
+
+uses
+{$IFDEF _BS1HP_}
+ BS1Hook, DefineHelper, superobject,
+{$ELSE}
+ AppHook,
+{$ENDIF}
+ DDetours;
+
+type
+ TEvtType = (etCreate, etCopy, etMove, etDelete, etRename);
+
+var
+ _ozCoCreateInstance: Pointer = nil;
+ _FndPerformOperations: TPerformOperations = nil;
+ _OzPerformOperations: TPerformOperations = nil;
+
+procedure InstallFileOperationHooks;
+begin
+ if @_OzPerformOperations = nil then
+ TThdFoHookInit.Create;
+end;
+
+procedure UninstallFileOperationHooks;
+begin
+ if @_OzPerformOperations <> nil then
+ begin
+ InterceptRemove(@_OzPerformOperations);
+ @_OzPerformOperations := nil;
+ end;
+end;
+
+procedure Dbg(sLog: String);
+begin
+ if gAppHook <> nil then
+ gAppHook.Log(sLog);
+end;
+
+function PerformOperationsHook(iFO: IFileOperation): HRESULT; stdcall;
+var
+ FoSink: IFileOperationProgressSink;
+ dwCookie: DWORD;
+ hr: HRESULT;
+ bAdviseOk: Boolean;
+begin
+ if (@_OzPerformOperations = nil) then
+ begin
+ Result := E_POINTER;
+ exit;
+ end;
+
+ bAdviseOk := false;
+ FoSink := TFileOpProgressSink.Create as IFileOperationProgressSink;
+ if FoSink <> nil then
+ begin
+ dwCookie := 0;
+ hr := iFO.Advise(FoSink, dwCookie);
+ bAdviseOk := SUCCEEDED(hr);
+ if not bAdviseOk then
+ dwCookie := 0;
+
+ try
+ Result := _OzPerformOperations(iFO);
+ finally
+ if bAdviseOk and (dwCookie <> 0) then
+ begin
+ try
+ iFO.Unadvise(dwCookie);
+ except
+ //
+ end;
+ end;
+ FoSink := nil;
+ end;
+ end else
+ Result := _OzPerformOperations(iFO);
+end;
+
+{ TThdFoHookInit }
+
+Constructor TThdFoHookInit.Create;
+begin
+ Inherited Create;
+ FreeOnTerminate := true;
+ StartThread;
+end;
+
+function GetInterfaceMethod(Intf: Pointer; dwMethodIdx: Cardinal): Pointer;
+var
+ pp: PPointer;
+begin
+ pp := PPointer(Intf)^;
+ Result := PPointer(NativeUInt(pp) + dwMethodIdx * SizeOf(Pointer))^;
+end;
+
+procedure TThdFoHookInit.Execute;
+var
+ hr: HRESULT;
+ iFO: IFileOperation;
+begin
+ hr := CoInitializeEx(nil, COINIT_APARTMENTTHREADED or COINIT_DISABLE_OLE1DDE);
+ if FAILED(hr) then
+ begin
+ Dbg('Fail .. CoInitializeEx() .. 초기화 실패');
+ exit;
+ end;
+
+ try
+ while not Terminated and not GetWorkStop do
+ begin
+ Sleep(1000);
+
+ iFO := nil;
+ hr := CoCreateInstance(CLSID_FileOperation, nil, CLSCTX_ALL, IID_IFileOperation, iFO);
+ if FAILED(hr) then
+ begin
+ Dbg('Fail .. CoCreateInstance() .. IFileOperation 객체 생성 실패');
+ exit;
+ end;
+
+ Dbg('CoCreateInstance() .. OK');
+ if (iFO <> nil) and (@_FndPerformOperations = nil) then
+ begin
+ var hTx: THandle := BeginTransaction;
+ try
+ @_FndPerformOperations := GetInterfaceMethod(iFO, 21);
+ if (@_FndPerformOperations <> nil) then
+ begin
+ @_OzPerformOperations := InterceptCreate(@_FndPerformOperations, @PerformOperationsHook);
+ if (@_OzPerformOperations <> nil) then
+ Dbg('PerformOperations() .. OK')
+ else
+ Dbg('PerformOperations() .. Fail');
+ end else
+ Dbg('FndPerformOperations() .. Fail');
+ finally
+ EndTransaction(hTx);
+ end;
+ break;
+ end;
+ end;
+ finally
+ CoUninitialize;
+ end;
+end;
+
+function ShellItemPath(psi: IUnknown): string;
+var
+ si: IShellItem;
+ psz: LPWSTR;
+ hr: HRESULT;
+begin
+ Result := '';
+ if (psi <> nil) and Supports(psi, IShellItem, si) then
+ begin
+ psz := nil;
+ hr := si.GetDisplayName(SIGDN_FILESYSPATH, psz);
+ if Succeeded(hr) and (psz <> nil) then
+ begin
+ Result := psz;
+ CoTaskMemFree(psz);
+ end;
+ end;
+end;
+
+function IsUNCPath(sPath: string): Boolean;
+var
+ sChk: String;
+begin
+ Result := false;
+ if Length(sPath) >= 2 then
+ begin
+ sChk := UpperCase(sPath);
+ if Pos('\APPDATA\ROAMING\MICROSOFT\WINDOWS\NETWORK SHORTCUTS\', sChk) > 0 then
+ begin
+ Result := true;
+ exit;
+ end;
+
+ if sChk[1] = 'C' then
+ exit;
+
+ if sChk[2] = ':' then
+ begin
+// if gAppHook <> nil then
+// begin
+// Result := gAppHook.Helper.IsNetPath(sChk[1] + ':\');
+// if Result then
+// exit;
+// end else
+ case GetDriveType(PChar(sChk[1] + ':\')) of
+ DRIVE_REMOTE,
+ DRIVE_NO_ROOT_DIR :
+ begin
+ Result := true;
+ exit;
+ end;
+ end;
+ end;
+
+ Result := (sChk[1] = '\') and (sChk[2] = '\');
+ end;
+end;
+
+function ProcMon(evt: TEvtType; const sSrcPath, sDstDir: String; sFName: String): HRESULT;
+
+begin
+ Result := S_OK;
+
+ if (gAppHook <> nil) and (gAppHook.Helper.CtrlOpt.ShFileCrMon.nKind <> 0) then
+ begin
+ var sDstPath: String;
+ var bBlock: Boolean;
+ if sFName = '' then
+ sFName := ExtractFileName(sSrcPath);
+ sDstPath := IncludeTrailingPathDelimiter(sDstDir) + sFName;
+ if IsUNCPath(sDstPath) then
+ begin
+ bBlock := gAppHook.Helper.CtrlOpt.ShFileCrMon.nKind = 2;
+
+ if bBlock and (gAppHook.Helper.FoExpList.Count > 0) then
+ begin
+ var sChk: String := UpperCase(sDstPath);
+ var i: Integer;
+ for i := 0 to gAppHook.Helper.FoExpList.Count - 1 do
+ begin
+ if Pos(gAppHook.Helper.FoExpList[i], sChk) > 0 then
+ begin
+ bBlock := false;
+ break;
+ end;
+ end;
+ end;
+
+ {$IFDEF _BS1HP_}
+ var O: ISuperObject := SO;
+ O.S['S'] := sSrcPath;
+ O.S['D'] := sDstPath;
+ O.I['E'] := Integer(evt);
+ O.B['B'] := bBlock;
+ O.B['N'] := true; // 네트워크 파일?
+ SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_FILE_OPERATION_NOTI, O.AsJSon);
+ {$ENDIF}
+
+ if bBlock then
+ Result := E_ACCESSDENIED;
+ end;
+ end;
+end;
+
+{ IFileOperationProgressSink }
+
+function TFileOpProgressSink.StartOperations: HRESULT; stdcall;
+begin
+ Dbg('StartOperations');
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.FinishOperations(hrResult: HRESULT): HRESULT; stdcall;
+begin
+ Dbg(Format('FinishOperations hr=0x%x', [hrResult]));
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.PreRenameItem(dwFlags: DWORD; const psiItem: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
+var
+ sSrcPath: string;
+begin
+ sSrcPath := ShellItemPath(psiItem);
+ Dbg(Format('PreRenameItem: %s -> %s', [sSrcPath, pszNewName]));
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.PostRenameItem(dwFlags: DWORD; const psiItem: IShellItem;
+ pszNewName: LPCWSTR; hrRename: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
+begin
+ Dbg(Format('PostRenameItem hr=0x%x', [hrRename]));
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.PreMoveItem(dwFlags: DWORD; const psiItem: IShellItem;
+ const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
+var
+ sSrcPath, sDstDir: string;
+begin
+ sSrcPath := ShellItemPath(psiItem);
+ sDstDir := ShellItemPath(psiDestinationFolder);
+ Dbg(Format('PreMoveItem: %s -> %s\%s', [sSrcPath, sDstDir, pszNewName]));
+ Result := ProcMon(etMove, sSrcPath, sDstDir, pszNewName);
+end;
+
+function TFileOpProgressSink.PostMoveItem(dwFlags: DWORD; const psiItem: IShellItem;
+ const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR; hrMove: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
+begin
+ Dbg(Format('PostMoveItem hr=0x%x', [hrMove]));
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.PreCopyItem(dwFlags: DWORD; const psiItem: IShellItem;
+ const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR): HResult; stdcall;
+var
+ sSrcPath, sDstDir: string;
+begin
+ sSrcPath := ShellItemPath(psiItem);
+ sDstDir := ShellItemPath(psiDestinationFolder);
+ Dbg(Format('PreCopyItem: %s -> %s\%s', [sSrcPath, sDstDir, pszNewName]));
+ Result := ProcMon(etCopy, sSrcPath, sDstDir, pszNewName);
+end;
+
+function TFileOpProgressSink.PostCopyItem(dwFlags: DWORD; const psiItem: IShellItem;
+ const psiDestinationFolder: IShellItem; pszNewName: LPCWSTR;
+ hrCopy: HResult; const psiNewlyCreated: IShellItem): HResult; stdcall;
+begin
+ Dbg(Format('PostCopyItem hr=0x%x', [hrCopy]));
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.PreDeleteItem(dwFlags: DWORD; const psiItem: IShellItem): HResult; stdcall;
+var
+ sSrcPath: String;
+begin
+ sSrcPath := ShellItemPath(psiItem);
+ Dbg('PreDeleteItem: ' + sSrcPath);
+ Result := S_OK; // MaybeBlock(boDelete, sSrcPath, '', '');
+end;
+
+function TFileOpProgressSink.PostDeleteItem(dwFlags: DWORD; const psiItem: IShellItem; hrDelete: HResult;
+ const psiNewlyCreated: IShellItem): HResult; stdcall;
+begin
+ Dbg(Format('PostDeleteItem hr=0x%x', [hrDelete]));
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.PreNewItem(dwFlags: DWORD; const psiDestinationFolder: IShellItem;
+ pszNewName: LPCWSTR): HResult; stdcall;
+var
+ sDstDir: string;
+begin
+ sDstDir := ShellItemPath(psiDestinationFolder);
+ Dbg(Format('PreNewItem: %s\%s', [sDstDir, pszNewName]));
+ Result := ProcMon(etCreate, '', sDstDir, pszNewName);
+end;
+
+function TFileOpProgressSink.PostNewItem(dwFlags: DWORD; const psiDestinationFolder: IShellItem;
+ pszNewName: LPCWSTR; pszTemplateName: LPCWSTR; dwFileAttributes: DWORD;
+ hrNew: HResult; const psiNewItem: IShellItem): HResult; stdcall;
+begin
+ Dbg(Format('PostNewItem hr=0x%x', [hrNew]));
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.UpdateProgress(iWorkTotal, iWorkSoFar: UINT): HRESULT; stdcall;
+begin
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.ResetTimer: HRESULT; stdcall;
+begin
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.PauseTimer: HRESULT; stdcall;
+begin
+ Result := S_OK;
+end;
+
+function TFileOpProgressSink.ResumeTimer: HRESULT; stdcall;
+begin
+ Result := S_OK;
+end;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookFile.pas b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookFile.pas
new file mode 100644
index 00000000..67e18afb
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookFile.pas
@@ -0,0 +1,1944 @@
+{*******************************************************}
+{ }
+{ ApiHookFile }
+{ }
+{ Copyright (C) 2023 kku }
+{ }
+{*******************************************************}
+
+unit ApiHookFile;
+
+interface
+
+//{$DEFINE USE_BOXAPP} // eCrmHeHelperf.dll, eCrmHeHelper32f.dll 빌드 시 꺼야함 25_0819 15:59:08 kku // 이제 안쓰는걸루 25_1215 kku
+{$DEFINE _MTP_RO_}
+
+uses
+ Winapi.Windows, System.SysUtils, System.Classes;
+
+const
+ IMAGE_EXTS = 'PNG|JPG|JPEG|GIF|PCX|BMP';
+
+type
+ THandleStreamEx = class(THandleStream)
+ protected
+ llSize_: LONGLONG;
+ function GetSize: Int64; override;
+ public
+ Constructor Create(aHandle: THandle; llSize: LONGLONG);
+ end;
+
+ TFun_CreateFileA = function(lpFileName: PAnsiChar; dwDesiredAccess, dwShareMode: DWORD;
+ lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition,
+ dwFlagsAndAttributes: DWORD; hTemplateFile: THandle): THandle; stdcall;
+ TFun_CreateFileW = function(lpFileName: PWideChar; dwDesiredAccess, dwShareMode: DWORD;
+ lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition,
+ dwFlagsAndAttributes: DWORD; hTemplateFile: THandle): THandle; stdcall;
+ TFun_CloseHandle = function(hFile: THandle): BOOL; stdcall;
+
+ TFun_MapViewOfFile = function(hFileMappingObject: THandle; dwDesiredAccess: DWORD;
+ dwFileOffsetHigh, dwFileOffsetLow: DWORD; dwNumberOfBytesToMap: SIZE_T): Pointer; stdcall;
+ TFun_ReadFile = function(hFile: THandle; var Buffer; nNumberOfBytesToRead: DWORD;
+ var lpNumberOfBytesRead: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
+ TFun_ReadFileEx = function(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
+ lpOverlapped: POverlapped; lpCompletionRoutine: TPROverlappedCompletionRoutine): BOOL; stdcall;
+ TFun_WriteFile = function(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD;
+ var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
+ TFun_WriteFileEx = function(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToWrite: DWORD;
+ const lpOverlapped: TOverlapped; lpCompletionRoutine: FARPROC): BOOL; stdcall;
+
+function CreateFileAHook(lpFileName: PAnsiChar; dwDesiredAccess, dwShareMode: DWORD;
+ lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition,
+ dwFlagsAndAttributes: DWORD; hTemplateFile: THandle): THandle; stdcall;
+function CreateFileWHook(lpFileName: PWideChar; dwDesiredAccess, dwShareMode: DWORD;
+ lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition,
+ dwFlagsAndAttributes: DWORD; hTemplateFile: THandle): THandle; stdcall;
+function CloseHandleHook(hFile: THandle): BOOL; stdcall;
+
+{$IFDEF DEBUG}
+// 사용하지 않아서 비활성화 함 24_0122 14:14:41 kku
+
+//function MapViewOfFileHook(hFileMappingObject: THandle; dwDesiredAccess: DWORD;
+// dwFileOffsetHigh, dwFileOffsetLow: DWORD; dwNumberOfBytesToMap: SIZE_T): Pointer; stdcall;
+//function ReadFileHook(hFile: THandle; var Buffer; nNumberOfBytesToRead: DWORD;
+// var lpNumberOfBytesRead: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
+//function ReadFileExHook(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
+// lpOverlapped: POverlapped; lpCompletionRoutine: TPROverlappedCompletionRoutine): BOOL; stdcall;
+//function WriteFileHook(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD;
+// var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
+//function WriteFileExHook(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToWrite: DWORD;
+// const lpOverlapped: TOverlapped; lpCompletionRoutine: FARPROC): BOOL; stdcall;
+{$ENDIF}
+
+
+var
+ ozCreateFileA: TFun_CreateFileA = nil;
+ ozCreateFileW: TFun_CreateFileW = nil;
+ ozCloseHandle: TFun_CloseHandle = nil;
+ ozMapViewOfFile: TFun_MapViewOfFile = nil;
+ ozReadFile: TFun_ReadFile = nil;
+ ozReadFileEx: TFun_ReadFileEx = nil;
+ ozWriteFile: TFun_WriteFile = nil;
+ ozWriteFileEx: TFun_WriteFileEx = nil;
+
+implementation
+
+uses
+{$IFDEF USE_BOXAPP}
+ BoxedAppSDK_Static,
+{$ENDIF}
+{$IFDEF _BS1HP_}
+ BS1Hook, GlobalDefine, DefineHelper,
+{$ELSE}
+ AppHook,
+{$ENDIF}
+ Tocsg.WndUtil, Tocsg.Path, Tocsg.DRM.Encrypt, Tocsg.Files,
+ Tocsg.Safe, Tocsg.Encrypt, AppCtrlDefine, Tocsg.Exception, Winapi.Messages,
+ Tocsg.Win32, superobject, Tocsg.Process, Tocsg.Strings, Tocsg.Registry,
+ Tocsg.Convert, Tocsg.Trace, Tocsg.Hash, Condition;
+
+var
+ _nTest: Integer = 0;
+ _sEncFileHash: String = '';
+
+{ THandleStreamEx }
+
+Constructor THandleStreamEx.Create(aHandle: THandle; llSize: LONGLONG);
+begin
+ Inherited Create(aHandle);
+ llSize_ := llSize;
+end;
+
+function THandleStreamEx.GetSize: Int64;
+begin
+ Result := llSize_;
+end;
+
+procedure LogToReg(sVName, sLog: String); inline;
+begin
+// SetRegValueString(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', sVName, sLog, true);
+end;
+
+procedure LogToReg2(sVName, sLog: String); inline;
+begin
+// SetRegValueString(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', sVName, sLog, true);
+end;
+
+function DecText(sText: String): String; inline;
+begin
+ Result := '';
+ if Length(sText) < 2 then
+ exit;
+
+ if sText[1] = ':' then
+ begin
+ Delete(sText, 1, 1);
+ Result := DecBinStrToStr(ekAes256cbc, PASS_STRENC, sText);
+ end else
+ Result := sText;
+end;
+
+function IsActiveFileDialog(sPath: String): Boolean; stdcall;
+var
+ h, hNext: HWND;
+ dwAPid: DWORD;
+ sWClass, sCap: String;
+ i: Integer;
+begin
+ Result := false;
+
+ if gAppHook = nil then
+ exit;
+
+ try
+ if (gAppHook.Helper.hOpenDlgWnd_ = 0) and
+ (gAppHook.Helper.OpenDlgWordList.Count > 0) then
+ begin
+ h := FindWindowEx(0, 0, '#32770', nil);
+ while h <> 0 do
+ begin
+ sWClass := '';
+ hNext := GetWindow(h, GW_HWNDNEXT);
+ dwAPid := GetProcessPIDFromWndHandle(h);
+
+ if dwAPid = gAppHook.Helper.PID then
+ sWClass := GetWndClassName(h);
+
+ if sWClass = '#32770' then
+ begin
+ sCap := UpperCase(GetWindowCaption(h));
+// LogToReg(Format('IsActiveFileDialog3, A_PID=%d, A_PName=%s, A_Cap=%s', [dwAPid, GetProcessNameByPid(dwAPid), sCap]), sPath);
+ if sCap <> '' then
+ begin
+ for i := 0 to gAppHook.Helper.OpenDlgWordList.Count - 1 do
+ begin
+ if Pos(gAppHook.Helper.OpenDlgWordList[i], sCap) > 0 then
+ begin
+ gAppHook.Helper.hOpenDlgWnd_ := h;
+ Result := true;
+ exit;
+ end;
+ end;
+ end;
+ end;
+
+ h := hNext;
+ end;
+ end else
+ if IsWindow(gAppHook.Helper.hOpenDlgWnd_) then
+ begin
+ // 다열로그창에서 마우스 오른쪽 팝업 시 먹통되서 이렇게 보완 처리함 22_1129 15:33:40 kku
+ Result := true;
+ end else begin
+ gAppHook.Helper.hOpenDlgWnd_ := 0;
+ end;
+ except
+ // ..
+ end;
+end;
+
+function CheckBlockFile(dwDesiredAccess, dwShareMode, dwCreationDisposition, dwFlagsAndAttributes: DWORD; sPath: String): Boolean; inline;
+var
+ i: Integer;
+ sExt,
+ sFName,
+ sChkPath: String;
+ dwFlags: DWORD;
+ hFile: THandle;
+ hTagWnd: HWND;
+ FileUseBlock: TFileUseBlock;
+ bIsNetPath,
+ bExistsFile: Boolean;
+begin
+ Result := false;
+
+ try
+ var bDoLog: Boolean := False; //Pos('[bs1]', sPath.ToLower) > 0; //Pos('.html', sPath.ToLower) > 0;
+
+// sExt := GetFileExt(sPath).ToUpper;
+// if (ExtractFilePath(sPath) <> '') and (sExt = 'WEBP') then
+// begin
+// bDoLog := true;
+ if bDoLog then LogToReg('Step000', sPath);
+// end;
+
+ bIsNetPath := false;
+ case dwDesiredAccess of
+// 0, $80, GENERIC_WRITE : exit;
+ 0, $80 : exit;
+ end;
+
+ if bDoLog then LogToReg('Step001', Format('dwFlagsAndAttribute=%d', [dwFlagsAndAttributes]));
+
+// {$IFNDEF _BS1HP_}
+// if CompareText('C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Debug - Win64\AppCtrl_d.log', sPath) = 0 then
+// exit;
+//// gAppHook.Log(Format('CheckBlockFile(), Path=%s, Attr=%d', [sPath, dwFlagsAndAttributes]));
+//
+// if GetFileExt(sPath).ToUpper = 'TXT' then
+// begin
+// gAppHook.Log(Format('Path=%s, dwDesiredAccess=%d, dwShareMode=%d, dwFlagsAndAttributes=%d', [sPath, dwDesiredAccess, dwShareMode, dwFlagsAndAttributes]));
+// Result := true;
+// exit;
+// end;
+// {$ENDIF}
+
+// 브라우저에서 파일 첨부 시 dwFlagsAndAttributes 값에 FILE_FLAG_OPEN_NO_RECALL가 들어옴
+ case dwFlagsAndAttributes of
+ 0, // : exit; // 0 이면 파일 열기로 인식 25_0227 17:02:13 kku
+ 33554432 :
+ begin
+ if (dwFlagsAndAttributes = 0) and
+ (gAppHook.Helper.CurAppType <> catwinscp) and // winscp.exe에서 업로드 시 dwFlagsAndAttributes = 0 이렇게 처리됨, 걸러줌 25_1105 13:19:19 kku
+ (CompareText(gAppHook.ModuleName, 'firefox.exe') <> 0) and // 파이어폭스는 첨부 시 dwFlagsAndAttributes = 0 이렇게 되서 걸러준다... 25_0424 13:17:36 kku
+ gAppHook.Helper.CtrlOpt.bOpenDetect then
+ begin
+ // 브라우저 다운로드는 무시하지 않게 처리 25_0327 17:48:49 kku
+ if (gAppHook.Helper.CurAppType = catWebb) and (GetFileExt(sPath).ToUpper = 'TMP') then
+ begin
+ // 1ec3031e-946c-4de3-b3d4-b5abc2b3edba.tmp 이런 형식
+ // 차단 처리 및 로깅 될수 있게 함
+ end else exit;
+ end;
+
+ // 모든 파일을 GetFileAttributes() 처리하면 엣지등 프로그램이 뻗음
+ // 그래서 디렉토리로 추정되는 특정 플러그만 검사 25_0211 10:04:33 kku
+ dwFlags := GetFileAttributes(PChar(sPath));
+ if (dwFlags and FILE_ATTRIBUTE_DIRECTORY) <> 0 then
+ exit;
+ end;
+ end;
+
+ sPath := StringReplace(sPath, '"', '', [rfReplaceAll]);
+ // 파일 이름만 달랑 오는 경우가 있다... 무시 25_0421 15:54:36 kku
+ // webex에서 파일 여러거 첨부할때 발생함
+ if ExtractFilePath(sPath) = '' then
+ exit;
+
+ sFName := ExtractFileName(sPath);
+ if sFName = '' then
+ exit;
+
+ sExt := GetFileExt(sFName).ToUpper;
+
+ case gAppHook.Helper.CurAppType of
+ catBizbox :
+ begin
+ // 더존 메신저 내에서 파일 열기 감지, 무시 25_1112 10:29:54 kku
+ if dwShareMode = 7 then
+ exit;
+
+ if (dwDesiredAccess = $40000000) and (dwShareMode = 3) and (dwFlagsAndAttributes = $100000) then
+ exit;
+ end;
+ catwinscp :
+ begin
+ if (dwDesiredAccess <> $80000000) or (dwShareMode <> 3) or (dwFlagsAndAttributes <> 0) then
+ exit;
+ end;
+ catFilezilla :
+ begin
+ //윈스테크넷 filezilla 미첨부 exe 파일을 탐지하는 현상 수정 251128 mgkim
+ if (dwDesiredAccess <> $80000000) or (dwShareMode <> 3) or (dwFlagsAndAttributes <> $8000000) then
+ exit;
+ end;
+ catOlk,
+ catMswebv :
+ begin
+ // 다운로드 차단이 아니라면 olk.exe > msedgewebview2.exe에서 처리하는 임시파일은 무시 25_1217 16:30:29 kku
+ if not gAppHook.Helper.CtrlOpt.bWriteBlock and (sExt = 'CRSWAP') then
+ exit;
+ end;
+ end;
+
+ if (gAppHook.Helper.CtrlOpt.dwCustomerType = CUSTOMER_WINSTN) and (gAppHook.Helper.CurAppType = catWebb) then
+ begin
+ if (gAppHook.Helper.CurAppDetailType = catChrome) or (gAppHook.Helper.CurAppDetailType = catMsedge) then
+ begin
+ if gAppHook.Helper.CtrlOpt.bReadBlock then //20251201 mgkim 브라우저에서 다운로드 후 이미지 열시 이미지내에 권한 없음 메시지 처리
+ begin
+ if (dwDesiredAccess = $80000000) and // GENERIC_READ
+ (dwShareMode = 7) and // SHARE_READ | SHARE_WRITE | SHARE_DELETE
+ (dwFlagsAndAttributes = $40040000) then // OVERLAPPED | RECALL_ON_OPEN
+ begin
+ exit;
+ end;
+ end;
+ end;
+ end;
+
+
+ if bDoLog then LogToReg('Step002', sPath);
+
+// if (dwDesiredAccess and GENERIC_READ) = 0 then
+// exit;
+
+ // 아래 코드를 추가하면 픽픽에서 캡쳐 이미지 저장할때 감지를 하지 못한다.. 23_1206 14:24:05 kku
+ // 아래처럼 하면 일부 프로그램(크롬,엣지등)은 실행조차 안된다... 22_1109 08:47:30 kku
+// dwFlags := GetFileAttributes(PChar(sPath));
+// if (dwFlags and FILE_ATTRIBUTE_DIRECTORY) <> 0 then
+// exit;
+ if (gAppHook._hMTP <> 0) then
+ begin
+ if Length(sPath) = 3 then
+ begin
+ {$IFDEF _BS1HP_}
+ gAppHook.ProcessNoti(NOTI_HOOK_BLOCK_MTP_WRITE, gAppHook._sMtpDev, 3, false);//gAppHook._sMtpRecentFile);
+ {$ELSE}
+ gAppHook.Log(Format('cut : %s', [sPath]));
+ {$ENDIF}
+ Result := true;
+ exit;
+ end;
+// else
+// gAppHook._hMTP := 0;
+
+// sExt := GetFileExt(sFName).ToUpper;
+// if (sExt = 'DOCX') or (sExt = 'PDF') or (sExt = 'TXT') then
+// begin
+// {$IFNDEF _BS1HP_}
+// gAppHook.Log(Format('MTP Use? (%d) : %s', [GetForegroundWindow, sPath]));
+// {$ENDIF}
+// end;
+ end;
+
+ if bDoLog then LogToReg('Step003', sPath);
+
+ if (gAppHook.Helper.CurAppType = catExplorer) and (gAppHook._hMTP = 0) then
+ begin
+
+// if Pos('_quick', sPath) = 0 then
+// begin
+// if gAppHook._hMTP <> 0 then
+// LogToReg('Step98', sPath)
+// else
+// LogToReg('Step99', sPath);
+// end;
+ exit;
+ end;
+
+ if bDoLog then LogToReg('Step004', sPath);
+
+// if sPath.StartsWith('\\') then
+// begin
+// if (sPath[3] <> '.') and (sPath[3] <> '?') then
+// begin
+// if GetFileExt(sPath).ToUpper = 'HWP' then
+// begin
+// LogToReg('Step-00', sPath);
+// Result := true;
+// end;
+// end;
+// exit;
+// end else
+// if sPath[1] = 'Q' then
+// LogToReg('Step-01', sPath);
+
+ if (sPath.Length > 5) and sPath.StartsWith('\\?\') and (sPath[6] = ':') then
+ Delete(sPath, 1, 4);
+
+// if bDoLog then LogToReg('Step111', BooleanToStr(gAppHook.Helper.CtrlOpt.bIgrNetPathAB, 'Y', 'N'));
+
+ // 경로가 c:/abcd/efg.txt 이렇게 오는 경우가 있다... (WebEx)
+ // 아래 처럼 바꿔줘야 예외 경로가 먹힘 25_0313 13:48:17 kku
+ sPath := StringReplace(sPath, '/', '\', [rfReplaceAll]);
+
+ // 드라이브 없이 : 로 시작하는거 거름
+ if (sPath.Length > 0) and (sPath[1] = ':') then
+ exit;
+
+ sChkPath := UpperCase(sPath);
+ if gAppHook.Helper.CurAppType = catExplorer then
+ begin
+ // todo : 탐색기에서 공유폴더, 네트워크 드라이브 파일 처리 로깅 기능 필요 25_0408 08:56:56 kku
+
+ end else begin
+ if bDoLog then LogToReg('Step222', sPath);
+ if (sPath.Length > 2) and sPath.StartsWith('\\') and (sPath[3] <> '.') and (sPath[3] <> '?') then
+ bIsNetPath := true;
+
+ if sChkPath.StartsWith('\\?\UNC\') then
+ begin
+ // 네트워크 드라이브는 차단 처리 25_0305 13:53:05 kku
+ // \\?\UNC\bsteam\BSShare\김구진\BSOne_OutTest_E_Blue.docx
+ // \\?\UNC\192.168.15.3\BSShare\김구진\BSOne_OutTest_E.docx
+ bIsNetPath := true;
+ end;
+
+ if not bIsNetPath then
+ bIsNetPath := gAppHook.Helper.IsNetPath(sPath);
+ end;
+
+
+
+
+// if bIsNetPath then
+// begin
+// if bDoLog then LogToReg('Step333', sPath);
+//
+// if not gAppHook.Helper.CtrlOpt.bIgrNetPathAB then
+// begin
+// if bDoLog then LogToReg('Step444', sPath);
+// Result := true;
+// {$IFDEF _BS1HP_}
+// gAppHook.ProcessNoti(NOTI_HOOK_BLOCK_ATTACH, sPath, 2);
+// {$ENDIF}
+// exit;
+// end;
+// end;
+
+ if bDoLog then LogToReg('Step005', sPath);
+
+ // 확장자 없는거 거르면... 디렉토리 접근은 거를수 있는데...
+ // 문제는 확장자 없는 파일을 차단할 수 없다.. 그래도 일단 이렇게 진행함 22_1028 09:20:48 kku
+// if sExt = '' then
+// exit;
+
+// var bDoLog: Boolean := (sExt <> 'LOG') and (sExt <> 'TBRES') and (sExt <> 'TMP') and
+// (sExt <> 'API') and (sExt <> 'TEMP') and (sExt <> 'JS') and (sExt <> 'TTC') and
+// (sExt <> 'TTF');
+
+ if CompareText(gAppHook.sLogPath_, sPath) = 0 then
+ exit;
+
+// gAppHook.Log(Format('CheckBlockFile(), Path=%s', [sPath]));
+
+ // 디렉토리 거르는게 힘들다.. (1) 그래서 "1. abc" 라는 디렉토리를 거르기 위해서 추가 22_1109 08:55:52 kku
+// if sExt[1] = ' ' then
+// exit;
+
+ // 디렉토리 거르는게 힘들다.. (2)
+// if StrToIntDef(sExt, -1) > -1 then
+// exit;
+ if (gAppHook.Helper.CurAppType <> catExplorer) and // MTP 읽기만 사용시 탐색기로 인지되면 확장자 체크안함 24_0806 14:30:04 kku
+ (gAppHook.Helper.CurAppType <> catwinscp) and ///DLL 예외 되어서 추가
+ (gAppHook.Helper.CurAppType <> catFilezilla) and
+ (gAppHook.Helper.IgrAttBlkExts.IndexOf(sExt) <> -1) then
+ exit;
+
+ if CompareText(sFName, 'desktop.ini') = 0 then
+ exit;
+
+ if gAppHook.Helper.CurAppType = catOutlook then
+ begin
+ if Pos('\CONTENT.OUTLOOK\', sChkPath) = 0 then
+ begin
+ for i := 0 to gAppHook.Helper.IgrAttBlkPaths.Count - 1 do
+ if Pos(gAppHook.Helper.IgrAttBlkPaths[i], sChkPath) > 0 then
+ exit;
+ end;
+ end else begin
+ for i := 0 to gAppHook.Helper.IgrAttBlkPaths.Count - 1 do
+ if Pos(gAppHook.Helper.IgrAttBlkPaths[i], sChkPath) > 0 then
+ exit;
+// if not FileExists('C:\ProgramData\HE\test.txt') then
+// gAppHook.Helper.IgrAttBlkPaths.SaveToFile('C:\ProgramData\HE\test.txt', TEncoding.UTF8);
+ end;
+
+ if bDoLog then LogToReg('Step006', sChkPath);
+
+ if IsActiveFileDialog(sPath) then
+ exit;
+
+ if bDoLog then LogToReg('Step007', sPath);
+
+ // 태그 확인
+// hTagWnd := gAppHook.Helper.CtrlOpt.hTagWnd;
+// if hTagWnd <> 0 then
+// begin
+// if SendMessage(hTagWnd, 99, sPath) = 200 then
+// exit;
+// end;
+
+ {$IFDEF _BS1HP_}
+ if (gAppHook.Helper.CurAppType = catWebb) and (sExt = 'TMP') then
+ bExistsFile := false // 브라우저의 다운로드 및 임시 파일은 없는걸로 인식 25_0327 17:55:32 kku
+ else begin
+ var O: ISuperObject := SO;
+ O.S['P'] := sPath;
+ O.S['M'] := gAppHook.ModuleName;
+ O.I['D'] := dwDesiredAccess;
+ O.I['S'] := dwShareMode;
+ O.I['F'] := dwFlagsAndAttributes;
+ O.I['T'] := Integer(gAppHook.Helper.CurAppType);
+
+ // 존재하는 파일인지(첨부), 없는 파일인지(다운로드),
+ // 파일명, 시그니처 체크 등 처리
+ // 파일명, 시그니처를 체크해서 대상이 아니면 100 반환 25_0429 16:37:10 kku
+ case SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_EXISTS_FILE, O.AsJSon) of
+ 100 : exit; // 무시
+ 300 : bExistsFile := true;
+ end;
+ end;
+ {$ENDIF}
+
+ if bDoLog then LogToReg('Step4', '4');
+
+ // DRM 확인
+ if bExistsFile and gAppHook.Helper.CtrlOpt.bDrmAttachAble then
+ begin
+ hFile := ozCreateFileW(PChar(sPath),
+ GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
+ if (hFile <> 0) and (hFile <> INVALID_HANDLE_VALUE) then
+ begin
+ try
+ var llSize: LONGLONG := 0;
+ if GetFileSizeEx(hFile, llSize) then
+ begin
+ var hs: THandleStreamEx;
+ Guard(hs, THandleStreamEx.Create(hFile, llSize));
+ if TTgEncrypt.CheckSign(hs, SIG_DRM) then
+ exit;
+ end;
+ finally
+ CloseHandle(hFile);
+ end;
+ end;
+ end;
+
+ if bDoLog then LogToReg('Step5', '5');
+
+ case gAppHook.Helper.CurAppType of
+ catOutlook :
+ begin
+ if (sExt = 'PST') or (sExt = 'PDB') or
+ (sExt = 'TLB') or (sExt = 'CONFIG') or
+// { (sExt = 'LNK') or } (sExt = 'ICO') or
+ (sExt = 'TMP') then exit;
+
+// if (Pos('\INETCACHE\CONTENT.WORD\', sChkPath) > 0) and
+// (sFName[1] <> '~') then // 메일 메시지면 ~가 앞에 붙음
+// begin
+// Result := true;
+// exit;
+// end;
+
+ if (Pos('\INETCACHE\CONTENT.WORD\', sChkPath) > 0) and
+ (sFName[1] = '~') then // 메일 메시지면 ~가 앞에 붙음
+ exit;
+
+ // 아웃룩 업데이트 되었는지... 잡는 경로가 추가됨 23_1205 13:43:59 kku ---
+ if Pos('\MICROSOFT\IDENTITYCACHE\', sChkPath) > 0 then
+ exit;
+
+// if Pos('\INETCACHE\IE\', sChkPath) > 0 then
+// exit;
+
+ if Pos('\WINDOWSAPPS\', sChkPath) > 0 then
+ exit;
+
+// if Pos('\INETCACHE\CONTENT.OUTLOOK\', sChkPath) > 0 then
+// exit;
+
+ if Pos('PREP_', ExtractFileName(sChkPath)) = 1 then
+ exit;
+ // -----------------------------------------------------------------------
+
+ // 캐시 폴더이고 이미지면 무시 23_0720 16:23:04 kku
+ if (Pos('\MICROSOFT\WINDOWS\INETCACHE\', sChkPath) > 0) and
+ (Pos(sExt, IMAGE_EXTS) > 0) then exit;
+
+ if CompareText('HEARTBEATCACHE.XML', sFName) = 0 then
+ exit;
+
+ if sExt = 'DAT' then
+ begin
+ if Pos('ExchangePerf', sFName) = 1 then
+ exit;
+
+ // 8A9FF65F.dat 이런 형식의 첨부파일 캐시 넘기기 23_0511 14:11:17 kku
+ if StrToInt64Def('$' + CutFileExt(sFName), 0) > 0 then
+ exit;
+ end;
+ end;
+
+ catWebb :
+ begin
+ if bDoLog then LogToReg('Step6', '6');
+ if gAppHook.Helper.IgrAttBlkWebFiles.IndexOf(sFName) <> -1 then
+ exit;
+ end;
+
+ else begin
+ if (CompareText(gAppHook.ModuleName, 'slack.exe') = 0) and
+ (CompareText(sFName, 'package.json') = 0) then exit;
+ end;
+ end;
+
+ if bDoLog then LogToReg('Step7', '7');
+
+// {$IFDEF DEBUG}
+// var dwAttr: DWORD := GetFileAttributes(PChar(sPath));
+// gAppHook.Log(Format('CheckBlockFile() .. Path=%s .. Attr=%d, Acc=%d, Mode=%d, 1=%d, 2=%d', [sPath, dwAttr, dwDesiredAccess, dwMode, dw1, dw2]));
+//// if dwAttr > 8000 then // 8449, 8480, 8224...
+//// gAppHook.Log(Format('CheckBlockFile() .. Path=%s .. Download, Attr=%d', [sPath, dwAttr]))
+//// else
+//// gAppHook.Log(Format('CheckBlockFile() .. Path=%s .. Upload, Attr=%d', [sPath, dwAttr]));
+// exit;
+// {$ENDIF}
+
+ {$IFDEF _BS1HP_}
+ FileUseBlock := gAppHook.Helper.CtrlOpt.FileUseBlock;
+ var bBlockIf: Boolean := true;
+
+// if bIsNetPath and gAppHook.Helper.CtrlOpt.bIgrNetPathAB then
+// begin
+// FileUseBlock := fubMonitor;
+// bBlockIf := false;
+// end;
+
+ if bDoLog then LogToReg('Step8', '8');
+
+ if gAppHook.Helper.CurAppType <> catOutlook then
+ begin
+
+ end;
+
+ case gAppHook.Helper.CurAppType of
+ catWebb :
+ begin
+ // 아래 왜 해놓은지 기억이 안니지만...
+ // 이거 활성화 하면 다운로드 차단 후 다시 다운로드 시도하면 차단하지 못하는 문제 발생됨 24_1031 10:42:44 kku
+// if (sExt = 'TMP') and (CountStr(sFName, '-') = 4) then
+// exit;
+
+// if dwShareMode = 5 then
+// begin
+// // FILE_SHARE_READ 0x00000001, FILE_SHARE_WRITE 0x00000002, FILE_SHARE_DELETE 0x00000004
+// // 브라우저에서 다운로드 받은 파일은 5로 확인됨 (FILE_SHARE_READ, FILE_SHARE_DELETE)
+// // 그 외 일반 업로드 시 3 (FILE_SHARE_READ, FILE_SHARE_WRITE)
+// // 특이점으로 gmail은 7 (FILE_SHARE_READ, FILE_SHARE_WRITE, FILE_SHARE_DELETE)
+// exit;
+// end;
+
+// var pt: TPoint;
+// GetCursorPos(pt);
+// var h: HWND := WindowFromPoint(pt);
+// var r: TRect;
+// ZeroMemory(@r, SizeOf(r));
+// GetWindowRect(h, r);
+// LogToReg('MouseWnd', Format('H=%d, W=%d, H=%d', [h, r.Width, r.Height]));
+
+ if bBlockIf and gAppHook.Helper.CtrlOpt.bCheckUrl then
+ begin
+ var O: ISuperObject := SO;
+ O.S['ext'] := sExt;
+ O.I['pid'] := gAppHook.PID;
+ O.I['hwnd'] := gAppHook.Helper.CtrlOpt.hMainWnd;
+
+// if not gAppHook.Helper.CtrlOpt.bFileApproval and (sExt = 'PDF') then
+// begin
+// // 브라우저에서 PDF 파일 읽기면 허용하도록 추가 24_0814 10:29:17 kku
+// if SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_CHECK_URL, O.AsJSon) = 300 then
+// exit;
+// end;
+
+ if SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_CHECK_URL, O.AsJSon) = 300 then
+ begin
+ if FileUseBlock = fubBlock then
+ begin
+ FileUseBlock := fubMonitor; // 차단 대상이 아닐경우 로그 남기도록 기능 추가 24_0812 13:34:36 kku
+ bBlockIf := false; // 조건 더이상 따지지마라
+ end else exit;
+ end;
+
+ end;
+
+ if bBlockIf and gAppHook.Helper.CtrlOpt.bFileApproval then
+ begin
+ if SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_APPROVAL_FILE, sPath) = 300 then
+ begin
+ if FileUseBlock = fubBlock then
+ begin
+ FileUseBlock := fubMonitor; // 차단 대상이 아닐경우 로그 남기도록 기능 추가 24_0812 13:34:36 kku
+ bBlockIf := false; // 조건 더이상 따지지마라
+ end else exit;
+ end;
+ end;
+
+ if bDoLog then LogToReg('Step9', '9');
+ end;
+ catHwp,
+ catMsOffice,
+ catExplorer,
+ catAdobeReader : ;
+ else begin
+ if bBlockIf and gAppHook.Helper.CtrlOpt.bFileApproval then
+ begin
+ if SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_APPROVAL_FILE, sPath) = 300 then
+ begin
+ if FileUseBlock = fubBlock then
+ begin
+ FileUseBlock := fubMonitor; // 차단 대상이 아닐경우 로그 남기도록 기능 추가 24_0812 13:34:36 kku
+ bBlockIf := false; // 조건 더이상 따지지마라
+ end else exit;
+ end;
+ end;
+ end;
+ end;
+
+ if bBlockIf and gAppHook.Helper.CtrlOpt.bUseContentFilter then
+ begin
+ if bIsNetPath then
+ begin
+ if not gAppHook.Helper.CtrlOpt.bIgrNetPathAB then
+ begin
+ Result := true;
+ {$IFDEF _BS1HP_}
+ gAppHook.ProcessNoti(NOTI_HOOK_BLOCK_ATTACH, sPath, 2);
+ {$ENDIF}
+ exit;
+ end else
+ if FileUseBlock = fubBlock then
+ FileUseBlock := fubMonitor // 차단 대상이 아닐경우 로그 남기도록 기능 추가 24_0812 13:34:36 kku
+ end else
+ if bExistsFile then
+ begin
+ var O: ISuperObject := SO;
+ O.S['Path'] := sPath;
+ O.I['Type'] := Integer(gAppHook.Helper.CurAppType);
+ O.S['MName'] := gAppHook.ModuleName;
+ if SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd,
+ HPCMD_CHECK_CONTENT, O.AsString) <> 300 then
+ begin
+ if FileUseBlock = fubBlock then
+ FileUseBlock := fubMonitor // 차단 대상이 아닐경우 로그 남기도록 기능 추가 24_0812 13:34:36 kku
+ else exit;
+ end;
+ end;
+ end;
+
+ if bDoLog then LogToReg('Step10', '10');
+
+ var bDoPop: Boolean := false;
+
+// LogToReg('WebUp', Format('FName=%s, SM=%d', [sFName, dwShareMode]));
+ if (gAppHook.Helper.CurAppType = catWebb) and
+ not gAppHook.Helper.CtrlOpt.bWriteBlock then // 다운로드 차단이 아닐때만 체크 24_1031 10:37:07 kku
+ begin
+ if gAppHook.ThdWebABLog = nil then
+ begin
+ gAppHook.ThdWebABLog := TThdWebABLog.Create;
+ gAppHook.ThdWebABLog.StartThread;
+ end;
+
+ // 다운로드 파일을 브라우저로 열기해서 다른 프로그램으로 열리는 경우 무시 24_0828 09:53:52 kku
+ var h: HWND := GetForegroundWindow;
+ var sPName: String := GetProcessNameFromWndHandle(h);
+// LogToReg('Focuce', Format('H=%d, M=%s, P=%s', [h, gAppHook.ModuleName, sPName]));
+
+ if ( (dwShareMode = 5) or (CompareText(gAppHook.ModuleName, sPName) <> 0) ) and
+// if (CompareText(gAppHook.ModuleName, sPName) <> 0) and
+ (gAppHook.ThdWebABLog <> nil) then
+ begin
+ // 브라우저에서 다운로드 파일을 "열기" 하면 로그가 두번 발생하는데
+ // 첫번째 로그는 dwShareMode=3, 두번째 로그는 dwShareMode=7 확인된다.
+ // 열기는 제외하기 위해 7로 뜨면 기존꺼 삭제함 24_0328 08:22:36 kku
+
+ // dwShareMode = 7 에서 5로 바꿈... 이거 브라우저 업데이트 될때마다 바뀌는건지 확인 필요...
+
+ var n: Integer := gAppHook.ThdWebABLog.IndexOf(sPath);
+ if n > -1 then
+ begin
+ gAppHook.ThdWebABLog.Del(n);
+ exit;
+ end;
+ end;
+ end;
+
+ // 로그, 차단 분리해서 처리 하도록 보완 24_0325 14:54:32 kku
+ case FileUseBlock of
+ fubMonitor :
+ begin
+ if bDoLog then LogToReg('Step11', '11');
+// var bExistsFile: Boolean := GetFileAttributes(PChar(sPath)) <> INVALID_FILE_ATTRIBUTES;
+ // 읽기 체크
+ if gAppHook.Helper.CtrlOpt.bReadBlock then
+ begin
+ if bDoLog then LogToReg('Step11-1', '11');
+ if bExistsFile then
+ begin
+ case gAppHook.Helper.CurAppType of
+ catWebb :
+ begin
+ if sExt = 'CRDOWNLOAD' then
+ exit;
+
+ // if dwShareMode = 7 then
+ // begin
+ // gAppHook.AddWebABLog(sPath);
+ // exit;
+ // end;
+ end;
+ catOutlook :
+ begin
+ // exit; // 사용하지 않음 24_0326 14:56:28 kku
+ // 티맵에서 사용... 24_0520 13:38:00 kku
+
+ // 다운로드는 한번, 업로드는 경로 읽기가 여러번 발생한다 이걸 이용 24_0325 17:42:02 kku
+ // if gAppHook.Helper.sRecentWrBkPath_ = sPath then
+ // begin
+ // // 업로드 감지
+ // gAppHook.Helper.sRecentWrBkPath_ := '';
+ // end else
+ // if Pos('\CONTENT.OUTLOOK\', sChkPath) > 0 then
+ // begin
+ // // 여기서 한번 끝나면 다운로드, 두번 이상 발생되면 업로드
+ // gAppHook.Helper.sRecentWrBkPath_ := sPath;
+ // exit;
+ // end;
+
+ var dwAttr: DWORD := GetFileAttributes(PChar(sPath));
+ if dwAttr > 8000 then // 8449, 8480, 8224... Download
+ begin
+ exit;
+ end;
+
+ // 미리보기의 경우 dwAttr=128 일 수 있다. 한번더 체크 24_0326 13:59:02 kku
+ // if Pos(' (00', sFName) > 0 then
+ // exit;
+ end;
+ end;
+
+ if gAppHook.Helper.CurAppType <> catOutlook then
+ begin
+ if gAppHook.Helper.sRecentWrBkPath_ = sPath then
+ begin
+ gAppHook.Helper.sRecentWrBkPath_ := '';
+ exit;
+ end;
+ end;
+
+ bDoPop := ((dwDesiredAccess and GENERIC_ALL) <> 0) or ((dwDesiredAccess and GENERIC_READ) <> 0);
+ end else
+ if bIsNetPath then
+ begin
+ bDoPop := true;
+ if bDoLog then LogToReg('Step11-2', '11');
+ end;
+ end;
+
+ if bDoLog then LogToReg('Step12', BooleanToStr(bDoPop, 'Y', 'N'));
+
+ // 쓰기 체크
+ if not bDoPop and not bExistsFile then
+ begin
+ // 아웃룩 해당 없음
+
+ gAppHook.Helper.sRecentWrBkPath_ := sPath;
+
+// if gAppHook.Helper.CurAppType = catWebb then
+// begin
+// if sExt = 'TMP' then
+// exit;
+//
+// if Pos('DOWNLOAD', sPath.ToUpper) > 0 then
+// exit;
+// end;
+
+ if gAppHook.Helper.CtrlOpt.bWriteBlock then
+ bDoPop := bDoPop or ((dwDesiredAccess and GENERIC_ALL) <> 0) or ((dwDesiredAccess and GENERIC_WRITE) <> 0);
+ end;
+
+ if bDoPop then
+ begin
+ if bDoLog then LogToReg('Step13', '13');
+ if (gAppHook.Helper.CurAppType = catWebb) and (gAppHook.ThdWebABLog <> nil) then
+ begin
+ if bDoLog then LogToReg('Step14', '14');
+ gAppHook.ThdWebABLog.Add(sPath, BooleanToInt(bExistsFile or bIsNetPath, 1, 0), false);
+// if gAppHook.Helper.CurAppType = catWebb then
+// gAppHook.AddWebABLog(sPath)
+ end else
+ gAppHook.ProcessNoti(NOTI_HOOK_MONITOR_ATTACH, sPath, BooleanToInt(bExistsFile or bIsNetPath, 1, 0), true);
+ end;
+
+ exit;
+ end;
+ fubBlock :
+ begin
+// if gAppHook.Helper.CurAppType = catWebb then
+// begin
+//// if GetFileAttributes(PChar(sPath)) <> INVALID_FILE_ATTRIBUTES then
+// begin
+// if gAppHook.ThdWebABLog = nil then
+// begin
+// gAppHook.ThdWebABLog := TThdWebABLog.Create;
+// gAppHook.ThdWebABLog.StartThread;
+// end;
+//
+// LogToReg('Step-01', sPath);
+// LogToReg('Step-02', IntToStr(dwShareMode));
+// if (dwShareMode = 7) and (gAppHook.ThdWebABLog <> nil) then
+// begin
+// // 브라우저에서 다운로드 파일을 "열기" 하면 로그가 두번 발생하는데
+// // 첫번째 로그는 dwShareMode=3, 두번째 로그는 dwShareMode=7 확인된다.
+// // 열기는 제외하기 위해 7로 뜨면 기존꺼 삭제함 24_0328 08:22:36 kku
+// gAppHook.ThdWebABLog.Del(sPath);
+// LogToReg('Step-03', sPath);
+// exit;
+// end;
+// end;
+// end;
+
+ if bDoLog then LogToReg('Step14', '14');
+ // 읽기 체크
+ if gAppHook.Helper.CtrlOpt.bReadBlock then
+ bDoPop := ((dwDesiredAccess and GENERIC_ALL) <> 0) or ((dwDesiredAccess and GENERIC_READ) <> 0);
+
+ // 쓰기 체크
+ if gAppHook.Helper.CtrlOpt.bWriteBlock then
+ bDoPop := bDoPop or not bExistsFile or ((dwDesiredAccess and GENERIC_ALL) <> 0) or ((dwDesiredAccess and GENERIC_WRITE) <> 0);
+
+ if bDoPop then
+ begin
+ if (gAppHook.Helper.CurAppType = catWebb) and (gAppHook.ThdWebABLog <> nil) then
+ begin
+ gAppHook.ThdWebABLog.Add(sPath, BooleanToInt(bExistsFile or bIsNetPath, 1, 0), true);
+ end else
+ gAppHook.ProcessNoti(NOTI_HOOK_BLOCK_ATTACH, sPath, BooleanToInt(bExistsFile or bIsNetPath, 1, 0), true);
+ end else exit; // 대상 아니면 차단 안되게 넘김 24_0122 15:57:56 kku
+ end;
+ end;
+ {$ENDIF}
+
+ Result := true;
+ except
+ // ...
+ end;
+end;
+
+function ProcessEncFile(sPath: String; dwDesiredAccess, dwShareMode: DWORD;
+ lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition,
+ dwFlagsAndAttributes: DWORD; hTemplateFile: THandle): THandle; inline;
+var
+ ms: TMemoryStream;
+ dec: TTgDrmDec;
+ dwTemp: DWORD;
+ sExt, sFName,
+ sVirtualPath: String;
+ hFile: THandle;
+// llSize: LONGLONG;
+ bChgRO,
+ bModifyAble,
+ bDecSuccess: Boolean;
+// h: HWND;
+ pDrmFI: PDrmFileInfo;
+ dwFlags: DWORD;
+ dwFileAttr: DWORD;
+ HeadInfo: TDrmHeadInfo;
+ backupPath: string;
+begin
+ Result := 0;
+
+ dec := nil;
+ backupPath:= sPath;
+
+ if (sPath.Length > 5) and sPath.StartsWith('\\?\') and (sPath[6] = ':') then
+ Delete(sPath, 1, 4);
+
+// if sPath.StartsWith('\\') then
+// exit;
+ if gAppHook = nil then
+ exit;
+
+// gAppHook.Log('ProcessEncFile() .. ');
+ ZeroMemory(@HeadInfo, SizeOf(HeadInfo));
+ try
+ try
+ // 파일 열기 창에서 DRM 체크 안하도록 보완 22_1014 09:56:05 kku
+ case dwDesiredAccess of
+ 0, $80, GENERIC_WRITE : exit;
+ end;
+//
+ if CompareText(gAppHook.ModuleName, 'hwpviewer.exe') = 0 then
+ begin
+ var sExtTmp := ExtractFileExt(sPath);
+
+ if (CompareText(sExtTmp, '.hwp') <> 0) and
+ (CompareText(sExtTmp, '.hwpx') <> 0) then
+ begin
+ Exit;
+ end;
+ end
+ else
+ begin
+ dwFlags := dwFlagsAndAttributes;//GetFileAttributes(PChar(sPath));
+ if (dwFlags and FILE_ATTRIBUTE_DIRECTORY) <> 0 then
+ exit;
+ end;
+
+ if (not gAppHook._bLogProcessing and not gAppHook._bInternalOpen) then
+ begin
+ {$IFDEF USE_BOXAPP}
+ // DEF_BOXEDAPPSDK_OPTION__ALL_CHANGES_ARE_VIRTUAL 옵션을 사용해서
+ // 기타 가상 파일이 있을 수 있으므로 이걸로 판별하면 안된다. 22_1128 15:17:31 kku
+ // if gAppHook.bUseBoxedApp_ and BoxedAppSDK_IsVirtualFile(PChar(sPath)) then
+ // begin
+ // sVirtualPath := sPath;
+ // end else
+ if gAppHook.Helper.IsDrmUseBoxedApp and gAppHook.Helper.DcDecPath.ContainsKey(sPath) then
+ begin
+ sVirtualPath := gAppHook.Helper.DcDecPath[sPath];
+ end else
+ {$ENDIF}
+ begin
+ sVirtualPath := '';
+ bDecSuccess := false;
+ sFName := ExtractFileName(sPath);
+ if sFName = '' then
+ exit;
+
+ sExt := GetFileExt(sFName).ToUpper;
+ if sExt = '' then
+ exit;
+
+// if not ForceDirectories(gAppHook.Helper.CtrlOpt.sTaskDir) then
+// exit;
+
+// if (gAppHook.Helper.CurAppType = catMsOffice) and sFName.StartsWith('~$') then
+// if (gAppHook.Helper.CurAppType = catMsOffice) and (sFName.StartsWith('~')) then
+ if (gAppHook.Helper.CurAppType = catMsOffice) and (sFName.StartsWith('~$') or sFName.StartsWith('~W')) then
+ begin
+ exit;
+ end;
+
+ // 이거 예외 안하면 DOC 파일의 경우 편집이 불가능하게 변경 됨 25_1030 13:29:06 kku
+ if (gAppHook.Helper.CurAppType = catMsOffice) and (sExt = 'DOC') and
+ (Pos('\AC\TEMP\', UpperCase(sPath)) > 0) then exit;
+
+ // 공유 폴더에서 HWP에서 열기 임시 파일 만들어서 열람함 25_0226 11:01:52 kku
+// if (gAppHook.Helper.CurAppType = catHwp) and sPath.ToUpper.Contains('\TEMP\HNC\LOCALFILE\') then
+// exit;
+
+ // _TgDrmHook.Log(Format('Check Ext .. FName=%s', [sFName]));
+ if gAppHook.Helper.DrmExtList.IndexOf(sExt) = -1 then
+ exit;
+
+ // _TgDrmHook.Log(Format('Check Ext Success .. FName=%s', [sFName]));
+ bModifyAble := true;
+ try
+ gAppHook._bInternalOpen := true;
+ ms := TMemoryStream.Create;
+ try
+ case gAppHook.Helper.CurAppType of
+ catHwp,
+ catMsOffice :
+ begin
+ if (gAppHook.Helper.RecentDrmFI_.sOrgPath <> '') and
+ (CompareText(gAppHook.Helper.RecentDrmFI_.sOrgPath, sPath) = 0) and
+ not TTgEncrypt.CheckSign(sPath, SIG_DRM) then
+ begin
+// if GetFileExt(sFName).ToUpper = 'DOC' then
+// exit;
+
+ gAppHook.Helper.RecentDrmFI_.sOrgPath := '';
+ var sTemp: String := gAppHook.Helper.CtrlOpt.sTaskDir + ExtractFileName(sPath) + '.etmp';
+
+ if MoveFile_wait(sPath, sTemp, 3) then
+ begin
+ var enc: TTgDrmEnc;
+ Guard(enc, TTgDrmEnc.Create(sPath));
+ with gAppHook.Helper.RecentDrmFI_.HeadInfo do
+ begin
+ if enc.SetHaed(PASS_DRM_HEAD, SIG_DRM, sEmpNo, sHostName, sPartName, sPgName, dwCustomerCode) then
+ if enc.EncryptFromFile(DecText(gAppHook.Helper.CtrlOpt.sDrmPass), sTemp) then
+ DeleteFile(PChar(sTemp));
+ end;
+ end;
+ end;
+ end;
+ end;
+
+
+
+ if TTgEncrypt.CheckSign(sPath, SIG_DRM) then
+ begin
+ // _TgDrmHook.Log(Format('FileSize=%d', [fs.Size]));
+ dec := TTgDrmDec.Create(sPath);
+ try
+ if not dec.CheckSig(SIG_DRM) then
+ begin
+// _TgDrmHook.Log(Format('Fail .. CheckSign(), FName=%s', [sFName]));
+ exit;
+ end else begin
+ gAppHook.Log(Format('Success .. CheckSign(), FName=%s', [sFName]));
+ end;
+
+ // HWP에서는 딜레이를 줘야 파일을 인식함... 25_0226 11:16:59 kku
+ if gAppHook.Helper.CurAppType = catHwp then
+ Sleep(100);
+
+ if not dec.ExtrHead(PASS_DRM_HEAD) then
+ begin
+ gAppHook.Log('Fail .. ExtrHead()');
+ exit;
+ end;
+
+ if dec.Head.dwCustomerCode <> gAppHook.Helper.CtrlOpt.dwCustomerType then
+ begin
+ {$IFDEF _BS1HP_}
+ // gAppHook.ProcessNoti(NOTI_HOOK_BLOCK_DRM_CT, sPath + Format('-%d=%d', [DrmHead.dwCustomerCode, gAppHook.Helper.CtrlOpt.dwCustomerType]));
+ gAppHook.ProcessNoti(NOTI_HOOK_BLOCK_DRM_CT, sPath, 0);
+ {$ENDIF}
+ exit;
+ end;
+
+// LogToReg('DRM-05', Format('Path=%s', [sPath]));
+
+ {$IFDEF _BS1HP_}
+ // LogToReg('DRM-01', Format('EmpNo=%s, DrmEmpNo=%s', [dec.EmpNo, gAppHook.Helper.CtrlOpt.sEmpNo]));
+ // LogToReg('DRM-02', Format('PartName=%s, DeptName=%s', [dec.PartName, gAppHook.Helper.CtrlOpt.sDeptName]));
+ case gAppHook.Helper.CtrlOpt.DrmAccessKind of
+ dakEmpNo :
+ begin
+ // LogToReg('DRM-EmpNo-1', Format('EmpNo=%s, DrmEmpNo=%s', [dec.EmpNo, gAppHook.Helper.CtrlOpt.sEmpNo]));
+ if CompareText(dec.EmpNo, gAppHook.Helper.CtrlOpt.sEmpNo) <> 0 then
+ begin
+ gAppHook.ProcessNoti(NOTI_HOOK_BLOCK_DRM, sPath, 0);
+ exit;
+ end;
+ end;
+ dakDept :
+ begin
+ // LogToReg('DRM-Dept-1', Format('EmpNo=%s, DrmEmpNo=%s', [dec.EmpNo, gAppHook.Helper.CtrlOpt.sEmpNo]));
+ // LogToReg('DRM-Dept-2', Format('PartName=%s, DeptName=%s', [dec.PartName, gAppHook.Helper.CtrlOpt.sDeptName]));
+ if (CompareText(dec.EmpNo, gAppHook.Helper.CtrlOpt.sEmpNo) <> 0) and
+ (CompareText(dec.PartName, gAppHook.Helper.CtrlOpt.sDeptName) <> 0) then
+ begin
+ gAppHook.ProcessNoti(NOTI_HOOK_BLOCK_DRM, sPath, 0);
+ exit;
+ end;
+ end;
+ end;
+ {$ENDIF}
+
+ if not dec.DecryptToStream(DecText(gAppHook.Helper.CtrlOpt.sDrmPass), ms) then
+ begin
+ gAppHook.Log('Fail .. DecryptToStream()');
+ exit;
+ end;
+
+
+ if (sExt = 'TXT') or (sExt = 'PDF') or (sExt = 'HWP') then
+ begin
+ ms.Position := 0;
+ _sEncFileHash := GetStreamToSha1Str(ms);
+ // ms.SaveToFile(sPath + '.bak');
+ // LogToReg('FHash1', Format('Hash1 = %s (%d)', [_sEncFileHash, ms.Size]));
+ ms.Position := 0;
+ end else
+ _sEncFileHash := '';
+
+ gAppHook.Helper.dwRecentOpenCustomType_ := dec.Head.dwCustomerCode;
+ gAppHook.Helper.sRecentOpenPath_ := sPath;
+ gAppHook.Helper.sRecentOpenEmpNo_ := dec.EmpNo;
+ gAppHook.Helper.sRecentOpenDeptName_ := dec.PartName;
+
+ HeadInfo.sEmpNo := dec.EmpNo;
+ HeadInfo.sHostName := dec.HostName;
+ HeadInfo.sPartName := dec.PartName;
+ HeadInfo.sPgName := dec.PolicyGroup;
+ HeadInfo.dwCustomerCode := dec.Head.dwCustomerCode;
+
+ {$IFDEF _BS1HP_}
+ case gAppHook.Helper.CtrlOpt.DrmModifyKind of
+ dakNone : bModifyAble := false;
+ dakEmpNo : bModifyAble := CompareText(dec.EmpNo, gAppHook.Helper.CtrlOpt.sEmpNo) = 0;
+ dakDept : bModifyAble := (CompareText(dec.EmpNo, gAppHook.Helper.CtrlOpt.sEmpNo) = 0) or (CompareText(dec.PartName, gAppHook.Helper.CtrlOpt.sDeptName) = 0);
+ end;
+ {$ELSE}
+ bModifyAble := true;
+ {$ENDIF}
+// LogToReg('DRM-MOD', Format('%s', [BooleanToStr(bModifyAble, 'YES', 'NO')]));
+ finally
+ FreeAndNil(dec);
+
+ if (sExt = 'DOC') and bModifyAble then
+ begin
+ // DOC는 이렇게 원본파일을 복호화 해놓고 처리 25_1030 14:18:42 kku
+ ms.SaveToFile(sPath);
+ ms.Position := 0;
+ end;
+ end;
+
+ {$IFDEF USE_BOXAPP}
+ if not bModifyAble then
+ BoxedAppSDK_EnableOption(DEF_BOXEDAPPSDK_OPTION__ALL_CHANGES_ARE_VIRTUAL, TRUE);
+ {$ELSE}
+ // if not bModifyAble then
+ // begin
+ // var nAttr: Integer := FileGetAttr(sPath);
+ // if (nAttr and faReadOnly) = 0 then
+ // FileSetAttr(sPath, nAttr or faReadOnly);
+ // end;
+ {$ENDIF}
+
+ bDecSuccess := true;
+ end;
+ finally
+ if bDecSuccess then
+ begin
+ var sWorkDir: String := gAppHook.Helper.CtrlOpt.sTaskDir;
+ if sWorkDir = '' then
+ begin
+ sWorkDir := 'C:\ProgramData\HE\Desk\';
+ if not ForceDirectories(sWorkDir) then
+ sWorkDir := '';
+ end;
+ {$IFDEF USE_BOXAPP}
+ if gAppHook.Helper.IsDrmUseBoxedApp then
+ begin
+ BoxedAppSDK_EnableOption(DEF_BOXEDAPPSDK_OPTION__ALL_CHANGES_ARE_VIRTUAL, TRUE);
+
+ sVirtualPath := sWorkDir + 'V@' + sFName;
+ // sVirtualPath := '@TgDRM\' + ExtractFilePath(sPath) + sFName;
+ // sVirtualPath := ExtractFilePath(sPath) + Format('#%d_%s', [GetTickCount, sFName]);
+
+ // 가상 파일 생성
+ hFile := BoxedAppSDK_CreateVirtualFile(PChar(sVirtualPath),
+ GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_NEW, FILE_ATTRIBUTE_HIDDEN, 0);
+ // GENERIC_WRITE, dwShareMode, lpSecurityAttributes, CREATE_NEW, dwFlagsAndAttributes {FILE_ATTRIBUTE_HIDDEN}, hTemplateFile);
+
+ end else
+ {$ENDIF}
+ begin
+ if (sExt = 'DOC') and bModifyAble then
+ begin
+ Result := ozCreateFileW(PChar(sPath), dwDesiredAccess, dwShareMode, lpSecurityAttributes, dwCreationDisposition,
+ dwFlagsAndAttributes, hTemplateFile);
+ end else begin
+ sVirtualPath := sWorkDir + Format('#%d_%s', [GetTickCount, sFName]);
+
+ // LogToReg('DRM-VTPATH', Format('Path=%s', [sVirtualPath]));
+ // LogToReg('DRM-KEY', Format('Path=%s', [gAppHook.Helper.CtrlOpt.sDrmPass]));
+
+ // 가상 파일 생성
+ hFile := ozCreateFileW(PChar(sVirtualPath),
+ GENERIC_WRITE or GENERIC_READ, dwShareMode, nil, CREATE_ALWAYS { CREATE_NEW } ,
+ FILE_ATTRIBUTE_HIDDEN or FILE_FLAG_DELETE_ON_CLOSE, 0);
+ // FILE_ATTRIBUTE_HIDDEN, 0);
+
+ end;
+ end;
+
+ if (hFile <> 0) and (hFile <> INVALID_HANDLE_VALUE) then
+ begin
+ WriteFile(hFile, ms.Memory^, ms.Size, dwTemp, nil);
+
+ {$IFDEF USE_BOXAPP}
+ if gAppHook.Helper.IsDrmUseBoxedApp then
+ gAppHook.Helper.DcDecPath.Add(sPath, sVirtualPath);
+ {$ENDIF}
+ if FileSeek(hFile, 0, 0) = 0 then
+ Result := hFile
+ else
+ CloseHandle(hFile);
+ end;
+ end;
+ ms.Free;
+ gAppHook._bInternalOpen := false;
+ end;
+
+ {$IFDEF _BS1HP_}
+ if (sExt = 'DOC') and (Result <> 0) and bModifyAble then
+ begin
+ var hRcvWnd: HWND := gAppHook.Helper.CtrlOpt.hRcvWnd;
+ if hRcvWnd = 0 then
+ hRcvWnd := StrToIntDef(GetRegValueAsString(HKEY_CURRENT_USER, 'Software\eCrmHomeEdition', 'RW'), 0);
+ if hRcvWnd > 0 then
+ begin
+ var O: ISuperObject := SO;
+ O.S['S'] := sPath;
+ O.I['D'] := 2;
+ SendCopyData(hRcvWnd, HPCMD_REQ_ENCRYPT, O.AsJSon);
+ end;
+// LogToReg('DRM-0000', 'HPCMD_REQ_ENCRYPT->' + IntToStr(hRcvWnd));
+ end;
+ {$ENDIF}
+ except
+ // ..
+ sVirtualPath := '';
+ end;
+ end;
+
+ if (Result = 0) and (sVirtualPath <> '') then
+ begin
+ {$IFDEF USE_BOXAPP}
+ if gAppHook.Helper.IsDrmUseBoxedApp then
+ begin
+ Result := ozCreateFileW(PChar(sVirtualPath), dwDesiredAccess, dwShareMode, lpSecurityAttributes, dwCreationDisposition,
+ dwFlagsAndAttributes, hTemplateFile);
+ end else
+ {$ELSE}
+ begin
+ Result := ozCreateFileW(PChar(sVirtualPath), dwDesiredAccess, 0, lpSecurityAttributes, dwCreationDisposition,
+ dwFlagsAndAttributes or FILE_FLAG_DELETE_ON_CLOSE, hTemplateFile);
+ end;
+ {$ENDIF}
+ end;
+
+ if (Result <> 0) and (Result <> INVALID_HANDLE_VALUE) then
+ begin
+ {$IFDEF _BS1HP_}
+ if bModifyAble then
+ begin
+ gAppHook.ProcessNoti(NOTI_HOOK_OPEN_DRM, sPath, 0)
+ end else begin
+ gAppHook.ProcessNoti(NOTI_HOOK_OPEN_DRM_NO_MODIFY, sPath, 0);
+// gAppHook.Helper.AddIgrWriteFile(Result);
+ end;
+ {$ENDIF}
+
+ if gAppHook.Helper.DcDrmFI.ContainsKey(Result) then
+ begin
+ gAppHook.Log('Fail .. ProcessEncFile() .. Already Handle??');
+ {$IFDEF DEBUG}
+ ASSERT(false);
+ {$ELSE}
+ exit;
+ {$ENDIF};
+ end;
+
+ bChgRO := false;
+// {$IFNDEF USE_BOXAPP}
+// if not bModifyAble then
+// begin
+// var nAttr: Integer := FileGetAttr(sPath);
+// if (nAttr and faReadOnly) = 0 then
+// begin
+// FileSetAttr(sPath, nAttr or faReadOnly);
+// bChgRO := true;
+// end;
+// end;
+// {$ENDIF}
+
+ New(pDrmFI);
+ ZeroMemory(pDrmFI, SizeOf(TDrmFileInfo));
+ pDrmFI.hFile := Result;
+ pDrmFI.sOrgPath := sPath;
+ pDrmFI.sDecPath := sVirtualPath;
+ pDrmFI.bModifyAble := bModifyAble;
+ pDrmFI.bChgRO := bChgRO;
+
+ if HeadInfo.dwCustomerCode <> 0 then
+ begin
+ pDrmFI.HeadInfo := HeadInfo;
+
+// LogToReg('DRM-FI-01', Format('EmpNo=%s', [pDrmFI.HeadInfo.sEmpNo]));
+// LogToReg('DRM-FI-02', Format('PartName=%s', [pDrmFI.HeadInfo.sPartName]));
+ end;
+
+ pDrmFI.bModified := true;
+ gAppHook.Helper.DcDrmFI.Add(Result, pDrmFI);
+ end;
+ end;
+ except
+ // ..
+ end;
+ finally
+ if Result = 0 then
+ begin
+ Result := ozCreateFileW(PChar(backupPath), dwDesiredAccess, dwShareMode, lpSecurityAttributes, dwCreationDisposition,
+ dwFlagsAndAttributes, hTemplateFile);
+ end;
+
+ {$IFDEF _BS1HP_}
+ case gAppHook.Helper.CtrlOpt.dwCustomerType of
+ CUSTOMER_DEMO,
+ CUSTOMER_DEV :
+ begin
+ case dwDesiredAccess of
+ 0, $80, GENERIC_WRITE : ;
+ else begin
+ if (dwFlags and FILE_ATTRIBUTE_DIRECTORY) = 0 then
+ begin
+ if gAppHook.DocExtList.IndexOf(GetFileExt(sPath)) <> -1 then
+ gAppHook.ProcessNoti(NOTI_HOOK_OPEN_DOC, sPath, 0)
+ end;
+ end;
+ end;
+ end;
+ end;
+ {$ENDIF}
+ end;
+end;
+
+function ProcessFileHook(sPath: String; dwDesiredAccess, dwShareMode: DWORD;
+ lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition,
+ dwFlagsAndAttributes: DWORD; hTemplateFile: THandle): THandle; inline;
+var
+ bMtpWB,
+ bIgrRead,
+ bIgrWrite: Boolean;
+ bMtpOpen: Boolean;
+ dwFlags: DWORD;
+ sChkPath: String;
+begin
+ Result := 0; // INVALID_HANDLE_VALUE;
+// 하나의 프로시저에서 끝내야 안전성이 높아서 보안 처리 22_1228 14:39:16 kku
+
+ bIgrRead := false;
+ bIgrWrite := false;
+ bMtpOpen := false;
+
+ try
+ if (gAppHook <> nil) and
+ ( ((gAppHook.Helper.CurAppType = catAdobeReader) and
+// (GetFileExt(sPath).ToUpper <> 'PDF')) ) then
+ (GetFileExt(sPath).ToUpper <> 'PDF')) or
+ gAppHook._bInternalOpen ) then
+ begin
+ Result := ozCreateFileW(PChar(sPath), dwDesiredAccess, dwShareMode, lpSecurityAttributes,
+ dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile);
+ exit;
+ end;
+
+ sChkPath := sPath.ToUpper;
+
+ bMtpWB := gAppHook.Helper.CtrlOpt.bMtpWB and (Pos('\\.\PIPE\', sChkPath) = 0); // cloudium 가상 드라이브 예외 처리 25_0925 12:07:53 kku
+ if bMtpWB then
+ begin
+ if (gAppHook._dwMtpTick > 0) and ((GetTickCount - gAppHook._dwMtpTick) < 1500) then
+ begin
+ gAppHook._dwMtpTick := GetTickCount // MTP로 인지하고 1.5초안지나면 계속 MTP로 이동하는 파일로 인지 24_0604 16:23:13 kku
+ end else begin
+ gAppHook._hMTP := 0;
+ gAppHook._sMtpDev := '';
+ gAppHook._dwMtpTick := 0;
+ end;
+ end;
+
+ // USB 저장소 = \\?\STORAGE#Volume#{8f8d27bb-4dd9-11ee-bd39-806e6f6e6963}#0000000001000000#{53f5630d-b6bf-11d0-94f2-00a0c91efb8b}
+ // 고정 드라이브 = \\?\Volume{30c55c29-4415-494d-9e10-028b93f0127b}
+ // MTP 이미지 전송 = \\?\usb#vid_04e8&pid_6865#r3ct80nyn8y#{6ac27878-a6fa-4155-ba85-f98f491d4f33}
+ // MTP 파일 전송 = \\?\usb#vid_04e8&pid_6860&ms_comp_mtp&samsung_android#7&636b8ec&50&0000#{6ac27878-a6fa-4155-ba85-f98f491d4f33}
+ if bMtpWB and (gAppHook._dwMtpTick = 0) and
+ (Pos('\\?\USB', sChkPath) = 1) then // and (Pos('mtp', sChkPath) > 0) then // MTP 이미지 전송도 읽기만 가능하기 위해 수정 24_0625 13:54:04 kku
+ begin
+ var bBlock := true;
+ if gAppHook.Helper.MtpRoExpList.Count > 0 then
+ begin
+ var i: Integer;
+ for i := 0 to gAppHook.Helper.MtpRoExpList.Count - 1 do
+ begin
+ if Pos(gAppHook.Helper.MtpRoExpList[i], sChkPath) > 0 then
+ begin
+ bBlock := false;
+ break;
+ end;
+ end;
+ end;
+
+ if bBlock then
+ begin
+ // 보완 필요... 24_0305 16:23:02 kku
+ bMtpOpen := true;
+ gAppHook._sMtpDev := sPath;
+ gAppHook._dwMtpTick := GetTickCount;
+ LogToReg2('Step-MTP0', sPath);
+ end;
+ end;
+
+// var bLog: Boolean := false; //(Pos('C:\PROGRAMDATA\', sChkPath) = 0) and (Pos('C:\USERS\', sChkPath) = 0);
+// if bLog then
+// LogToReg('Step-MTP001', sPath);
+
+ if (Pos('\\.\PIPE\', sChkPath) = 0) and
+ ( (gAppHook.Helper.CtrlOpt.FileUseBlock <> fubNone) or bMtpWB) then
+ begin
+ // MTP 읽기만 사용 시 123.456 처럼 .이 있는 폴더가 차단됨..
+ // 폴더는 무시하도록 기능 보완 24_0620 19:17:20 kku
+ if gAppHook.Helper.CurAppType = catExplorer then
+ dwFlags := GetFileAttributes(PChar(sPath))
+ else
+ dwFlags := 0;
+
+ if ((dwFlags and FILE_ATTRIBUTE_DIRECTORY) = 0) and CheckBlockFile(dwDesiredAccess, dwShareMode, dwCreationDisposition, dwFlagsAndAttributes, sPath) then
+ begin
+ if CompareText(gAppHook.ModuleName, 'firefox.exe') = 0 then
+ begin
+ // 파이어폭스는 아래처럼 처리하면 차단이 안된다... 25_0424 10:48:54 kku
+ exit;
+ end;
+
+// LogToReg('Step-MTP1', sPath);
+ // {$IFDEF DEBUG}
+ // bIgrRead := true;
+ // bIgrWrite := true;
+
+ // MTP 쓰기 차단, 차단정책이 있으면 explorer.exe만 bMtpWB에 true가 들어감 24_0304 16:43:12 kku
+// if bMtpWB then
+// exit;
+
+ // 읽기 차단
+ if ((gAppHook.Helper.CtrlOpt.FileUseBlock = fubBlock) and gAppHook.Helper.CtrlOpt.bReadBlock) or
+ (bMtpWB and (gAppHook._sMtpDev <> '')) then
+ begin
+ if (dwDesiredAccess and GENERIC_ALL) <> 0 then
+ dwDesiredAccess := (dwDesiredAccess - GENERIC_ALL) + GENERIC_WRITE + GENERIC_EXECUTE
+ else if (dwDesiredAccess and GENERIC_READ) <> 0 then
+ dwDesiredAccess := dwDesiredAccess - GENERIC_READ;
+ end;
+
+ // 쓰기 차단
+ if ((gAppHook.Helper.CtrlOpt.FileUseBlock = fubBlock) and gAppHook.Helper.CtrlOpt.bWriteBlock) or
+ (bMtpWB and (gAppHook._sMtpDev <> '')) then
+ begin
+ if (dwDesiredAccess and GENERIC_ALL) <> 0 then
+ dwDesiredAccess := (dwDesiredAccess - GENERIC_ALL) + GENERIC_READ + GENERIC_EXECUTE
+ else if (dwDesiredAccess and GENERIC_WRITE) <> 0 then
+ dwDesiredAccess := dwDesiredAccess - GENERIC_WRITE;
+ end;
+ // {$ELSE}
+ // exit;
+ // {$ENDIF}
+ end;
+ end;
+
+ if (gAppHook.Helper.CurAppType <> catExplorer) and
+ gAppHook.Helper.IsDrmSupport and (gAppHook.Helper.CtrlOpt.DrmAccessKind <> dakNone) then
+// {$IFDEF _BS1HP_} and MutexExists(MUTEX_SHELL_DRMOPEN) {$ENDIF} then
+ begin
+ // 인터넷 다운로드 파일의 경우 ADS 삭제 24_1121 09:15:36 kku
+ if {(Result <> 0) and} (gAppHook.Helper.CurAppType = catMsOffice) and
+ FileExists(sPath + ':Zone.Identifier:$DATA') then
+ begin
+ DeleteFile(sPath + ':Zone.Identifier:$DATA');
+ end;
+
+ Result := ProcessEncFile(sPath, dwDesiredAccess, dwShareMode,
+ lpSecurityAttributes, dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile);
+ end;
+ except
+ // ..
+ end;
+
+ if Result = 0 then
+ begin
+ Result := ozCreateFileW(PChar(sPath), dwDesiredAccess, dwShareMode, lpSecurityAttributes,
+ dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile);
+ end;
+
+ if (Result <> 0) and (Result <> INVALID_HANDLE_VALUE) then
+ begin
+ // todo : 사용하지 않을거 같음 24_0122 14:18:29 kku
+ if bIgrRead then
+ gAppHook.Helper.AddIgrReadFile(Result);
+ if bIgrWrite then
+ gAppHook.Helper.AddIgrWriteFile(Result);
+
+ if bMtpOpen then
+ begin
+ gAppHook._hMTP := Result;
+ gAppHook.Log('MTP Open ..');
+ LogToReg2('Step-MTP2', sPath);
+// gAppHook.Log(Format('MTP Open .. Title = %s', [GetWindowCaption(GetForegroundWindow)]));
+ end;
+ end;
+
+
+// 아래를 켜야 프린트 하는 파일 이름을 알아올 수 있다. (DLL이 붙기전에 열린 파일은 안됨)
+// 하지만 크롬, 엣지에서 크러쉬 되는 문제가 있어서 일단 닫아둔다. 22_1025 13:46:56 kku
+// if gAppHook.Helper.CtrlOpt.bPrintWater then
+// begin
+// if (Result <> 0) and (Result <> INVALID_HANDLE_VALUE) then
+// begin
+// if CompareText(PChar(gAppHook.sLogPath_), PChar(sPath)) = 0 then
+// exit;
+//
+// if Pos(GetFileExt(sPath).ToUpper, PRINT_PATH_EXT) = 0 then
+// exit;
+//
+// gAppHook.AddCreateFile(Result, sPath);
+//// if (gAppHook.OFList_ <> nil) and (gAppHook.OFList_.IndexOf(sPath) = -1) then
+//// gAppHook.OFList_.Add(sPath);
+// end;
+// end;
+end;
+
+function CreateFileAHook(lpFileName: PAnsiChar; dwDesiredAccess, dwShareMode: DWORD;
+ lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition,
+ dwFlagsAndAttributes: DWORD; hTemplateFile: THandle): THandle; stdcall;
+begin
+ Result := ProcessFileHook(StrPas(lpFileName), dwDesiredAccess, dwShareMode,
+ lpSecurityAttributes, dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile);
+end;
+
+function CreateFileWHook(lpFileName: PWideChar; dwDesiredAccess, dwShareMode: DWORD;
+ lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition,
+ dwFlagsAndAttributes: DWORD; hTemplateFile: THandle): THandle; stdcall;
+begin
+ Result := ProcessFileHook(StrPas(lpFileName), dwDesiredAccess, dwShareMode,
+ lpSecurityAttributes, dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile);
+end;
+
+function CloseHandleHook(hFile: THandle): BOOL; stdcall;
+var
+ pInfo: PDrmFileInfo;
+ enc: TTgDrmEnc;
+ hs: THandleStreamEx;
+ ms: TMemoryStream;
+ llSize: LONGLONG;
+ bDoEnc: Boolean;
+ sExt: String;
+// ms: TMemoryStream;
+begin
+ Result := FALSE;
+ try
+ if (gAppHook = nil) or (gAppHook.Helper = nil) then
+ exit;
+
+ if gAppHook._bInternalOpen then
+ begin
+ Result := ozCloseHandle(hFile);
+ exit;
+ end;
+
+ gAppHook.Helper.DelOgrReadFile(hFile);
+ gAppHook.Helper.DelOgrWriteFile(hFile);
+ gAppHook.DelCloseFile(hFile);
+
+ if gAppHook.Helper.DcDrmFI.ContainsKey(hFile) then
+ begin
+ pInfo := gAppHook.Helper.DcDrmFI[hFile];
+ sExt := GetFileExt(pInfo.sOrgPath).ToUpper;
+// if GetFileExt(pInfo.sOrgPath).ToUpper = 'DOC' then
+// begin
+// Result := ozCloseHandle(hFile);
+// exit;
+// end;
+
+ gAppHook._bInternalOpen := true;
+// gAppHook.Log(Format('CloseHandleHook() .. ProcessEncHandle, OrgPath=%s', [pInfo.sOrgPath]));
+// gAppHook.Log(Format('CloseHandleHook() .. ProcessEncHandle, DecPath=%s', [pInfo.sDecPath]));
+ try
+// LogToReg('Enc01', Format('CloseHandleHook() .. Path=%s', [pInfo.sOrgPath]));
+// LogToReg('DRM-ENC-00', ExtractFileName(pInfo.sOrgPath));
+ if gAppHook.Helper.IsForceEncSave or pInfo.bModified then
+ begin
+// LogToReg('DRM-ENC-00aaa', ExtractFileName(pInfo.sOrgPath));
+// if (sExt = 'DOC') then
+// begin
+// gAppHook.Helper.RecentDrmFI_.sOrgPath := pInfo.sOrgPath;
+// gAppHook.Helper.RecentDrmFI_.HeadInfo := pInfo.HeadInfo;
+//
+// LogToReg('DRM-ENC-01', ExtractFileName(pInfo.sOrgPath));
+//
+// Result := ozCloseHandle(hFile);
+// hFile := 0;
+//
+// if not TTgEncrypt.CheckSign(pInfo.sOrgPath, SIG_DRM) then // 이중으로 암호화 되지 않도록 한번더 체크 24_1122 11:09:17 kku
+// begin
+// LogToReg('DRM-ENC-02', ExtractFileName(pInfo.sOrgPath));
+//
+// Guard(ms, TMemoryStream.Create);
+// ms.LoadFromFile(pInfo.sOrgPath);
+//
+// var sBkPath: String := 'C:\ProgramData\HE\EncTask\';
+// if ForceDirectories(sBkPath) then
+// begin
+// sBkPath := sBkPath + '$bk_' + ExtractFileName(pInfo.sOrgPath);
+// if CopyFile(PChar(pInfo.sOrgPath), PChar(sBkPath), false) then
+// SaveStrToFile(sBkPath + '.i', pInfo.sOrgPath, TEncoding.UTF8);
+// end;
+//
+// LogToReg('DRM-ENC-03', ExtractFileName(pInfo.sOrgPath));
+//
+// enc := TTgDrmEnc.Create(pInfo.sOrgPath);
+// try
+// with pInfo.HeadInfo do
+// begin
+// if enc.SetHaed(PASS_DRM_HEAD, SIG_DRM, sEmpNo, sHostName,
+// sPartName, sPgName, dwCustomerCode) then
+// begin
+// LogToReg('DRM-ENC-04', ExtractFileName(pInfo.sOrgPath));
+// if enc.EncryptFromStream(DecText(gAppHook.Helper.CtrlOpt.sDrmPass), ms) then
+// begin
+// if FileExists(sBkPath) then
+// begin
+// LogToReg('DRM-ENC-05', ExtractFileName(pInfo.sOrgPath));
+//// FreeAndNil(enc);
+//// ms.SaveToFile(pInfo.sOrgPath);
+//
+// DeleteFile(PChar(sBkPath));
+// DeleteFile(PChar(sBkPath + '.i'));
+// end;
+// end else begin
+// if FileExists(sBkPath) and
+// CopyFile(PChar(sBkPath), PChar(pInfo.sOrgPath), false) then
+// begin
+// DeleteFile(PChar(sBkPath));
+// DeleteFile(PChar(sBkPath + '.i'));
+// end;
+// end;
+// end else begin
+//
+// end;
+// end;
+// LogToReg('DRM-ENC-06', ExtractFileName(pInfo.sOrgPath));
+// finally
+// if enc <> nil then
+// FreeAndNil(enc);
+// end;
+// end;
+// end else
+ if ( (gAppHook.Helper.CurAppType = catMsOffice) or
+ ((gAppHook.Helper.CurAppType = catHwp) and (sExt = 'HWPX')) ) then
+ begin
+ {$IFDEF _BS1HP_}
+ if sExt = 'DOC' then // DOC는 위에서 HPCMD_REQ_ENCRYPT 로 처리 함 25_1030 14:49:49 kku
+ begin
+ if pInfo.bModifyAble then
+ begin
+ var hRcvWnd: HWND := gAppHook.Helper.CtrlOpt.hRcvWnd;
+ if hRcvWnd = 0 then
+ hRcvWnd := StrToIntDef(GetRegValueAsString(HKEY_CURRENT_USER, 'Software\eCrmHomeEdition', 'RW'), 0);
+ if hRcvWnd > 0 then
+ begin
+ var O: ISuperObject := SO;
+ O.S['S'] := pInfo.sOrgPath;
+ O.I['D'] := 2;
+ SendCopyData(hRcvWnd, HPCMD_REQ_ENCRYPT, O.AsJSon);
+ end;
+ end;
+ end else
+ {$ENDIF}
+ begin
+ gAppHook.Helper.RecentDrmFI_.sOrgPath := pInfo.sOrgPath;
+ gAppHook.Helper.RecentDrmFI_.HeadInfo := pInfo.HeadInfo;
+ end;
+
+// gAppHook.Helper.RecentDrmFI_.sDecPath := pInfo.sDecPath;
+// gAppHook.Helper.RecentDrmFI_.bModifyAble := pInfo.bModifyAble;
+// gAppHook.Helper.RecentDrmFI_.Head := pInfo.Head;
+// CopyMemory(@gAppHook.Helper.RecentDrmFI_.Head, @pInfo.Head, SizeOf(pInfo.Head));
+ end else begin
+ if not GetFileSizeEx(hFile, llSize) then
+ begin
+// gAppHook.Log('CloseHandleHook() .. Fail .. GetFileSizeEx()');
+ exit;
+ end;
+
+// LogToReg('Enc02', Format('CloseHandleHook() .. Path=%s', [pInfo.sOrgPath]));
+
+ Guard(hs, THandleStreamEx.Create(hFile, llSize));
+ hs.Position := 0;
+
+ // hs로 GetStreamToSha1Str() 처리가 제대로 안되서 아래처럼 추가 처리.. 25_0911 17:47:15 kku
+ Guard(ms, TMemoryStream.Create);
+ ms.CopyFrom(hs);
+
+ if not TTgEncrypt.CheckSign(hs, SIG_DRM) then // 이중으로 암호화 되지 않도록 한번더 체크 24_1122 11:09:17 kku
+ begin
+ bDoEnc := true;
+ if _sEncFileHash <> '' then
+ begin
+ ms.Position := 0;
+ var sTemp: String := GetStreamToSha1Str(ms);
+ // TXT 파일은 수정권한이 있을때 항상 파일을 읽고 바로 쓰기 때문에 수정일자가 변경 되고 파일 변경 감시에 감지된다.
+ // 수정된게 있는지 체크, 지금은 TXT 파일만 대상 25_0911 17:09:28 kku
+ if _sEncFileHash = sTemp then
+ bDoEnc := false;
+// LogToReg('FHash2', Format('Hash1 = %s, Hash2 = %s (%d)', [_sEncFileHash, sTemp, ms.Size]));
+ _sEncFileHash := '';
+ end;
+
+ if bDoEnc then
+ begin
+ // LogToReg('Enc03', Format('CloseHandleHook() .. Path=%s', [pInfo.sOrgPath]));
+ hs.Position := 0;
+ ms.Position := 0;
+
+ var sBkPath: String := 'C:\ProgramData\HE\EncTask\';
+ if ForceDirectories(sBkPath) then
+ begin
+ sBkPath := sBkPath + '$bk_' + ExtractFileName(pInfo.sOrgPath);
+ if CopyFile(PChar(pInfo.sOrgPath), PChar(sBkPath), false) then
+ SaveStrToFile(sBkPath + '.i', pInfo.sOrgPath, TEncoding.UTF8);
+ end;
+
+ Guard(enc, TTgDrmEnc.Create(pInfo.sOrgPath));
+ with pInfo.HeadInfo do
+ begin
+ if enc.SetHaed(PASS_DRM_HEAD, SIG_DRM, sEmpNo, sHostName,
+ sPartName, sPgName, dwCustomerCode) then
+ begin
+ // LogToReg('Enc04', Format('CloseHandleHook() .. Path=%s', [pInfo.sOrgPath]));
+// if enc.EncryptFromStream(DecText(gAppHook.Helper.CtrlOpt.sDrmPass), hs) then
+ if enc.EncryptFromStream(DecText(gAppHook.Helper.CtrlOpt.sDrmPass), ms) then
+ begin
+ if FileExists(sBkPath) then
+ begin
+ DeleteFile(PChar(sBkPath));
+ DeleteFile(PChar(sBkPath + '.i'));
+ end;
+ // LogToReg('Enc05', Format('CloseHandleHook() .. Path=%s', [pInfo.sOrgPath]));
+ // gAppHook.Log('CloseHandleHook() .. Success .. EncryptFromStream()')
+ end else begin
+ if FileExists(sBkPath) and
+ CopyFile(PChar(sBkPath), PChar(pInfo.sOrgPath), false) then
+ begin
+ DeleteFile(PChar(sBkPath));
+ DeleteFile(PChar(sBkPath + '.i'));
+ end;
+ // gAppHook.Log('CloseHandleHook() .. Fail .. EncryptFromStream()');
+ // LogToReg('Enc06', Format('CloseHandleHook() .. Path=%s', [pInfo.sOrgPath]));
+ end;
+ end else begin
+ // LogToReg('Enc07', Format('CloseHandleHook() .. Path=%s', [pInfo.sOrgPath]));
+ // gAppHook.Log('CloseHandleHook() .. Fail .. SetHaed()');
+ end;
+ end;
+ end;
+ end;
+ end;
+ end else begin
+// gAppHook.Log(Format('CloseHandleHook() .. Not Modify.. DecPath=%s', [pInfo.sDecPath]));
+ end;
+ finally
+ if hFile <> 0 then
+ Result := ozCloseHandle(hFile);
+ DeleteFile(pInfo.sDecPath);
+ gAppHook.Helper.DcDrmFI.Remove(hFile);
+ gAppHook._bInternalOpen := false;
+ end;
+ end else
+ Result := ozCloseHandle(hFile);
+ except
+ on E: Exception do
+ ETgException.TraceException(E, 'Fail .. CloseHandleHook()');
+ end;
+end;
+
+//function MapViewOfFileHook(hFileMappingObject: THandle; dwDesiredAccess: DWORD;
+// dwFileOffsetHigh, dwFileOffsetLow: DWORD; dwNumberOfBytesToMap: SIZE_T): Pointer; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper <> nil) and (gAppHook.Helper.IsIgrReadFile(hFileMappingObject)) and not gAppHook._bInternalOpen then
+// begin
+// Result := nil;
+// end else
+// Result := ozMapViewOfFile(hFileMappingObject, dwDesiredAccess, dwFileOffsetHigh, dwFileOffsetLow, dwNumberOfBytesToMap);
+//end;
+
+//function ReadFileHook(hFile: THandle; var Buffer; nNumberOfBytesToRead: DWORD;
+// var lpNumberOfBytesRead: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
+//begin
+//// Result := false;
+// if (gAppHook <> nil) and (gAppHook.Helper <> nil) and (gAppHook.Helper.IsIgrReadFile(hFile)) and not gAppHook._bInternalOpen then
+// begin
+// lpNumberOfBytesRead := 0;
+// Result := false;
+// end else
+// Result := ozReadFile(hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead, lpOverlapped);
+//end;
+//
+//function ReadFileExHook(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
+// lpOverlapped: POverlapped; lpCompletionRoutine: TPROverlappedCompletionRoutine): BOOL; stdcall;
+//begin
+//// Result := false;
+// if (gAppHook <> nil) and (gAppHook.Helper <> nil) and (gAppHook.Helper.IsIgrReadFile(hFile)) and not gAppHook._bInternalOpen then
+// begin
+// Result := false;
+// end else
+// Result := ozReadFileEx(hFile, lpBuffer, nNumberOfBytesToRead, lpOverlapped, lpCompletionRoutine);
+//end;
+//
+//function WriteFileHook(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD;
+// var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper <> nil) and (gAppHook.Helper.IsIgrWriteFile(hFile)) and not gAppHook._bInternalOpen then
+// begin
+// lpNumberOfBytesWritten := 0;
+// Result := false;
+// end else
+// Result := ozWriteFile(hFile, Buffer, nNumberOfBytesToWrite, lpNumberOfBytesWritten, lpOverlapped);
+//
+// (*
+// if Result and gAppHook.Helper.DcDrmFI.ContainsKey(hFile) then
+// begin
+//// gAppHook.Log('WriteFileHook()');
+// gAppHook.Helper.DcDrmFI[hFile].bModified := true;
+// end;
+// *)
+//end;
+//
+//function WriteFileExHook(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToWrite: DWORD;
+// const lpOverlapped: TOverlapped; lpCompletionRoutine: FARPROC): BOOL; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper <> nil) and (gAppHook.Helper.IsIgrWriteFile(hFile)) and not gAppHook._bInternalOpen then
+// begin
+// Result := false;
+// end else
+// Result := ozWriteFileEx(hFile, lpBuffer, nNumberOfBytesToWrite, lpOverlapped, lpCompletionRoutine);
+//
+// (*
+// if Result and gAppHook.Helper.DcDrmFI.ContainsKey(hFile) then
+// begin
+//// _TgDrmHook.Log('WriteFileExHook()');
+// gAppHook.Helper.DcDrmFI[hFile].bModified := true;
+// end;
+// *)
+//end;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookNet.pas b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookNet.pas
new file mode 100644
index 00000000..5c1f2058
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookNet.pas
@@ -0,0 +1,77 @@
+{*******************************************************}
+{ }
+{ ApiHookNet }
+{ }
+{ Copyright (C) 2023 kku }
+{ }
+{*******************************************************}
+
+unit ApiHookNet;
+
+interface
+
+uses
+ Winapi.Windows, EM.Dnsapi, System.SysUtils;
+
+const
+ DNS_ERROR_RCODE_YXDOMAIN = $232E;
+
+type
+ TFun_DnsQuery_A = function(lpstrName: LPSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
+ var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
+ TFun_DnsQuery_UTF8 = function(lpstrName: LPSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
+ var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
+ TFun_DnsQuery_W = function(lpstrName: LPWSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
+ var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
+ TFun_DnsQueryEx = function(pQueryRequest: PDnsQueryRequest; pQueryResults, pCancelHandle: Pointer): DWORD; stdcall;
+
+var
+ ozDnsQuery_A: TFun_DnsQuery_A = nil;
+ ozDnsQuery_UTF8: TFun_DnsQuery_UTF8 = nil;
+ ozDnsQuery_W: TFun_DnsQuery_W = nil;
+ ozDnsQueryEx: TFun_DnsQueryEx = nil;
+
+implementation
+
+function CheckBlockDomain(sDomain: String): Boolean;
+begin
+// _AppHook.Log('CheckBlockDomain() ..');
+ Result := Pos('google', LowerCase(sDomain)) > 0;
+end;
+
+function DnsQuery_AHook(lpstrName: LPSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
+ var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
+begin
+ if CheckBlockDomain(StrPas(lpstrName)) then
+ Result := DNS_ERROR_RCODE_YXDOMAIN
+ else
+ Result := ozDnsQuery_A(lpstrName, wType, fOptions, aipServers, ppQueryResultsSet, pReserved);
+end;
+
+function DnsQuery_UTF8Hook(lpstrName: LPSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
+ var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
+begin
+ if CheckBlockDomain(StrPas(lpstrName)) then
+ Result := DNS_ERROR_RCODE_YXDOMAIN
+ else
+ Result := ozDnsQuery_UTF8(lpstrName, wType, fOptions, aipServers, ppQueryResultsSet, pReserved);
+end;
+
+function DnsQuery_WHook(lpstrName: LPWSTR; wType: WORD; fOptions: DWORD; aipServers: PDWORD;
+ var ppQueryResultsSet: PDWORD; pReserved:pdword): DWORD; stdcall;
+begin
+ if CheckBlockDomain(StrPas(lpstrName)) then
+ Result := DNS_ERROR_RCODE_YXDOMAIN
+ else
+ Result := ozDnsQuery_W(lpstrName, wType, fOptions, aipServers, ppQueryResultsSet, pReserved);
+end;
+
+function DnsQueryExHook(pQueryRequest: PDnsQueryRequest; pQueryResults, pCancelHandle: Pointer): DWORD; stdcall;
+begin
+ if CheckBlockDomain(StrPas(pQueryRequest.sQueryName)) then
+ Result := ERROR_INVALID_PARAMETER
+ else
+ Result := ozDnsQueryEx(pQueryRequest, pQueryResults, pCancelHandle);
+end;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookPrint.pas b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookPrint.pas
new file mode 100644
index 00000000..f8b7eb26
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ApiHookPrint.pas
@@ -0,0 +1,1480 @@
+{*******************************************************}
+{ }
+{ ApiHookPrint }
+{ }
+{ Copyright (C) 2023 kku }
+{ }
+{*******************************************************}
+
+unit ApiHookPrint;
+
+interface
+
+uses
+ System.SysUtils, System.Classes, Winapi.Windows, Vcl.Graphics;
+
+type
+// 프린트
+ TFun_StartDocA = function(dc: HDC; pDocInfo: PDocInfoA): Integer; stdcall;
+ TFun_StartDocW = function(dc: HDC; pDocInfo: PDocInfoW): Integer; stdcall;
+ TFun_HDC = function(dc: HDC): Integer; stdcall;
+
+ TFun_CreateDC = function(lpszDriver, lpszDevice, lpszOutput: LPCWSTR;
+ lpdvmInit: PDeviceMode): HDC; stdcall;
+ TFun_CreateDCA = function(lpszDriver, lpszDevice, lpszOutput: LPCSTR;
+ lpdvmInit: PDeviceModeA): HDC; stdcall;
+ TFun_CreateDCW = function(lpszDriver, lpszDevice, lpszOutput: LPCWSTR;
+ lpdvmInit: PDeviceModeW): HDC; stdcall;
+
+ TFun_WritePrinter = function(hPrinter: THandle; pBuf: Pointer; cbBuf: DWORD;
+ var pcWritten: DWORD): BOOL; stdcall;
+
+// 마스킹
+// TFun_DrawTextA = function(hDC: HDC; lpString: LPCSTR; nCount: Integer;
+// var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+// TFun_DrawTextW = function(hDC: HDC; lpString: LPCWSTR; nCount: Integer;
+// var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+// TFun_DrawTextExA = function(DC: HDC; lpchText: LPCSTR; cchText: Integer; var p4: TRect;
+// dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+// TFun_DrawTextExW = function(DC: HDC; lpchText: LPCWSTR; cchText: Integer; var p4: TRect;
+// dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+// TFun_ExtTextOutA = function(DC: HDC; X, Y: Integer; Options: Longint;
+// Rect: PRect; Str: LPCSTR; Count: Longint; Dx: PInteger): BOOL; stdcall;
+// TFun_ExtTextOutW = function(DC: HDC; X, Y: Integer; Options: Longint;
+// Rect: PRect; Str: LPCWSTR; Count: Longint; Dx: PInteger): BOOL; stdcall;
+// TFun_TextOutA = function(DC: HDC; X, Y: Integer; Str: LPCSTR; Count: Integer): BOOL; stdcall;
+// TFun_TextOutW = function(DC: HDC; X, Y: Integer; Str: LPCWSTR; Count: Integer): BOOL; stdcall;
+// TFun_PolyTextOutA = function(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+// TFun_PolyTextOutW = function(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+// TFun_TabbedTextOutA = function(hDC: HDC; X, Y: Integer; lpString: LPCSTR; nCount, nTabPositions: Integer;
+// var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+// TFun_TabbedTextOutW = function(hDC: HDC; X, Y: Integer; lpString: LPCWSTR; nCount, nTabPositions: Integer;
+// var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+
+function CreateDCHook(lpszDriver, lpszDevice, lpszOutput: LPCWSTR;
+ lpdvmInit: PDeviceMode): HDC; stdcall;
+function CreateDCAHook(lpszDriver, lpszDevice, lpszOutput: LPCSTR;
+ lpdvmInit: PDeviceModeA): HDC; stdcall;
+function CreateDCWHook(lpszDriver, lpszDevice, lpszOutput: LPCWSTR;
+ lpdvmInit: PDeviceModeW): HDC; stdcall;
+
+function StartDocAHook(dc: HDC; pDocInfo: PDocInfoA): Integer; stdcall;
+function StartDocWHook(dc: HDC; pDocInfo: PDocInfoW): Integer; stdcall;
+function StartPageHook(dc: HDC): Integer; stdcall;
+function EndPageHook(dc: HDC): Integer; stdcall;
+function EndDocHook(dc: HDC): Integer; stdcall;
+
+function WritePrinterHook(hPrinter: THandle; pBuf: Pointer; cbBuf: DWORD;
+ var pcWritten: DWORD): BOOL; stdcall;
+
+
+//function DrawTextAHook(hDC: HDC; lpString: LPCSTR; nCount: Integer;
+// var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+//function DrawTextWHook(hDC: HDC; lpString: LPCWSTR; nCount: Integer;
+// var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+//function DrawTextExAHook(DC: HDC; lpchText: LPCSTR; cchText: Integer; var p4: TRect;
+// dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+//function DrawTextExWHook(DC: HDC; lpchText: LPCWSTR; cchText: Integer; var p4: TRect;
+// dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+//function ExtTextOutAHook(DC: HDC; X, Y: Integer; Options: Longint;
+// Rect: PRect; Str: LPCSTR; Count: Longint; Dx: PInteger): BOOL; stdcall;
+//function ExtTextOutWHook(DC: HDC; X, Y: Integer; Options: Longint;
+// Rect: PRect; Str: LPCWSTR; Count: Longint; Dx: PInteger): BOOL; stdcall;
+//function TextOutAHook(DC: HDC; X, Y: Integer; Str: LPCSTR; Count: Integer): BOOL; stdcall;
+//function TextOutWHook(DC: HDC; X, Y: Integer; Str: LPCWSTR; Count: Integer): BOOL; stdcall;
+//function PolyTextOutAHook(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+//function PolyTextOutWHook(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+//function TabbedTextOutAHook(hDC: HDC; X, Y: Integer; lpString: LPCSTR; nCount, nTabPositions: Integer;
+// var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+//function TabbedTextOutWHook(hDC: HDC; X, Y: Integer; lpString: LPCWSTR; nCount, nTabPositions: Integer;
+// var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+
+function DrawBitmapWater(aDestDC: HDC; nX, nY: Integer; aSrcBmp: TBitmap): Boolean; stdcall;
+procedure LogToReg(sVName, sLog: String); inline;
+
+//function WritePrinter(
+// hPrinter: THandle;
+// pBuf: Pointer;
+// cbBuf: DWORD;
+// var pcWritten: DWORD
+//): BOOL; stdcall; external 'winspool.drv' name 'WritePrinter';
+
+var
+ ozCreateDC: TFun_CreateDC = nil;
+ ozCreateDCA: TFun_CreateDCA = nil;
+ ozCreateDCW: TFun_CreateDCW = nil;
+ ozStartDocA: TFun_StartDocA = nil;
+ ozStartDocW: TFun_StartDocW = nil;
+ ozStartPage: TFun_HDC = nil;
+ ozEndPage: TFun_HDC = nil;
+ ozEndDoc: TFun_HDC = nil;
+ ozWritePrinter: TFun_WritePrinter = nil;
+
+// ozDrawTextA: TFun_DrawTextA = nil;
+// ozDrawTextW: TFun_DrawTextW = nil;
+// ozDrawTextExA: TFun_DrawTextExA = nil;
+// ozDrawTextExW: TFun_DrawTextExW = nil;
+// ozExtTextOutA: TFun_ExtTextOutA = nil;
+// ozExtTextOutW: TFun_ExtTextOutW = nil;
+// ozTextOutA: TFun_TextOutA = nil;
+// ozTextOutW: TFun_TextOutW = nil;
+// ozPolyTextOutA: TFun_PolyTextOutA = nil;
+// ozPolyTextOutW: TFun_PolyTextOutW = nil;
+// ozTabbedTextOutA: TFun_TabbedTextOutA = nil;
+// ozTabbedTextOutW: TFun_TabbedTextOutW = nil;
+
+var
+ _bmpWater: TBitmap;
+ _bmpWaterP: TBitmap;
+ _sbmpWaterIf: String;
+ _sLabelName: String;
+ _bIgrPrtWater: Boolean;
+ _PrtDC: HDC;
+ _bDoStartProc: Boolean;
+ _bDoEndProc: Boolean;
+ _nFontSize: Integer;
+ _sDrvName: String;
+ _sDevName: String;
+ _sPrtName: String;
+ _sPrtDocId: String;
+
+ gPrtWatering: Boolean;
+
+implementation
+
+uses
+{$IFDEF _BS1HP_}
+ BS1Hook, DefineHelper,
+ ProcessWM_JUVIS, ProcessWM_KBIZ, ProcessWM_HEC, ProcessWM_GEC, ProcessWM_KOCES,
+ ProcessWM_SHSC, ProcessWM_SHCI, ProcessWM_Custom, ProcessWM_Def, ProcessWM_WINSTN,
+ ProcessWM_SANKYO, ProcessWM_WELFND, ProcessWM_SERVE1, ProcessWM_DEMO, ProcessWM_SOLMIX,
+ ProcessWM_KORENTAL, ProcessWM_SKEC,
+{$ELSE}
+ AppHook, ProcessWM,
+{$ENDIF}
+ Condition, ApiHookDraw, Tocsg.Safe,
+ AppCtrlDefine, Vcl.Imaging.jpeg, Tocsg.Files, Tocsg.Shell, Winapi.WinSpool,
+ Vcl.Imaging.pngimage, Tocsg.Network, Tocsg.Graphic, Tocsg.WndUtil,
+ Tocsg.Path, Tocsg.Registry, superobject, Winapi.Messages, Tocsg.Strings,
+ Tocsg.Process, Winapi.ActiveX, Winapi.GDIPOBJ, System.UIConsts,
+ Winapi.GDIPAPI, Tocsg.Convert, Winapi.MultiMon, Tocsg.Printer;
+
+const
+ CaptureBlt = $40000000;
+
+var
+ _nPageCnt: Integer = 0;
+ _sDocName: String = '';
+
+procedure LogToReg(sVName, sLog: String); inline;
+begin
+// SetRegValueString(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', sVName, sLog, true);
+end;
+
+function DrawBitmapWater(aDestDC: HDC; nX, nY: Integer; aSrcBmp: TBitmap): Boolean; stdcall;
+//const
+// cTrMatrix: TColorMatrix = (
+// (1.0, 0.0, 0.0, 0.0, 0.0),
+// (0.0, 1.0, 0.0, 0.0, 0.0),
+// (0.0, 0.0, 1.0, 0.0, 0.0),
+// (0.0, 0.0, 0.0, 0.5, 0.0),
+// (0.0, 0.0, 0.0, 0.0, 1.0));
+var
+ GPGraphics: TGPGraphics;
+ ms: TMemoryStream;
+// GPStream: IStream;
+ GPImg: TGPImage;
+ ImageAttributes: TGPImageAttributes;
+ GPRect: TGPRect;
+ nWW, nHH: Integer;
+begin
+ Result := true;
+ try
+ Guard(ms, TMemoryStream.Create);
+ aSrcBmp.SaveToStream(ms);
+ ms.Position := 0;
+// ms.SaveToFile('C:\Users\kku\Desktop\test111.bmp');
+
+ Guard(GPGraphics, TGPGraphics.Create(aDestDC));
+// GPGraphics.SetSmoothingMode(SmoothingModeAntiAlias);
+ GPGraphics.SetPageScale(0.33);
+
+ // IStream 메모리 해제를 위해 여기에 변수 선언해야 함 24_0125 10:58:12 kku
+ var GPStream: IStream := TStreamAdapter.Create(ms, soOwned) as IStream;
+ Guard(GPImg, TGPImage.Create(GPStream));
+ Guard(ImageAttributes, TGPImageAttributes.Create);
+
+ // 흰색 배경 투명처리
+ ImageAttributes.SetColorKey(System.UIConsts.MakeColor(255, 255, 255), System.UIConsts.MakeColor(255, 255, 255));
+ // 빨간색 배경 투명처리
+// ImageAttributes.SetColorKey(System.UIConsts.MakeColor(255, 0, 0), System.UIConsts.MakeColor(255, 0, 0));
+
+// ImageAttributes.SetColorMatrix(MakeColorMatrix(0.1, 0.1, 0.5, 0.2)); // Gray, 하늘색
+// ImageAttributes.SetColorMatrix(MakeColorMatrix(0.1, 0.5, 0.5, 0.2)); // Gray, 녹색
+// ImageAttributes.SetColorMatrix(MakeColorMatrix(0.1, 1.1, 0.5, 0.2)); // Gray, 연두색
+// ImageAttributes.SetColorMatrix(MakeColorMatrix(0.2, 0.2, 0.2, 0.2)); // Gray, 실버
+ ImageAttributes.SetColorMatrix(MakeColorMatrix(0.2, 0.2, 0.2, 0.3)); // Gray, 회색
+// ImageAttributes.SetColorMatrix(MakeTransparentMatrix(0.4)); // 그 외 mode, type 옵션 의미 없음..
+
+ nWW := GPImg.GetWidth;
+ nHH := GPImg.GetHeight;
+
+// var GPUnit: TUnit := GPGraphics.GetPageUnit;
+ GPRect.X := nX;
+ GPRect.Y := nY;
+ GPRect.Width := nWW;
+ GPRect.Height := nHH;
+
+ GPGraphics.DrawImage(GPImg, GPRect, 0, 0, Round(nWW), Round(nHH), UnitPixel, ImageAttributes);
+
+ except
+ Result := false;
+ end;
+end;
+
+procedure GetPrinterName(sDriver, sDevice: String);
+begin
+ _sDrvName := sDriver;
+ _sDevName := sDevice;
+end;
+
+function GetScaleFactorFromDriverName(sDriverName: String): Double;
+var
+ DC: HDC;
+ nDPIW, nDPIH: Integer;
+ nW, nH: Integer;
+begin
+ Result := 0.0;
+ try
+ DC := CreateDC(nil, PChar(sDriverName), nil, nil);
+ if DC <> 0 then
+ begin
+ nW := GetDeviceCaps(DC, HORZRES); // 세로모드 : 4961, 가로모드 : 7016, 크로미움 프린트 인쇄시 4760
+ nH := GetDeviceCaps(DC, VERTRES); // 가로모드 : 7016, 가로모드 : 4961, 크로미움 프린트 인쇄시 6814
+ LogToReg('DC=' + sDriverName, Format('W=%d, H=%d', [nW, nH]));
+ try
+ nDPIW := GetDeviceCaps(DC, LOGPIXELSX);
+ nDPIH := GetDeviceCaps(DC, LOGPIXELSY);
+ LogToReg('DC=' + sDriverName, Format('W=%d, H=%d, DPI_W=%d, DPI_H=%d', [nW, nH, nDPIW, nDPIH]));
+ Result := nDPIW / 96.0;
+ finally
+ DeleteDC(DC);
+ end;
+ end;
+ except
+ // ..
+ end;
+end;
+
+function GetMonitorScaleFactor: Double;
+var
+ hMon: HMONITOR;
+ MonInfo: MONITORINFOEX;
+ DC: HDC;
+ nDPI: Integer;
+begin
+ Result := 0.0;
+ try
+// LogToReg('GetMonitorScaleFactor() - 1', '');
+ if gAppHook = nil then
+ exit;
+
+ if gAppHook.Helper.CtrlOpt.hMainWnd = 0 then
+ exit;
+
+// LogToReg('GetMonitorScaleFactor() - 2', '');
+
+// DC := GetDC(gAppHook.Helper.CtrlOpt.hMainWnd);
+// if DC <> 0 then
+ begin
+ try
+// nDPI := GetDeviceCaps(DC, LOGPIXELSX);
+ nDPI := GetDpiForWindow(gAppHook.Helper.CtrlOpt.hMainWnd);
+// LogToReg('GetMonitorScaleFactor() - 3', Format('DPI = %d', [nDPI]));
+ Result := nDPI / 96.0;
+ finally
+ ReleaseDC(gAppHook.Helper.CtrlOpt.hMainWnd, DC);
+ end;
+ end;
+
+// hMon := MonitorFromWindow(gAppHook.Helper.CtrlOpt.hMainWnd, MONITOR_DEFAULTTONEAREST);
+// if hMon = 0 then
+// exit;
+//
+// ZeroMemory(@MonInfo, SizeOf(MonInfo));
+// MonInfo.cbSize := SizeOf(MonInfo);
+// if GetMonitorInfo(hMon, @MonInfo) then
+// begin
+// DC := CreateDC(nil, MonInfo.szDevice, nil, nil);
+// if DC <> 0 then
+// begin
+// try
+// nDPI := GetDeviceCaps(DC, LOGPIXELSX);
+// LogToReg('GetMonitorScaleFactor() - 5', Format('MonName = %s, DPI = %d', [MonInfo.szDevice, nDPI]));
+// Result := nDPI / 96.0;
+// finally
+// DeleteDC(DC);
+// end;
+// end;
+// end;
+ except
+ // ..
+ end;
+end;
+
+function GetMonitorWidth: Integer;
+var
+ hMon: HMONITOR;
+ MonInfo: MONITORINFOEX;
+ DC: HDC;
+ nDPI: Integer;
+begin
+ Result := 0;
+ try
+ if gAppHook = nil then
+ exit;
+
+ if gAppHook.Helper.CtrlOpt.hMainWnd = 0 then
+ exit;
+
+ try
+ hMon := MonitorFromWindow(gAppHook.Helper.CtrlOpt.hMainWnd, MONITOR_DEFAULTTONEAREST);
+ MonInfo.cbSize := SizeOf(MonInfo);
+ if GetMonitorInfo(hMon, @MonInfo) then
+ begin
+ Result := MonInfo.rcMonitor.Right - MonInfo.rcMonitor.Left;
+// Height := MonitorInfo.rcMonitor.Bottom - MonitorInfo.rcMonitor.Top;
+ end;
+ finally
+ ReleaseDC(gAppHook.Helper.CtrlOpt.hMainWnd, DC);
+ end;
+ except
+ // ..
+ end;
+end;
+
+function CreateDCHook(lpszDriver, lpszDevice, lpszOutput: LPCWSTR;
+ lpdvmInit: PDeviceMode): HDC;
+begin
+ GetPrinterName(String(lpszDriver), String(lpszDevice));
+ Result := ozCreateDC(lpszDriver, lpszDevice, lpszOutput, lpdvmInit);
+end;
+
+function CreateDCAHook(lpszDriver, lpszDevice, lpszOutput: LPCSTR;
+ lpdvmInit: PDeviceModeA): HDC;
+begin
+ GetPrinterName(AnsiString(lpszDriver), AnsiString(lpszDevice));
+ Result := ozCreateDCA(lpszDriver, lpszDevice, lpszOutput, lpdvmInit);
+end;
+
+function CreateDCWHook(lpszDriver, lpszDevice, lpszOutput: LPCWSTR;
+ lpdvmInit: PDeviceModeW): HDC;
+begin
+ GetPrinterName(String(lpszDriver), String(lpszDevice));
+ Result := ozCreateDCW(lpszDriver, lpszDevice, lpszOutput, lpdvmInit);
+end;
+
+procedure SetAlphaBlend(var img: TPngImage; const Alpha: Byte);
+var
+ mScanline, mPixel: Integer;
+ mScanArray: pByteArray;
+begin
+ try
+ img.CreateAlpha;
+
+ for mScanline := 0 to img.Height - 1 do
+ begin
+ mScanArray := img.AlphaScanline[mScanline];
+
+ for mPixel := 0 to img.Width - 1 do
+ mScanArray[mPixel] := Alpha;
+ end;
+ except
+ exit;
+ end;
+end;
+
+function ProcessWartermarkCustomer(dwCustomer: DWORD; DC: HDC; bStartPage: Boolean): Boolean;
+begin
+ if _bIgrPrtWater then
+ begin
+ Result := true;
+ exit;
+ end;
+
+ gPrtWatering := true;
+ try
+ if (gAppHook <> nil) and gAppHook.Helper.CtrlOpt.PrtWaterCfg.bActive then
+ begin
+ {$IFDEF _BS1HP_}
+ Result := ProcessWartermark_Custom(dc, bStartPage);
+ {$ELSE}
+ Result := false;
+ {$ENDIF}
+ end else
+ case dwCustomer of
+ {$IFDEF _BS1HP_}
+ CUSTOMER_GEC : Result := ProcessWartermark_GEC(dc, bStartPage);
+ CUSTOMER_HDENG : Result := ProcessWartermark_HEC(dc, bStartPage);
+ CUSTOMER_JUVIS : Result := ProcessWartermark_JUVIS(dc, bStartPage);
+ CUSTOMER_KOCES : Result := ProcessWartermark_KOCES(dc, bStartPage);
+ CUSTOMER_KBIZ : Result := ProcessWartermark_KBIZ(dc, bStartPage);
+ CUSTOMER_SHCI : Result := ProcessWartermark_SHCI(dc, bStartPage);
+ CUSTOMER_SHSC : Result := ProcessWartermark_SHSC(dc, bStartPage);
+ CUSTOMER_WINSTN : Result := ProcessWartermark_WINSTN(dc, bStartPage);
+ CUSTOMER_SANKYO : Result := ProcessWartermark_SANKYO(dc, bStartPage);
+ CUSTOMER_WELFNI,
+ CUSTOMER_WELFND : Result := ProcessWartermark_WELFND(dc, bStartPage);
+ CUSTOMER_SERVE1 : Result := ProcessWartermark_SERVE1(dc, bStartPage);
+ CUSTOMER_SOLMIX : Result := ProcessWartermark_SOLMIX(dc, bStartPage);
+ CUSTOMER_KORENTAL : Result := ProcessWartermark_KORENTAL(dc, bStartPage);
+ CUSTOMER_SKEC : Result := ProcessWartermark_SKEC(dc, bStartPage);
+ CUSTOMER_DEMO : Result := ProcessWartermark_DEMO(dc, bStartPage);
+ {$ENDIF}
+ {$IFNDEF _BS1HP_}
+ 113001 : Result := ProcessWartermark(dc, bStartPage); // DEV
+ {$ENDIF}
+ else Result := ProcessWartermark(dc, bStartPage);
+ end;
+ finally
+ gPrtWatering := false;
+ end;
+end;
+
+function FindPrintingFile(sDocName: String; bIgrRB: Boolean = false): String;
+var
+ sDir, sChk: String;
+ FList: TModFileList;
+ i, n: Integer;
+// Plf: TParserLinkFile;
+begin
+ Result := '';
+
+ if gAppHook = nil then
+ exit;
+
+// Result := gAppHook.GetRFilePath(sDocName);
+// exit;
+
+ sDir := GetWindowsDir;
+ if sDir = '' then
+ exit;
+
+ sDir := sDir[1] + Format(':\Users\%s\AppData\Roaming\Microsoft\Windows\Recent\', [gAppHook.Helper.CtrlOpt.sAcName]);
+ Guard(FList, TModFileList.Create(TModeFileComparer.Create));
+ ExtrModFilesFromDir(sDir, FList);
+
+ if FList.Count > 0 then
+ begin
+ FList.Sort;
+
+ if bIgrRB then
+ sDocName := StrsReplace(sDocName, ['(', ')', '[', ']'], '0');
+
+ for i := 0 to FList.Count - 1 do
+ begin
+ if bIgrRB then
+ sChk := StrsReplace(CutFileExt(FList[i].sFName), ['(', ')', '[', ']'], '0')
+ else
+ sChk := CutFileExt(FList[i].sFName);
+
+ // 최근문서 파일처리 보완 24_0722 14:54:30 kku
+ if (sChk.Length > 0) and (sChk[sChk.Length] = ')') then
+ begin
+ n := LastIndexOf(' (', sChk);
+ if n > 0 then
+ Delete(sChk, n, sChk.Length - n + 1);
+ end;
+
+ if Pos(sChk, sDocName) > 0 then
+ begin
+ Result := GetTargetExeFromLink(sDir + FList[i].sFName);
+ if DirectoryExists(Result) then
+ continue;
+// Guard(Plf, TParserLinkFile.Create);
+// if Plf.LoadFromFile(sDir + FList[i].sName) then
+// begin
+// Result := GetLfiValueFromCaption(Plf.LfiEntList, 'Base Path');
+// if not FileExists(Result) then
+// Result := '';
+// end;
+ exit;
+ end;
+ end;
+
+ // PDF의 경우... 문서 이름에 파일 이름이 안들어 가는 경우가 있다...
+ // PDF 파일 최근파일 내역을 찾을 수 없다면 맨 첫번째 있는 PDF 파일을 넘겨준다.. 24_0418 15:10:27 kku
+ if Pos('.PDF', sDocName.ToUpper) > 0 then
+ begin
+ for i := 0 to FList.Count - 1 do
+ begin
+ sChk := CutFileExt(FList[i].sFName);
+ if GetFileExt(sChk).ToUpper = 'PDF' then
+ begin
+ Result := sChk;
+ exit;
+ end;
+ end;
+ end;
+ end;
+end;
+
+function SendData(h: HWND; dwCmd: DWORD; const sData: String): LONGLONG;
+var
+ CopyData: TCopyDataStruct;
+begin
+ CopyData.dwData := dwCmd;
+
+ CopyData.cbData := (Length(sData) + 1) * 2;
+ CopyData.lpData := PChar(sData);
+
+ Result := SendMessage(h, WM_COPYDATA, 0, NativeInt(@CopyData));
+end;
+
+function FindAipMdWnd: HWND;
+var
+ nTO: Integer;
+ sPath,
+ sFind, sFind2,
+ sPName: String;
+begin
+ sPath := gAppHook.Helper.CtrlOpt.sAipPath;
+ if (sPath = '') or not FileExists(sPath) then
+ begin
+ Result := 0;
+ exit;
+ end;
+
+ nTO := 0;
+ sFind2 := 'BSOne-AIP-T140713';
+ sFind := sFind2 + '-' + ExtractFileName(sPath);
+ Result := FindWindow(nil, PChar(sFind));
+ if Result = 0 then
+ Result := FindWindow(nil, PChar(sFind2)); // todo : 업데이트가 바로 안될경우를 대비해서 이전 식별자로 한번더 해준다.. 나중에 정리 필요
+
+ if Result = 0 then
+ begin
+ var sAipDMail: String := gAppHook.Helper.CtrlOpt.sAccount + '@hec.co.kr';
+
+ sPName := ExtractFileName(sPath);
+ while Result = 0 do
+ begin
+ if nTO > 40 then
+ break;
+
+ if GetProcessPidByName(sPName) = 0 then
+ begin
+ if not FileExists(sPath) then
+ break;
+ ExecutePath_hide(sPath, '-r ' + sAipDMail); // 차단으로 연결이 안되는 경우가 있다...
+
+ Sleep(1000);
+ end;
+ Result := FindWindow(nil, PChar(sFind));
+ if Result = 0 then
+ Result := FindWindow(nil, PChar(sFind2)); // todo : 업데이트가 바로 안될경우를 대비해서 이전 식별자로 한번더 해준다.. 나중에 정리 필요
+ Sleep(200);
+
+ Inc(nTO);
+ end;
+
+ if Result = 0 then
+ TerminateProcessByName(sPName);
+ end;
+end;
+
+function ProcStartDoc(sDocName: String): Boolean;
+var
+ sChkDoc: AnsiString;
+ i: Integer;
+ CtrlOpt: TAppCtrlOpt;
+ sWText,
+ sDept,
+ sDocPath,
+ sUName, sIpAddr: String;
+ O: ISuperObject;
+begin
+ Result := true;
+ _nPageCnt := 0;
+ _bDoStartProc := false;
+ _sDocName := sDocName;
+
+ CtrlOpt := gAppHook.Helper.CtrlOpt;
+
+// 필요 시 문서 식별 번호 생성, 저장
+ case CtrlOpt.dwCustomerType of
+ CUSTOMER_DEMO,
+ CUSTOMER_WELFND,
+ CUSTOMER_WELFNI :
+ begin
+ _sPrtDocId := StrsReplace(TGUID.NewGuid.ToString, ['{', '}'], '');
+ SetRegValueString(HKEY_CURRENT_USER, 'Software\eCrmHomeEdition', 'PrtDocId', _sPrtDocId, true);
+ end;
+ else _sPrtDocId := '';
+ end;
+// if not SetRegValueString(HKEY_CURRENT_USER, 'Software\eCrmHomeEdition', 'PrtPName', gAppHook.ModuleName, true) then
+// SaveStrToFile('C:\ProgramData\HE\PrtPName.txt', Format('ProcStartDoc() ... PName=%s', [gAppHook.ModuleName]));
+// SetRegValueString(HKEY_CURRENT_USER, 'Software\eCrmHomeEdition', 'PrtPName1', '11111', true);
+// SaveStrToFile('C:\ProgramData\HE\test.txt', Format('ProcStartDoc() ... PName=%s', [gAppHook.ModuleName]));
+
+ sUName := CtrlOpt.sUName;
+ if sUName = '' then
+ sUName := CtrlOpt.sEmpNo;
+ sDept := gAppHook.Helper.CtrlOpt.sDeptName;
+ sIpAddr := GetHostIP;
+ case CtrlOpt.dwCustomerType of
+ CUSTOMER_GEC,
+ CUSTOMER_HDENG : sWText := sIpAddr{CtrlOpt.sIpAddr}; // Result.sPrintWaterTxt := Result.sDeptName + '/' + gMgSvc.EmpNo + '/' + gMgSvc.NicService.GetIP + '/' + FormatDateTime('yyyy-mm-dd', Now);
+ CUSTOMER_INZENT : sWText := {Result.sDeptName + '/' + } CtrlOpt.sEmpNo + '/' + FormatDateTime('yyyy-mm-dd', Now) + '/INZENT';
+ CUSTOMER_SOLIDEO :
+ begin
+ if sDept <> '' then
+ begin
+ sDept := ExtrLastDelimiterStr(sDept, ';');
+ sWText := Format('(주)솔리데오 / %s / %s / %s', [sDept, sUName, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
+ end else
+ sWText := Format('(주)솔리데오 / %s / %s', [sUName, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
+ end;
+ CUSTOMER_CJONS :
+ begin
+ if sDept <> '' then
+ begin
+ sDept := ExtrLastDelimiterStr(sDept, ';');
+ sWText := Format('%s/%s/%s', [sUName, sDept, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
+ end else
+ sWText := Format('%s/%s', [sUName, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
+ end;
+ CUSTOMER_UNITUS,
+ CUSTOMER_MOTRAS :
+ begin
+ if sUName <> '' then
+ sWText := Format('%s / %s / %s / %s / %s', [sUName, sDept, gAppHook.Helper.CtrlOpt.sEmpNo, sIpAddr, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
+ else if sDept <> '' then
+ sWText := Format('%s / %s / %s / %s', [sDept, gAppHook.Helper.CtrlOpt.sEmpNo, sIpAddr, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
+ else
+ sWText := Format('%s / %s / %s', [gAppHook.Helper.CtrlOpt.sEmpNo, sIpAddr, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
+ end;
+ CUSTOMER_SHCI :
+ begin
+ if sUName <> '' then
+ begin
+ if sUName.Length > 1 then
+ sUName[2] := '*';
+
+ sWText := Format('%s / %s / %s / %s', [gAppHook.Helper.CtrlOpt.sEmpNo, sUName, sDept, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)])
+ end else
+ if sDept <> '' then
+ sWText := Format('%s / %s / %s', [gAppHook.Helper.CtrlOpt.sEmpNo, sDept, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)])
+ else
+ sWText := Format('%s / %s', [gAppHook.Helper.CtrlOpt.sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
+ end;
+ CUSTOMER_SHSC :
+ begin
+ var sEmpNo: String := gAppHook.Helper.CtrlOpt.sEmpNo;
+ if sEmpNo.Length > 2 then
+ sEmpNo[3] := '*';
+ if sEmpNo.Length > 3 then
+ sEmpNo[4] := '*';
+
+ if sUName <> '' then
+ begin
+ if sUName.Length > 1 then
+ sUName[2] := '*';
+ sWText := Format('%s / %s / %s', [sUName, sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
+ end else
+ sWText := Format('%s / %s', [sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
+ end;
+ CUSTOMER_SANKYO :
+ begin
+ sUName := CtrlOpt.sUName;
+ if sUName <> '' then
+ sWText := Format('%s / %s / %s', [sUName, gAppHook.Helper.CtrlOpt.sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
+ else
+ sWText := Format('%s / %s', [gAppHook.Helper.CtrlOpt.sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
+ end;
+ CUSTOMER_WELFND,
+ CUSTOMER_WELFNI :
+ begin
+ var sTemp: String := _sPrtDocId;
+ if sTemp.Length > 20 then
+ SetLength(sTemp, 20);
+ sWText := gAppHook.Helper.CtrlOpt.sEmpNo + '/' + sTemp;
+ end;
+ CUSTOMER_SERVE1 :
+ begin
+ if sDept <> '' then
+ begin
+ sDept := ExtrLastDelimiterStr(sDept, ';');
+ sWText := Format('%s / %s / %s / %s / %s', [sDept, sUName, gAppHook.Helper.CtrlOpt.sEmpNo, gAppHook.Helper.CtrlOpt.sIpAddr, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
+ end else
+ sWText := Format('%s / %s / %s', [gAppHook.Helper.CtrlOpt.sEmpNo, gAppHook.Helper.CtrlOpt.sIpAddr, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
+ end;
+ CUSTOMER_SOLMIX :
+ begin
+ sWText := Format('%s / %s / ', [gAppHook.Helper.CtrlOpt.sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
+ end;
+ CUSTOMER_DEMO :
+ begin
+ sWText := _sPrtDocId;
+ end;
+ CUSTOMER_KORENTAL :
+ begin
+ if gAppHook.Helper.CtrlOpt.sUName <> '' then
+ sWText := Format('%s/%s/%s/%s/%s', [gAppHook.Helper.CtrlOpt.sEmpNo, gAppHook.Helper.CtrlOpt.sDeptName, gAppHook.Helper.CtrlOpt.sUName, gAppHook.Helper.CtrlOpt.sIpAddr, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
+ else if gAppHook.Helper.CtrlOpt.sDeptName <> '' then
+ sWText := Format('%s/%s/%s/%s', [gAppHook.Helper.CtrlOpt.sEmpNo, gAppHook.Helper.CtrlOpt.sDeptName, gAppHook.Helper.CtrlOpt.sIpAddr, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
+ else
+ sWText := Format('%s/%s/%s', [gAppHook.Helper.CtrlOpt.sEmpNo, gAppHook.Helper.CtrlOpt.sIpAddr, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
+ end;
+ CUSTOMER_SKEC :
+ begin
+ if gAppHook.Helper.CtrlOpt.sUName <> '' then
+ sWText := Format('%s / %s / %s / %s', [FormatDateTime('yyyy-mm-dd hh:nn', Now), gAppHook.Helper.CtrlOpt.sDeptName, gAppHook.Helper.CtrlOpt.sUName, gAppHook.Helper.CtrlOpt.sEmpNo])
+ else if gAppHook.Helper.CtrlOpt.sDeptName <> '' then
+ sWText := Format('%s / %s / %s', [FormatDateTime('yyyy-mm-dd hh:nn', Now), gAppHook.Helper.CtrlOpt.sDeptName, gAppHook.Helper.CtrlOpt.sEmpNo])
+ else
+ sWText := Format('%s / %s', [FormatDateTime('yyyy-mm-dd hh:nn', Now), gAppHook.Helper.CtrlOpt.sEmpNo]);
+ end;
+ else begin
+ if sUName <> '' then
+ sWText := Format('%s / %s / %s / %s', [sUName, sDept, gAppHook.Helper.CtrlOpt.sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
+ else if sDept <> '' then
+ sWText := Format('%s / %s / %s', [sDept, gAppHook.Helper.CtrlOpt.sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
+ else
+ sWText := Format('%s / %s', [gAppHook.Helper.CtrlOpt.sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
+ end;
+ end;
+ gAppHook.Helper.CtrlOpt := CtrlOpt;
+ gAppHook.Helper.sPrintWaterTxt := sWText;
+
+// LogToReg('PrintWaterTxt', gAppHook.Helper.sWText);
+
+ if _bmpWater <> nil then
+ FreeAndNil(_bmpWater);
+ if _bmpWaterP <> nil then
+ FreeAndNil(_bmpWaterP);
+ _nFontSize := 0;
+
+// 웹브라우저의 경우 CreateDC를 디스플레이로 한번 더 하기 때문에
+// _sDevName에 프린터 이름이 사라지는 현상이 있다 그래서 아래처럼 추가 처리 24_0627 14:19:34 kku
+ if _sDevName <> '' then
+ _sPrtName := _sDevName;
+
+// SetProcessDpiAwarenessContext(DPI_AWARENESS_CONTEXT_UNAWARE);
+// SetProcessDpiAwareness(DPI_AWARENESS_CONTEXT_UNAWARE);
+
+// DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'Step0');
+// DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'Step1');
+// DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'Step2');
+// DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'Step3');
+// DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'Step4');
+// DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'Step5');
+// DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'Step6');
+// DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'Step7');
+
+// LogToReg('Step1', Format('StartDocAHook, Cnt=%d', [gAppHook.PrtMaskList.Count]));
+ gAppHook.Helper.bIsPrinting_ := true;
+ (*
+ if gAppHook.Helper.CtrlOpt.bPrintMasking and (gAppHook.PrtMaskList.Count = 0) then
+ begin
+// LogToReg('Step2', Format('StartDocAHook, Cnt=%d', [gAppHook.PrtMaskList.Count]));
+// var sMskPath: String := 'C:\ProgramData\HE\Task\$mk.dat';
+// if FileExists(sMskPath) then
+// begin
+// LogToReg('Step3', Format('StartPageHook, Cnt=%d', [gAppHook.PrtMaskList.Count]));
+// var StrList: TStringList;
+// Guard(StrList, TStringList.Create);
+// StrList.LoadFromFile(sMskPath, TEncoding.UTF8);
+// SplitString(StrList.Text, ',', gAppHook.PrtMaskList, false, true);
+// DeleteFile(PChar(sMskPath));
+// LogToReg('Step4', Format('StartPageHook, Cnt=%d', [gAppHook.PrtMaskList.Count]));
+// end;
+ var sVal: String := GetRegValueAsString(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'PrtMk');
+// LogToReg('Step3', Format('StartDocAHook, Val=%s', [sVal]));
+ SplitString(sVal, ',', gAppHook.PrtMaskList, false, true);
+// LogToReg('Step4', Format('StartDocAHook, Cnt=%d', [gAppHook.PrtMaskList.Count]));
+ end;
+ *)
+
+// LogToReg('Step0', 'PrintWater .. 0');
+ if gAppHook.Helper.CtrlOpt.bPrintSecu or gAppHook.Helper.CtrlOpt.bPrintWater then
+ begin
+ _bIgrPrtWater := sDocName.EndsWith(' *BSOne-');
+ _sLabelName := '';
+// LogToReg('Step1', 'PrintWater .. 1 : ' + sDocName);
+
+ case gAppHook.Helper.CtrlOpt.dwCustomerType of
+// CUSTOMER_CJONS,
+ CUSTOMER_SOLIDEO :
+ begin
+// LogToReg('Step00', '_sPrtName : ' + _sPrtName);
+ if _sPrtName <> '' then
+ begin
+ var sChk: String := gAppHook.Helper.CtrlOpt.sPrintWaterImg;
+ if sChk.StartsWith('*HB*|') then
+ begin
+ _bIgrPrtWater := true;
+ var StrList: TStringList;
+ Guard(StrList, TStringList.Create);
+ SplitString(UpperCase(sChk), '|', StrList);
+ sChk := UpperCase(_sPrtName);
+ for i := 0 to StrList.Count - 1 do
+ begin
+ if Pos(StrList[i], sChk) > 0 then
+ begin
+ _bIgrPrtWater := false;
+ break;
+ end;
+ end;
+ end;
+ end;
+ end;
+ CUSTOMER_GEC,
+ CUSTOMER_HDENG :
+ begin
+ // 프린터에 따라 출력 처리
+// if (gAppHook.Helper.CtrlOpt.dwCustomerType = CUSTOMER_GEC) and (_sPrtName <> '') then
+// begin
+// if (Pos('CANON', UpperCase(_sPrtName)) = 0) then
+// begin
+// _sLabelName := 'NoPrt';
+// _bIgrPrtWater := true;
+// end;
+// end;
+
+ if _sLabelName = '' then
+ begin
+ sDocPath := sDocName;
+ if not FileExists(sDocPath) then
+ begin
+ // 엑셀에서 대괄호 [ 를 모두 괄호 ( 로 인식하는 문제가 있어서 아래처럼 처리 23_1218 10:44:27 kku
+ sDocPath := FindPrintingFile(sDocPath, CompareText('excel.exe', gAppHook.ModuleName) = 0);
+ end;
+
+// LogToReg('Step2', 'PrintWater .. 2 : ' + sDocPath);
+
+ if (sDocPath = '') and (CompareText('notepad.exe', gAppHook.ModuleName) = 0) then
+ begin
+ // Windows 11 메모장에서 문서 이름이 현재 파일이 아닌 단순 "메모장"으로 뜨게된다. 23_0322 10:57:54 kku
+ sDocPath := GetWindowCaption(GetForegroundWindow);
+ sDocPath := FindPrintingFile(sDocPath);
+ end;
+
+ SetRegValueString(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'PrtPath', sDocPath, true);
+ if FileExists(sDocPath) then
+ begin
+// LogToReg('Step3', 'PrintWater .. 3 : ' + sDocPath);
+ // _sLabelName := ExtractFileName(sDocPath);
+ // _sLabelName := sDocPath;
+
+ // 오피스 파일은 열려 있는 상태에서 레이블 확인이 불가능하다. 복사해서 처리 23_1018 17:28:11 kku
+ var sTaskDir: String := 'C:\ProgramData\HE\HEC\';
+ if ForceDirectories(sTaskDir) then
+ begin
+// LogToReg('Step4', 'PrintWater .. 4 : ' + sDocPath);
+ var sDest: String := sTaskDir + ExtractFileName(sDocPath);
+ if CopyFile(PChar(sDocPath), PChar(sDest), false) then
+ begin
+// LogToReg('Step5', 'PrintWater .. 5 : ' + sDocPath);
+ var h := FindWindow(nil, 'BSOne-AIP-T140713-BSOne-AIP-Decrypt.exe');
+ // if h = 0 then
+ // h := FindAipMdWnd;
+ if h <> 0 then
+ begin
+// LogToReg('Step6', 'PrintWater .. 6 : ' + gAppHook.Helper.CtrlOpt.sAcSSid);
+ O := SO;
+ O.S['src'] := sDest;
+ O.S['dst'] := sDest + '.tmp';
+ O.S['ssid'] := gAppHook.Helper.CtrlOpt.sAcSSid;
+
+ DelRegValue(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'ALabel');
+ if SendData(h, 4, O.AsString) = 10 then
+ begin
+ _sLabelName := GetRegValueAsString(HKEY_CURRENT_USER, 'SOFTWARE\eCrmHomeEdition', 'ALabel');
+// LogToReg('Step7', 'PrintWater .. 7 : ' + _sLabelName);
+
+ if gAppHook.Helper.CtrlOpt.dwCustomerType = CUSTOMER_HDENG then
+ begin
+ i := Pos('(', _sLabelName);
+ if i > 0 then
+ SetLength(_sLabelName, i - 1);
+ end;
+
+ _bIgrPrtWater := (_sLabelName = '') or
+ (Pos('일반', _sLabelName) > 0) or
+ (Pos('ANYUSER', _sLabelName.ToUpper) > 0);
+ if _bIgrPrtWater then
+ _sLabelName := '';
+ end;
+// else
+// LogToReg('Step6', 'PrintWater .. 6 : ' + gAppHook.Helper.CtrlOpt.sAcSSid + ' Code : ' + IntToStr(i));
+ end;
+
+ DeleteFile(PChar(sDest));
+ end;
+ end;
+ end else
+ // 파일을 찾을 수 없을 경우 무조건 워터마크 찍도록 변경 23_1110 12:43:01 kku
+ // if CompareText(gAppHook.ModuleName, 'MSIP.Viewer.exe') = 0 then
+ begin
+ // AIP 뷰어로 보는 파일은 파일 이름을 알아낼 방법이 없다..
+ // 그래서 강제 지정.. 23_1019 15:37:40 kku
+ if gAppHook.Helper.CtrlOpt.dwCustomerType = CUSTOMER_HDENG then
+ _sLabelName := '대외비'
+ else
+ _sLabelName := '대외비(Restricted)';
+ _bIgrPrtWater := false;
+ end;
+ end;
+
+ if _sLabelName = '' then
+ _bIgrPrtWater := true;
+ end;
+
+ CUSTOMER_TMAP :
+ begin
+ sDocPath := sDocName;
+ if not FileExists(sDocPath) then
+ begin
+ // 엑셀에서 대괄호 [ 를 모두 괄호 ( 로 인식하는 문제가 있어서 아래처럼 처리 23_1218 10:44:27 kku
+ sDocPath := FindPrintingFile(sDocPath, CompareText('excel.exe', gAppHook.ModuleName) = 0);
+ end;
+
+ if (sDocPath = '') and (CompareText('notepad.exe', gAppHook.ModuleName) = 0) then
+ begin
+ // Windows 11 메모장에서 문서 이름이 현재 파일이 아닌 단순 "메모장"으로 뜨게된다. 23_0322 10:57:54 kku
+ sDocPath := GetWindowCaption(GetForegroundWindow);
+ sDocPath := FindPrintingFile(sDocPath);
+ end;
+
+ {$IFDEF _BS1HP_}
+ if FileExists(sDocPath) then
+ begin
+ if SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd,
+ HPCMD_CHECK_PRINTWATER_EXCEPT, sDocPath) = 300 then _bIgrPrtWater := true;
+ end;
+ {$ENDIF}
+ end;
+ end;
+
+ {$IFDEF _BS1HP_}
+ // 워터마크 예외 처리 추가 25_1014 14:12:19 kku
+ if not _bIgrPrtWater then
+ begin
+ O := SO;
+ O.S['PrtName'] := _sPrtName;
+ if sDocPath = '' then
+ begin
+ sDocPath := sDocName;
+ sDocPath := FindPrintingFile(sDocPath, CompareText('excel.exe', gAppHook.ModuleName) = 0);
+ end;
+ O.S['DocName'] := sDocPath;
+ O.S['AppName'] := gAppHook.Helper.AppName;
+ if SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd,
+ HPCMD_CHECK_PRINTWATER_EXCEPT_EX, O.AsJSon) = 300 then _bIgrPrtWater := true;
+ end;
+ {$ENDIF}
+
+// gAppHook.Helper.CopyPrintDC(dc);
+
+ if gAppHook <> nil then
+ begin
+ {$IFDEF _BS1HP_}
+// if (gAppHook.Helper.CtrlOpt.hRcvWnd <> 0) and (gAppHook.Helper.sCurDocName_ <> sDocName) then // 다른 프로그램에서 출력하고 다시 동일 문서 출력 시 감지 안됨 25_0917 17:29:13 kku
+ if gAppHook.Helper.CtrlOpt.hRcvWnd <> 0 then
+ begin
+ O := SO;
+ O.S['PrtName'] := _sPrtName;
+ O.S['DocName'] := sDocName;
+ O.S['PrtDocId'] := _sPrtDocId;
+ O.S['PName'] := gAppHook.ModuleName;
+ O.I['PID'] := gAppHook.PID;
+ var nRst: Integer := SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_PRINT_DOCNAME, O.AsJSon);
+
+ if nRst = 300 then // 차단 25_1127 14:38:24 kku
+ Result := false;
+// if (gAppHook.Helper.CtrlOpt.dwCustomerType = CUSTOMER_HDENG) and _bIgrPrtWater then
+// SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_PRINT_DOCNAME, 'NoWater')
+// else
+// SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_PRINT_DOCNAME, sDocName);
+ end;
+ {$ENDIF}
+
+// _nRecentPage := 0;
+ gAppHook.Helper.nPtrCnt_ := 0;
+ gAppHook.Helper.sCurDocName_ := sDocName;
+ end;
+
+// _bIgrPrtWater := false;
+
+ gAppHook.Log('StartDocWHook() - lpszDocName = ' + sDocName);
+
+ if FileExists(gAppHook.sLogPath_) then
+ DeleteFile(PChar(ExtractFilePath(gAppHook.sLogPath_) + 'PrintText.txt'));
+ end;
+end;
+
+function CreateWatermarkBitmap(dc: HDC; sTxt: String): HBITMAP;
+var
+ BmpDC: HDC;
+ Bmp: HBITMAP;
+ Font: HFONT;
+ Text: string;
+begin
+ BmpDC := CreateCompatibleDC(dc);
+ Bmp := CreateCompatibleBitmap(dc, 800, 200); // 워터마크 영역 크기
+ SelectObject(BmpDC, Bmp);
+
+ Font := CreateFont(48, 0, 0, 0, FW_BOLD, 0, 0, 0, DEFAULT_CHARSET,
+ OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
+ ANTIALIASED_QUALITY, VARIABLE_PITCH, 'Arial');
+ SelectObject(BmpDC, Font);
+ SetBkMode(BmpDC, TRANSPARENT);
+ SetTextColor(BmpDC, RGB(150, 150, 150));
+
+ Text := sTxt;
+ TextOut(BmpDC, 100, 50, PChar(Text), Length(Text));
+
+ DeleteDC(BmpDC);
+ Result := Bmp;
+end;
+
+function StartDocAHook(dc: HDC; pDocInfo: PDocInfoA): Integer; stdcall;
+begin
+// SaveStrToFile('C:\ProgramData\HE\test1.txt', Format('StartDocAHook() ... PName=%s', [gAppHook.ModuleName]));
+
+ if not ProcStartDoc(AnsiString(pDocInfo.lpszDocName)) then
+ begin
+ Result := 0;
+ exit;
+ end;
+
+ Result := ozStartDocA(dc, pDocInfo);
+
+// CreateWatermarkBitmap(dc, 'StartDocAHook');
+// if gAppHook.Helper.CopyPtrBmp_ <> nil then
+// Result := ozStartDocW(gAppHook.Helper.CopyPtrBmp_.Canvas.Handle, pDocInfo)
+// else
+// Result := ozStartDocW(dc, pDocInfo);
+end;
+
+function StartDocWHook(dc: HDC; pDocInfo: PDocInfoW): Integer; stdcall;
+var
+ sChkDoc,
+ sDocName: String;
+ i: Integer;
+begin
+ SaveStrToFile('C:\ProgramData\HE\test2.txt', Format('StartDocWHook() ... PName=%s', [gAppHook.ModuleName]));
+
+ if not ProcStartDoc(String(pDocInfo.lpszDocName)) then
+ begin
+ Result := 0;
+ exit;
+ end;
+
+ Result := ozStartDocW(dc, pDocInfo);
+
+// CreateWatermarkBitmap(dc, 'StartDocWHook');
+// if gAppHook.Helper.CopyPtrBmp_ <> nil then
+// Result := ozStartDocW(gAppHook.Helper.CopyPtrBmp_.Canvas.Handle, pDocInfo)
+// else
+// Result := ozStartDocW(dc, pDocInfo);
+end;
+
+function StartPageHook(dc: HDC): Integer; stdcall;
+begin
+ _PrtDC := dc;
+ _bDoEndProc := false;
+
+// if gAppHook.Helper.CtrlOpt.bPrintMasking then
+// gAppHook.Helper.PrtDC := DC
+// else
+// gAppHook.Helper.PrtDC := 0;
+
+// LogToReg('Step-', Format('StartPageHook, DC=%d, Cnt=%d', [DC, gAppHook.PrtMaskList.Count]));
+ Inc(_nPageCnt);
+ if gAppHook.Helper.CtrlOpt.bPrintSecu or gAppHook.Helper.CtrlOpt.bPrintWater then
+ begin
+ gAppHook.Log('StartPageHook()');
+
+ if not _bIgrPrtWater and
+ (_sPrtName <> '') and (gAppHook.Helper.CtrlOpt.sPrintWaterExp <> '') then
+ begin
+ var ExpList: TStringList;
+ var sChkName: String := UpperCase(_sPrtName);
+ var i: Integer;
+ Guard(ExpList, TStringList.Create);
+ SplitString(UpperCase(gAppHook.Helper.CtrlOpt.sPrintWaterExp), '|', ExpList);
+ for i := 0 to ExpList.Count - 1 do
+ begin
+ if Pos(ExpList[i], sChkName) > 0 then
+ begin
+ _bIgrPrtWater := true;
+ break;
+ end;
+ end;
+ end;
+
+ Inc(gAppHook.Helper.nPtrCnt_);
+
+ if gAppHook.Helper.CtrlOpt.bPrtCollect and
+ (gAppHook.Helper.CtrlOpt.sPrtEmfOutDir <> '') then
+ begin
+// gAppHook.Log('sTextOutDir = %s', [gAppHook.Helper.CtrlOpt.sTextOutDir]);
+ CreateCopyDC(DC, GetValidFileName(_sDocName, '#'), _nPageCnt);
+ end;
+
+ Result := ozStartPage(dc);
+
+ // 별도 프로시저 만들어서 사용하면 안된다.. 그래서 StartPageHook(), EndPageHook() 각각 구현 22_0907 15:06:14 kku
+ if gAppHook.Helper.CtrlOpt.bPrintWater and (Result = 1) and
+ ( not gAppHook.Helper.bEndDocProc_ or gAppHook.Helper.bBothDocProc_) then
+ begin
+ gAppHook.Log('StartPageHook() .. ProcessWartermark()');
+ if not ProcessWartermarkCustomer(gAppHook.Helper.CtrlOpt.dwCustomerType, dc, true) then
+ Result := -1;
+ end;
+ end else begin
+ Result := ozStartPage(dc);
+ end;
+end;
+
+function EndPageHook(dc: HDC): Integer; stdcall;
+begin
+ if gAppHook.Helper.CtrlOpt.bPrintWater and
+ (gAppHook.Helper.bEndDocProc_ or gAppHook.Helper.bBothDocProc_) then
+ begin
+ gAppHook.Log('EndPageHook() .. ProcessWartermark()');
+ if not ProcessWartermarkCustomer(gAppHook.Helper.CtrlOpt.dwCustomerType, dc, false) then
+ Result := -1;
+ end;
+
+ gAppHook.Log('EndPageHook()');
+
+ DeleteCopyDC;
+ gAppHook.Helper.sPtrText_ := '';
+ _bDoStartProc := false;
+
+ Result := ozEndPage(dc);
+
+ _PrtDC := 0;
+end;
+
+function EndDocHook(dc: HDC): Integer;
+begin
+// CreateWatermarkBitmap(dc, 'EndDocHook');
+
+ Result := ozEndDoc(dc);
+
+ try
+ if gAppHook <> nil then
+ begin
+// SetRegValueString(HKEY_CURRENT_USER, 'Software\eCrmHomeEdition', 'PrtPageCnt', IntToStr(_nPageCnt), true);
+ gAppHook.Helper.bIsPrinting_ := false;
+ gAppHook.PrtMaskList.Clear;
+
+ // Word에서는 부수 정보를 제대로 가져올 수 없어서
+ // 이렇게 전체 출력되는 페이지 정보를 별도 가져와서 계산한다 25_0813 14:48:40 kku
+// if CompareText('winword.exe', gAppHook.ModuleName) = 0 then
+// begin
+// var O: ISuperObject := SO;
+// O.S['MdPath'] := gAppHook.ModulePath;
+// O.S['PrtName'] := _sPrtName;
+// O.S['DrvName'] := _sDrvName;
+// O.S['DevName'] := _sDevName;
+// O.S['DocName'] := _sDocName;
+// O.I['PageCnt'] := _nPageCnt;
+// SendCopyData(gAppHook.Helper.CtrlOpt.hRcvWnd, HPCMD_PRINT_ENDDOC_INFO, O.AsJSon);
+// end;
+ end;
+
+ _bIgrPrtWater := false;
+ _sLabelName := '';
+ if _bmpWater <> nil then
+ FreeAndNil(_bmpWater);
+ if _bmpWaterP <> nil then
+ FreeAndNil(_bmpWaterP);
+ except
+ // ..
+ end;
+end;
+
+function WritePrinterHook(hPrinter: THandle; pBuf: Pointer; cbBuf: DWORD;
+ var pcWritten: DWORD): BOOL; stdcall;
+begin
+// gAppHook.Log('WritePrinterHook()');
+
+// var fs: TFileStream;
+// Guard(fs, TFileStream.Create('c:\WritePrinterHook.dat', fmCreate));
+// fs.Write(pBuf^, cbBuf);
+
+ Result := ozWritePrinter(hPrinter, pBuf, cbBuf, pcWritten);
+end;
+
+// 이렇게 하면 Release 빌드 시 프린트가 실패한다;; 이유는 몰라, 귀찮아서 넘어감 22_1013 16:12:53 kku
+//function EndDocHook(dc: HDC): Integer; stdcall;
+//begin
+// if gAppHook.PrintMarkActive and (gAppHook.sRecentPtrDoc_ <> '') then
+// gAppHook.ProcessNoti(NOTI_HOOK_MONITOR_PRINT_WATER, gAppHook.sRecentPtrDoc_);
+//end;
+
+procedure ReplaceTextA(sStr: LPCSTR); inline; stdcall;
+var
+ sData: AnsiString;
+ bMod: Boolean;
+ i: Integer;
+begin
+ try
+ if gAppHook = nil then
+ exit;
+
+ if not gAppHook.Helper.bIsPrinting_ or (gAppHook.PrtMaskList.Count = 0) then
+ exit;
+
+ bMod := false;
+ sData := AnsiString(sStr);
+
+ for i := 0 to gAppHook.PrtMaskList.Count - 1 do
+ begin
+ if Pos(gAppHook.PrtMaskList[i], sData) > 0 then
+ begin
+ sData := StringReplace(sData, gAppHook.PrtMaskList[i],
+ MakeCharStr('*', Length(gAppHook.PrtMaskList[i])), [rfReplaceAll]);
+ bMod := true;
+ end;
+ end;
+
+ if bMod then
+ CopyMemory(@sStr[0], @sData[1], Length(sData));
+ except
+ // ..
+ end;
+end;
+
+function LPCWSTRToString(const ws: LPCWSTR): UTF8String;
+var
+ len: Integer;
+begin
+ // WideChar (UTF-16)에서 UTF-8로 변환
+ len := WideCharToMultiByte(CP_UTF8, 0, ws, -1, nil, 0, nil, nil);
+ SetLength(Result, len - 1);
+ if len > 1 then
+ begin
+ WideCharToMultiByte(CP_UTF8, 0, ws, -1, PAnsiChar(Result), len - 1, nil, nil);
+ end;
+end;
+
+procedure ReplaceTextW(sStr: LPCWSTR); inline; stdcall;
+var
+ sData: String;
+ bMod: Boolean;
+ i: Integer;
+begin
+ try
+ if gAppHook = nil then
+ exit;
+
+// LogToReg('Step8', Format('ReplaceTextW, Cnt=%d, DC=%d', [gAppHook.PrtMaskList.Count, gAppHook.Helper.PrtDC]));
+
+// if not gAppHook.Helper.bIsPrinting_ or (gAppHook.PrtMaskList.Count = 0) then
+// exit;
+
+ LogToReg('Step9', Format('ReplaceTextW, Cnt=%d', [gAppHook.PrtMaskList.Count]));
+
+ bMod := false;
+ sData := WideString(sStr);
+
+// if Pos('로그', sData) > 0 then
+// begin
+// sData := StringReplace(sData, '로그', '**', [rfReplaceAll]);
+// bMod := true;
+// end;
+
+// LogToReg(Format('Step10-%d, PName=%s', [_nTest, gAppHook.ModuleName]), sData);
+ for i := 0 to gAppHook.PrtMaskList.Count - 1 do
+ begin
+ if Pos(gAppHook.PrtMaskList[i], sData) > 0 then
+ begin
+ sData := StringReplace(sData, gAppHook.PrtMaskList[i],
+ MakeCharStr('*', Length(gAppHook.PrtMaskList[i])), [rfReplaceAll]);
+ LogToReg('Step10', Format('ReplaceTextW, Match=%s', [sData, gAppHook.PrtMaskList[i]]));
+ bMod := true;
+ end;
+ end;
+
+ if bMod then
+ CopyMemory(@sStr[0], @sData[1], Length(sData) * 2);
+ except
+ // ..
+ end;
+end;
+
+
+ {
+// nX := 0;
+ nX := GetDeviceCaps(DC, ASPECTX);
+// nY := GetDeviceCaps(DC, ASPECTY);
+// for i := 0 to 3 do
+// sOut := sOut + WORD_GAP + sOut;
+ i := GetDeviceCaps(DC, ASPECTY) - 300; // 0;
+
+ nRepeat := 2; // gAppHook.Helper.CtrlOpt.nLineCount;
+ nGapH := nH div nRepeat; // (nRepeat - 1);
+ if gAppHook.Helper.bSmallFont_ then
+ nGapH := nGapH div 7;
+ while i < nH do // + nGapH do
+ begin
+ MemCanvas.TextOut(nX, i, sOut);
+ Inc(i, nGapH);
+
+ Dec(nRepeat);
+ if nRepeat = 0 then
+ break;
+ end;
+
+ if bStartPage then
+ begin
+ BitBlt(DC, 0, 0, nW, nH, MemCanvas.Handle, 0, 0, SRCCOPY);
+
+// var bf: BLENDFUNCTION;
+// ZeroMemory(@bf, SizeOf(bf));
+// bf.AlphaFormat := 0; // 일반 비트맵 0, 32비트 비트맵 AC_SRC_ALPHA
+// bf.BlendFlags := 0; // 무조건 0
+// bf.BlendOp := AC_SRC_OVER; // AC_SRC_OVER
+// bf.SourceConstantAlpha := 100; // 투명도(투명 0 - 불투명 255)
+// AlphaBlend(DC, 0, 0, nW, nH, MemCanvas.Handle, 0, 0, nW, nH, bf);
+ end;
+ }
+//
+//function DrawTextAHook(hDC: HDC; lpString: LPCSTR; nCount: Integer;
+// var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = hDC) then
+// ReplaceTextA(lpString);
+// Result := ozDrawTextA(hDc, lpString, nCount, lpRect, uFormat);
+//end;
+//
+//function DrawTextWHook(hDC: HDC; lpString: LPCWSTR; nCount: Integer;
+// var lpRect: TRect; uFormat: UINT): Integer; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = hDC) then
+// ReplaceTextW(lpString);
+// Result := ozDrawTextW(hDc, lpString, nCount, lpRect, uFormat);
+//end;
+//
+//function DrawTextExAHook(DC: HDC; lpchText: LPCSTR; cchText: Integer; var p4: TRect;
+// dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = DC) then
+// ReplaceTextA(lpchText);
+// Result := ozDrawTextExA(DC, lpchText, cchText, p4, dwDTFormat, DTParams);
+//end;
+//
+//function DrawTextExWHook(DC: HDC; lpchText: LPCWSTR; cchText: Integer; var p4: TRect;
+// dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = DC) then
+// ReplaceTextW(lpchText);
+// Result := ozDrawTextExW(DC, lpchText, cchText, p4, dwDTFormat, DTParams);
+//end;
+//
+//function ExtTextOutAHook(DC: HDC; X, Y: Integer; Options: Longint;
+// Rect: PRect; Str: LPCSTR; Count: Longint; Dx: PInteger): BOOL; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = DC) then
+// ReplaceTextA(Str);
+// Result := ozExtTextOutA(DC, X, Y, Options, Rect, Str, Count, Dx);
+//end;
+//
+//function ExtTextOutWHook(DC: HDC; X, Y: Integer; Options: Longint;
+// Rect: PRect; Str: LPCWSTR; Count: Longint; Dx: PInteger): BOOL; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = DC) then
+// ReplaceTextW(Str);
+// Result := ozExtTextOutW(DC, X, Y, Options, Rect, Str, Count, Dx);
+//end;
+//
+//function TextOutAHook(DC: HDC; X, Y: Integer; Str: LPCSTR; Count: Integer): BOOL; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = DC) then
+// ReplaceTextA(Str);
+// Result := ozTextOutA(DC, X, Y, Str, Count);
+//end;
+//
+//function TextOutWHook(DC: HDC; X, Y: Integer; Str: LPCWSTR; Count: Integer): BOOL; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = DC) then
+// ReplaceTextW(Str);
+// Result := ozTextOutW(DC, X, Y, Str, Count);
+//end;
+//
+//function PolyTextOutAHook(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+//type
+// TArrayLPCSTR = array [0..0] of LPCSTR;
+//var
+// i: Integer;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = DC) then
+// begin
+// try
+// for i := 0 to Strings - 1 do
+// ReplaceTextA(TArrayLPCSTR(PolyTextArray)[i]);
+// except
+// // ..
+// end;
+// end;
+// Result := ozPolyTextOutA(DC, PolyTextArray, Strings);
+//end;
+//
+//function PolyTextOutWHook(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
+//type
+// TArrayLPCWSTR = array [0..0] of LPCWSTR;
+//var
+// i: Integer;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = DC) then
+// begin
+// try
+// for i := 0 to Strings - 1 do
+// ReplaceTextW(TArrayLPCWSTR(PolyTextArray)[i]);
+// except
+// // ..
+// end;
+// end;
+// Result := ozPolyTextOutW(DC, PolyTextArray, Strings);
+//end;
+//
+//function TabbedTextOutAHook(hDC: HDC; X, Y: Integer; lpString: LPCSTR; nCount, nTabPositions: Integer;
+// var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = hDC) then
+// ReplaceTextA(lpString);
+// Result := ozTabbedTextOutA(hDC, X, Y, lpString, nCount, nTabPositions,
+// lpnTabStopPositions, nTabOrigin);
+//end;
+//
+//function TabbedTextOutWHook(hDC: HDC; X, Y: Integer; lpString: LPCWSTR; nCount, nTabPositions: Integer;
+// var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
+//begin
+// if (gAppHook <> nil) and (gAppHook.Helper.PrtDC = hDC) then
+// ReplaceTextW(lpString);
+// Result := ozTabbedTextOutW(hDC, X, Y, lpString, nCount, nTabPositions,
+// lpnTabStopPositions, nTabOrigin);
+//end;
+
+initialization
+ _bmpWater := nil;
+ _bmpWaterP := nil;
+ _sbmpWaterIf := '';
+ _sLabelName := '';
+ _bIgrPrtWater := false;
+ _PrtDC := 0;
+ _bDoStartProc := false;
+ _bDoEndProc := false;
+ _nFontSize := 0;
+ _sDrvName := '';
+ _sDevName := '';
+ _sPrtName := '';
+ gPrtWatering := false;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppCtrl.dpr b/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppCtrl.dpr
new file mode 100644
index 00000000..a7c84ec0
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppCtrl.dpr
@@ -0,0 +1,51 @@
+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.
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppCtrl.dproj b/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppCtrl.dproj
new file mode 100644
index 00000000..6cddcfa9
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppCtrl.dproj
@@ -0,0 +1,1248 @@
+
+
+ {65488CE7-DC26-4E6E-B759-A8755BCF3460}
+ 20.3
+ VCL
+ True
+ Debug
+ Win32
+ 3
+ Library
+ AppCtrl.dpr
+ AppCtrl
+
+
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_1
+ true
+ true
+
+
+ true
+ Cfg_1
+ true
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_2
+ true
+ true
+
+
+ .\_OUT_Object\$(Platform)\$(Config)
+ ..\OUT_$(Config) - $(Platform)
+ false
+ false
+ false
+ false
+ false
+ true
+ System;Xml;Data;Datasnap;Web;Soap;vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)
+ AppCtrl
+ 1042
+ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
+ ..\LIB_Common\BoxedAppSDK;$(DCC_UnitSearchPath)
+ _APPCTRL_;$(DCC_Define)
+
+
+ package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=
+ Debug
+ annotation-1.2.0.dex.jar;asynclayoutinflater-1.0.0.dex.jar;billing-4.0.0.dex.jar;browser-1.0.0.dex.jar;cloud-messaging.dex.jar;collection-1.0.0.dex.jar;coordinatorlayout-1.0.0.dex.jar;core-1.5.0-rc02.dex.jar;core-common-2.0.1.dex.jar;core-runtime-2.0.1.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;firebase-annotations-16.0.0.dex.jar;firebase-common-20.0.0.dex.jar;firebase-components-17.0.0.dex.jar;firebase-datatransport-18.0.0.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.0.0.dex.jar;firebase-installations-interop-17.0.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-22.0.0.dex.jar;fmx.dex.jar;fragment-1.0.0.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;legacy-support-core-ui-1.0.0.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.0.0.dex.jar;lifecycle-livedata-2.0.0.dex.jar;lifecycle-livedata-core-2.0.0.dex.jar;lifecycle-runtime-2.0.0.dex.jar;lifecycle-service-2.0.0.dex.jar;lifecycle-viewmodel-2.0.0.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;play-services-ads-20.1.0.dex.jar;play-services-ads-base-20.1.0.dex.jar;play-services-ads-identifier-17.0.0.dex.jar;play-services-ads-lite-20.1.0.dex.jar;play-services-base-17.5.0.dex.jar;play-services-basement-17.6.0.dex.jar;play-services-cloud-messaging-16.0.0.dex.jar;play-services-drive-17.0.0.dex.jar;play-services-games-21.0.0.dex.jar;play-services-location-18.0.0.dex.jar;play-services-maps-17.0.1.dex.jar;play-services-measurement-base-18.0.0.dex.jar;play-services-measurement-sdk-api-18.0.0.dex.jar;play-services-places-placereport-17.0.0.dex.jar;play-services-stats-17.0.0.dex.jar;play-services-tasks-17.2.0.dex.jar;print-1.0.0.dex.jar;room-common-2.1.0.dex.jar;room-runtime-2.1.0.dex.jar;slidingpanelayout-1.0.0.dex.jar;sqlite-2.0.1.dex.jar;sqlite-framework-2.0.1.dex.jar;swiperefreshlayout-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.0.0.dex.jar;transport-runtime-3.0.0.dex.jar;user-messaging-platform-1.0.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.1.0.dex.jar
+
+
+ package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=
+ Debug
+ annotation-1.2.0.dex.jar;asynclayoutinflater-1.0.0.dex.jar;billing-4.0.0.dex.jar;browser-1.0.0.dex.jar;cloud-messaging.dex.jar;collection-1.0.0.dex.jar;coordinatorlayout-1.0.0.dex.jar;core-1.5.0-rc02.dex.jar;core-common-2.0.1.dex.jar;core-runtime-2.0.1.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;firebase-annotations-16.0.0.dex.jar;firebase-common-20.0.0.dex.jar;firebase-components-17.0.0.dex.jar;firebase-datatransport-18.0.0.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.0.0.dex.jar;firebase-installations-interop-17.0.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-22.0.0.dex.jar;fmx.dex.jar;fragment-1.0.0.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;legacy-support-core-ui-1.0.0.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.0.0.dex.jar;lifecycle-livedata-2.0.0.dex.jar;lifecycle-livedata-core-2.0.0.dex.jar;lifecycle-runtime-2.0.0.dex.jar;lifecycle-service-2.0.0.dex.jar;lifecycle-viewmodel-2.0.0.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;play-services-ads-20.1.0.dex.jar;play-services-ads-base-20.1.0.dex.jar;play-services-ads-identifier-17.0.0.dex.jar;play-services-ads-lite-20.1.0.dex.jar;play-services-base-17.5.0.dex.jar;play-services-basement-17.6.0.dex.jar;play-services-cloud-messaging-16.0.0.dex.jar;play-services-drive-17.0.0.dex.jar;play-services-games-21.0.0.dex.jar;play-services-location-18.0.0.dex.jar;play-services-maps-17.0.1.dex.jar;play-services-measurement-base-18.0.0.dex.jar;play-services-measurement-sdk-api-18.0.0.dex.jar;play-services-places-placereport-17.0.0.dex.jar;play-services-stats-17.0.0.dex.jar;play-services-tasks-17.2.0.dex.jar;print-1.0.0.dex.jar;room-common-2.1.0.dex.jar;room-runtime-2.1.0.dex.jar;slidingpanelayout-1.0.0.dex.jar;sqlite-2.0.1.dex.jar;sqlite-framework-2.0.1.dex.jar;swiperefreshlayout-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.0.0.dex.jar;transport-runtime-3.0.0.dex.jar;user-messaging-platform-1.0.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.1.0.dex.jar
+
+
+ CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysAndWhenInUseUsageDescription=The reason for accessing the location information of the user;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSPhotoLibraryAddUsageDescription=The reason for adding to the photo library;NSCameraUsageDescription=The reason for accessing the camera;NSFaceIDUsageDescription=The reason for accessing the face id;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSSiriUsageDescription=The reason for accessing Siri;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing bluetooth;NSBluetoothPeripheralUsageDescription=The reason for accessing bluetooth peripherals;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSMotionUsageDescription=The reason for accessing the accelerometer;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers
+ iPhoneAndiPad
+ true
+ Debug
+ $(MSBuildProjectName)
+
+
+ CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysAndWhenInUseUsageDescription=The reason for accessing the location information of the user;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSPhotoLibraryAddUsageDescription=The reason for adding to the photo library;NSCameraUsageDescription=The reason for accessing the camera;NSFaceIDUsageDescription=The reason for accessing the face id;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSSiriUsageDescription=The reason for accessing Siri;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing bluetooth;NSBluetoothPeripheralUsageDescription=The reason for accessing bluetooth peripherals;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSMotionUsageDescription=The reason for accessing the accelerometer;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers
+ iPhoneAndiPad
+ true
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2x.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImageDark_2x.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_3x.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImageDark_3x.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_120x120.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_SettingIcon_58x58.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_SettingIcon_87x87.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_40x40.png
+ $(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_60x60.png
+ $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png
+ $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_167x167.png
+ $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImage_2x.png
+ $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageDark_2x.png
+ $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png
+ $(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png
+ $(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png
+
+
+ DataSnapServer;fmx;emshosting;DbxCommonDriver;bindengine;FireDACCommonODBC;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;emsedge;hclcore_xe104;htmlreports_xe104;inetdb;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;dbexpress;FireDACInfxDriver;htmlcompfm_xe104;inet;DataSnapCommon;dbrtl;FireDACOracleDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;htmlcomp_xe104;FireDACMongoDBDriver;rtcSDK;IndySystem;FireDACTDataDriver;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;htmledit_xe104;IndyCore;RESTBackendComponents;rtl;FireDACMySQLDriver;FireDACADSDriver;htmleditcore_xe104;RESTComponents;dsnapxml;DataSnapClient;htmleditfm_xe104;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;xmlrtl;dsnap;CloudService;FireDACDb2Driver;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+
+
+ DataSnapServer;fmx;DbxCommonDriver;bindengine;IndyIPCommon;FireDACCommonODBC;emsclient;FireDACCommonDriver;IndyProtocols;IndyIPClient;dbxcds;FmxTeeUI;bindcompfmx;hclcore_xe104;DBXFirebirdDriver;htmlreports_xe104;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;fmxFireDAC;dbexpress;htmlcompfm_xe104;DBXMySQLDriver;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DBXInterBaseDriver;htmlcomp_xe104;FireDACMongoDBDriver;rtcSDK;IndySystem;FireDACTDataDriver;ibxbindings;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;htmledit_xe104;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;htmleditcore_xe104;RESTComponents;DBXSqliteDriver;IndyIPServer;dsnapxml;DataSnapClient;DataSnapProviderClient;htmleditfm_xe104;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;DBXInformixDriver;fmxobj;FMXTee;DataSnapNativeClient;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+
+
+ DataSnapServer;fmx;DbxCommonDriver;bindengine;IndyIPCommon;FireDACCommonODBC;emsclient;FireDACCommonDriver;IndyProtocols;IndyIPClient;dbxcds;FmxTeeUI;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;fmxFireDAC;dbexpress;DBXMySQLDriver;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;ibxbindings;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;RESTComponents;DBXSqliteDriver;IndyIPServer;dsnapxml;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;DBXInformixDriver;fmxobj;FMXTee;DataSnapNativeClient;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+
+
+ vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;EsVclComponents;emsedge;bindcompfmx;hclcore_xe104;DBXFirebirdDriver;htmlreports_xe104;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;htmlcompfm_xe104;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;OverbyteIcsD110Run;FIBPlus_D27;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;htmlcomp_xe104;FireDACMongoDBDriver;rtcSDK;IndySystem;PngComponentsD;FireDACTDataDriver;PKIEDB25;vcldb;ibxbindings;FFmpeg_DXT4;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;htmledit_xe104;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;htmleditcore_xe104;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;htmleditfm_xe104;DBXSybaseASEDriver;DBXDb2Driver;PKIECtrl25;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
+ Debug
+ true
+ (None)
+ 1033
+ none
+
+
+ vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;EsVclComponents;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;OverbyteIcsD110Run;FIBPlus_D27;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;PngComponentsD;FireDACTDataDriver;PKIEDB25;vcldb;ibxbindings;FFmpeg_DXT4;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;PKIECtrl25;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)
+ Debug
+ true
+ 1033
+ (None)
+ none
+
+
+ DEBUG;TRACE;TRACE_OBJ;TRACE_FILE;$(DCC_Define)
+ true
+ false
+ true
+ true
+ true
+ true
+ true
+
+
+ false
+ true
+ 1033
+
+
+
+ true
+ 1033
+
+
+ false
+ RELEASE;$(DCC_Define)
+ 0
+ 0
+
+
+
+ true
+ 1033
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Base
+
+
+ Cfg_1
+ Base
+
+
+ Cfg_2
+ Base
+
+
+
+ Delphi.Personality.12
+ Application
+
+
+
+ AppCtrl.dpr
+
+
+ Microsoft Office 2000 Sample Automation Server Wrapper Components
+ Microsoft Office XP Sample Automation Server Wrapper Components
+
+
+
+
+
+
+
+
+
+
+ AppCtrl.dll
+ true
+
+
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ res\xml
+ 1
+
+
+ res\xml
+ 1
+
+
+
+
+ library\lib\armeabi
+ 1
+
+
+ library\lib\armeabi
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ library\lib\mips
+ 1
+
+
+ library\lib\mips
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+ library\lib\arm64-v8a
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-anydpi-v21
+ 1
+
+
+ res\drawable-anydpi-v21
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\values-v21
+ 1
+
+
+ res\values-v21
+ 1
+
+
+
+
+ res\values-v31
+ 1
+
+
+ res\values-v31
+ 1
+
+
+
+
+ res\values-v35
+ 1
+
+
+ res\values-v35
+ 1
+
+
+
+
+ res\drawable-anydpi-v26
+ 1
+
+
+ res\drawable-anydpi-v26
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-anydpi-v33
+ 1
+
+
+ res\drawable-anydpi-v33
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\values-night-v21
+ 1
+
+
+ res\values-night-v21
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+
+
+ res\drawable-ldpi
+ 1
+
+
+ res\drawable-ldpi
+ 1
+
+
+
+
+ res\drawable-mdpi
+ 1
+
+
+ res\drawable-mdpi
+ 1
+
+
+
+
+ res\drawable-hdpi
+ 1
+
+
+ res\drawable-hdpi
+ 1
+
+
+
+
+ res\drawable-xhdpi
+ 1
+
+
+ res\drawable-xhdpi
+ 1
+
+
+
+
+ res\drawable-mdpi
+ 1
+
+
+ res\drawable-mdpi
+ 1
+
+
+
+
+ res\drawable-hdpi
+ 1
+
+
+ res\drawable-hdpi
+ 1
+
+
+
+
+ res\drawable-xhdpi
+ 1
+
+
+ res\drawable-xhdpi
+ 1
+
+
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+
+
+ res\drawable-small
+ 1
+
+
+ res\drawable-small
+ 1
+
+
+
+
+ res\drawable-normal
+ 1
+
+
+ res\drawable-normal
+ 1
+
+
+
+
+ res\drawable-large
+ 1
+
+
+ res\drawable-large
+ 1
+
+
+
+
+ res\drawable-xlarge
+ 1
+
+
+ res\drawable-xlarge
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\drawable-anydpi-v24
+ 1
+
+
+ res\drawable-anydpi-v24
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-night-anydpi-v21
+ 1
+
+
+ res\drawable-night-anydpi-v21
+ 1
+
+
+
+
+ res\drawable-anydpi-v31
+ 1
+
+
+ res\drawable-anydpi-v31
+ 1
+
+
+
+
+ res\drawable-night-anydpi-v31
+ 1
+
+
+ res\drawable-night-anydpi-v31
+ 1
+
+
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ 0
+
+
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ 0
+ .dll;.bpl
+
+
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ 0
+ .bpl
+
+
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ 0
+
+
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+
+
+ Contents
+ 1
+
+
+ Contents
+ 1
+
+
+ Contents
+ 1
+
+
+
+
+ Contents\Resources
+ 1
+
+
+ Contents\Resources
+ 1
+
+
+ Contents\Resources
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+ library\lib\arm64-v8a
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen
+ 64
+
+
+ ..\$(PROJECTNAME).launchscreen
+ 64
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ Assets
+ 1
+
+
+ Assets
+ 1
+
+
+
+
+ Assets
+ 1
+
+
+ Assets
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ False
+ False
+ False
+ False
+ False
+ False
+ False
+ True
+ True
+
+
+ 12
+
+
+
+
+
+
+ False
+
+ False
+ copy "$(OUTPUTPATH)" "C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Debug - Win64\AppCtrl32.dll"
+ False
+
+
+
+ False
+
+ False
+ copy "$(OUTPUTPATH)" "C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Release - Win64\AppCtrl32.dll"
+ False
+
+
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppHook.pas b/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppHook.pas
new file mode 100644
index 00000000..40af4577
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppHook.pas
@@ -0,0 +1,626 @@
+{*******************************************************}
+{ }
+{ AppHook }
+{ }
+{ Copyright (C) 2022 kku }
+{ }
+{*******************************************************}
+
+unit AppHook;
+
+interface
+
+//{$DEFINE USE_BOXAPP}
+
+uses
+ System.SysUtils, System.Classes, Tocsg.DllEntry, Tocsg.CommonData,
+ GlobalDefine, Winapi.Windows, Winapi.Messages, Tocsg.Trace,
+ WinAPI.Foundation.Collections, System.Generics.Collections,
+ AppHookClient, AppCtrlDefine, System.SyncObjs;
+
+type
+ TAppHook = class(TTgDllEntry)
+ private
+ CS_: TCriticalSection;
+ hProcWnd_: HWND;
+ Trace_: TTgTrace;
+ dtCreate_: TDateTime;
+ Client_: TAppHookClient;
+ ProcList_: TList;
+ Helper_: TAppCtrlHelper;
+ RFileList_: TStringList;
+
+ // 프린트 마스킹
+ PrtMaskList_: TStringList;
+
+ procedure OnBeforeLog(Sender: TObject);
+ procedure OnAfterLog(Sender: TObject);
+ procedure AddInterceptAPI(var aProcDest: Pointer; aProcSrc, aProcHook: Pointer; sProcName: String);
+ procedure InitDrmProcess;
+ procedure Lock;
+ procedure Unlock;
+ public
+ // 전역 옵션
+ _bLogProcessing,
+ _bInternalOpen: Boolean;
+ sLogPath_: String;
+
+ _hMTP: THandle;
+ _sMtpDev,
+ _sMtpRecentFile: String;
+ _dwMtpTick: DWORD; // MTP 인지하고 연속 차단을 위한 타임아웃 24_0604 16:19:01 kku
+
+ Constructor Create;
+ Destructor Destroy; override;
+ procedure DoInterceptRemove;
+
+ procedure OnAppDisconnected(aSener: TObject);
+
+ procedure AddCreateFile(hFile: THandle; sPath: String);
+ function HasCreateFile(hFile: THandle): Boolean;
+ procedure DelCloseFile(hFile: THandle);
+ function GetRFilePath(sFName: String): String;
+
+ procedure Log(sLog: String); overload;
+ procedure Log(const sFormat: string; const Args: array of const); overload;
+ procedure SendText(sData: String);
+
+ procedure ProcessAppCtrlOpt(aOpt: TAppCtrlOpt);
+
+ property Helper: TAppCtrlHelper read Helper_;
+ property PrtMaskList: TStringList read PrtMaskList_;
+ end;
+
+var
+ gAppHook: TAppHook = nil;
+
+implementation
+
+uses
+{$IFDEF USE_BOXAPP}
+ BoxedAppSDK_Static,
+{$ENDIF}
+ DDetours, Tocsg.Safe, Vcl.Forms,
+ Tocsg.Exception, System.DateUtils, Tocsg.Packet, ApiHookFile, ApiHookPrint,
+ ApiHookDraw, Tocsg.Strings, Winapi.WinSpool, ApiHookExplorer;
+
+{ TAppHook }
+
+Constructor TAppHook.Create;
+
+ procedure GetStartTime;
+ var
+ ftCreate,
+ ftExit,
+ ftKernel,
+ ftUser: TFileTime;
+ nDosTime: Integer;
+ begin
+ dtCreate_ := 0;
+
+ GetProcessTimes(GetCurrentProcess, ftCreate, ftExit, ftKernel, ftUser);
+
+ if FileTimeToLocalFileTime(ftCreate, ftCreate) then
+ if FileTimeToDosDateTime(ftCreate, LongRec(nDosTime).Hi, LongRec(nDosTime).Lo) then
+ dtCreate_ := FileDateToDateTime(nDosTime);
+ end;
+
+begin
+ Inherited Create;
+ ASSERT(gAppHook = nil);
+ gAppHook := Self;
+ CS_ := TCriticalSection.Create;
+ hProcWnd_ := 0;
+ Trace_ := nil;
+
+ _hMTP := 0;
+ _sMtpDev := '';
+ _dwMtpTick := 0;
+ _sMtpRecentFile := '';
+ _bLogProcessing := false;
+ _bInternalOpen := false;
+
+ PrtMaskList_ := TStringList.Create;
+
+ GetStartTime;
+
+ RFileList_ := TStringList.Create;
+ RFileList_.CaseSensitive := false;
+
+{$IFDEF DEBUG} // 이거 켜면 DLL 해제 시 떨어지지 않는다 23_0315 11:09:49 kku
+
+{$IFDEF WIN64}
+ sLogPath_ := 'C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Debug - Win64\AppCtrl_d.log';
+{$ELSE}
+ sLogPath_ := 'C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Debug - Win32\AppCtrl32_d.log';
+// sLogPath_ := 'C:\AppCtrl\AppCtrl32_d.log';
+{$ENDIF}
+ ForceDirectories(ExtractFilePath(sLogPath_));
+
+// if FileExists(sLogPath_) then
+// DeleteFile(PChar(sLogPath_));
+ Trace_ := TTgTrace.Create(ExtractFilePath(sLogPath_), ExtractFileName(sLogPath_));
+ Trace_.Level := 99;
+ Trace_.OnBeforeLog := OnBeforeLog;
+ Trace_.OnAfterLog := OnAfterLog;
+ Trace_.LoadHead := ModuleName + ' > ';
+{$ENDIF}
+
+ ProcList_ := TList.Create;
+ Helper_ := TAppCtrlHelper.Create(ModulePath);
+// if Helper_.IsDrmSupport then
+// InitDrmProcess;
+
+ Client_ := TAppHookClient.Create;
+ Client_.OnDisconnected := OnAppDisconnected;
+ Client_.TryReconnect := true;
+ Client_.ModulePath := ModulePath;
+ if not Client_.ActiveNp('NpAppCtrl', false) then
+ begin
+ Log('Fail .. ActiveNp()');
+ exit;
+ end;
+
+ if not Client_.ConnectNp then
+ begin
+ Log('Fail .. Connection');
+ exit;
+ end;
+
+// var Send: ISendPacket;
+// Send := TTgPacket.Create(ACC_TEST_LOG);
+// Send.S['Msg'] := ModuleName + ' > 방가방가';
+// Client_.SendPacket(Send);
+end;
+
+Destructor TAppHook.Destroy;
+begin
+ Log('Destroy()');
+
+ if Client_ <> nil then
+ FreeAndNil(Client_);
+//
+ DoInterceptRemove;
+ UninstallFileOperationHooks;
+ if Trace_ <> nil then
+ FreeAndNil(Trace_);
+
+ FreeAndNil(Helper_);
+ FreeAndNil(ProcList_);
+ FreeAndNil(RFileList_);
+ FreeAndNil(PrtMaskList_);
+ Inherited;
+ FreeAndNil(CS_);
+end;
+
+procedure TAppHook.InitDrmProcess;
+{$IFDEF USE_BOXAPP}
+var
+ bLoadBx: Boolean;
+Label
+ LB_LoadBx;
+{$ENDIF}
+begin
+ Log('InitDrmProcess() ..');
+{$IFDEF USE_BOXAPP}
+// if bUseBoxedApp_ then
+ begin
+ try
+ bLoadBx := false;
+ LB_LoadBx :
+ try
+ // Init BoxedApp SDK
+ BoxedAppSDK_SetContext('21f2f010-06e4-465f-af8f-cde6a3752c39');
+ BoxedAppSDK_Init;
+
+ // Allow injection BoxedApp engine into child processes
+ // BoxedAppSDK_EnableOption(DEF_BOXEDAPPSDK_OPTION__EMBED_BOXEDAPP_IN_CHILD_PROCESSES, TRUE);
+ // BoxedAppSDK_EnableOption(DEF_BOXEDAPPSDK_OPTION__HIDE_VIRTUAL_FILES_FROM_FILE_DIALOG, TRUE);
+// BoxedAppSDK_EnableOption(DEF_BOXEDAPPSDK_OPTION__ALL_CHANGES_ARE_VIRTUAL, TRUE);
+
+ bLoadBx := true;
+ except
+ Log('Fail .. BoxedAppSDK');
+ end;
+
+ if not bLoadBx then
+ begin
+ Sleep(10);
+ goto LB_LoadBx;
+ end;
+ except
+ Log('Fail .. UseBoxedAppSDK');
+ end;
+ end;
+{$ENDIF}
+
+ AddInterceptAPI(@ozCreateFileA, @CreateFileA, @CreateFileAHook, 'CreateFileA');
+ AddInterceptAPI(@ozCreateFileW, @CreateFileW, @CreateFileWHook, 'CreateFileW');
+ AddInterceptAPI(@ozCloseHandle, @CloseHandle, @CloseHandleHook, 'CloseHandle');
+end;
+
+procedure TAppHook.Lock;
+begin
+ CS_.Acquire;
+end;
+
+procedure TAppHook.Unlock;
+begin
+ CS_.Release;
+end;
+
+procedure TAppHook.AddInterceptAPI(var aProcDest: Pointer; aProcSrc, aProcHook: Pointer; sProcName: String);
+begin
+ if aProcDest = nil then
+ begin
+ aProcDest := InterceptCreate(aProcSrc, aProcHook);
+ if aProcDest <> nil then
+ begin
+ Log(Format('>>> InterceptCreate() - %s <<<', [sProcName]));
+ ProcList_.Add(@aProcDest);
+ end else
+ Log(Format('>>> Fail .. InterceptCreate() - %s <<<', [sProcName]));
+ end;
+end;
+
+procedure TAppHook.DoInterceptRemove;
+
+ procedure RemoveAPI(var aProc: Pointer); inline;
+ begin
+ if aProc <> nil then
+ begin
+ InterceptRemove(aProc);
+ aProc := nil;
+ end;
+ end;
+
+var
+ i: Integer;
+begin
+ Log('DoInterceptRemove()');
+
+ for i := 0 to ProcList_.Count - 1 do
+ RemoveAPI(ProcList_[i]^);
+ ProcList_.Clear;
+end;
+
+procedure TAppHook.OnAppDisconnected(aSener: TObject);
+var
+ CtrlOpt: TAppCtrlOpt;
+begin
+ ZeroMemory(@CtrlOpt, SizeOf(CtrlOpt));
+ Helper_.CtrlOpt := CtrlOpt;
+end;
+
+procedure TAppHook.AddCreateFile(hFile: THandle; sPath: String);
+begin
+ try
+// Lock;
+ try
+ if RFileList_.IndexOf(sPath) = -1 then
+ RFileList_.AddObject(sPath, TObject(hFile));
+ finally
+// Unlock;
+ end;
+ except
+ // ..
+ end;
+end;
+
+function TAppHook.HasCreateFile(hFile: THandle): Boolean;
+var
+ i: Integer;
+begin
+ Result := false;
+ try
+ Lock;
+ try
+ for i := 0 to RFileList_.Count - 1 do
+ if hFile = THandle(RFileList_.Objects[i]) then
+ begin
+ Result := true;
+ exit;
+ end;
+ finally
+ Unlock;
+ end;
+ except
+ // ..
+ end;
+end;
+
+procedure TAppHook.DelCloseFile(hFile: THandle);
+var
+ i: Integer;
+begin
+ try
+ Lock;
+ try
+ for i := 0 to RFileList_.Count - 1 do
+ if hFile = THandle(RFileList_.Objects[i]) then
+ begin
+ RFileList_.Delete(i);
+ exit;
+ end;
+ finally
+ Unlock;
+ end;
+ except
+ // ..
+ end;
+end;
+
+function TAppHook.GetRFilePath(sFName: String): String;
+var
+ i: Integer;
+begin
+ Result := '';
+ try
+ sFName := UpperCase(sFName);
+ Lock;
+ try
+ for i := 0 to RFileList_.Count - 1 do
+ if Pos(UpperCase(ExtractFileName(RFileList_[i])), sFName) > 0 then
+ begin
+ Result := RFileList_[i];
+ exit;
+ end;
+ finally
+ Unlock;
+ end;
+ except
+ // ..
+ end;
+end;
+
+procedure TAppHook.OnBeforeLog(Sender: TObject);
+begin
+ _bLogProcessing := true;
+end;
+
+procedure TAppHook.OnAfterLog(Sender: TObject);
+begin
+ _bLogProcessing := false;
+end;
+
+procedure TAppHook.Log(sLog: String);
+begin
+ if Trace_ <> nil then
+ begin
+ _bLogProcessing := true;
+ Trace_.T('(%s) %s', [ModuleName, sLog]);
+ _bLogProcessing := false;
+ end;
+end;
+
+procedure TAppHook.Log(const sFormat: string; const Args: array of const);
+var
+ str: String;
+begin
+ FmtStr(str, sFormat, Args);
+ Log(str);
+end;
+
+procedure TAppHook.SendText(sData: String);
+var
+ Send: ISendpacket;
+begin
+ Send := TTgPacket.Create(ACC_TEST_LOG);
+ Send.S['Msg'] := ModuleName + ' > ' + sData;
+ Client_.SendPacket(Send);
+end;
+
+procedure TAppHook.ProcessAppCtrlOpt(aOpt: TAppCtrlOpt);
+begin
+ try
+ if CompareText('explorer.exe', ModuleName) = 0 then
+ begin
+ InstallFileOperationHooks;
+ exit;
+ end;
+
+
+// DoInterceptRemove;
+ {$IFDEF DEBUG}
+ Helper_.bEndDocProc_ := CompareText('excel.exe', ModuleName) <> 0;
+ {$ENDIF}
+
+ if aOpt.hCltWnd <> 0 then
+ SetWindowDisplayAffinity(aOpt.hCltWnd, 1);
+
+ if aOpt.sDrmPass <> '' then
+ aOpt.sDrmPass := DecText(aOpt.sDrmPass);
+ Helper_.CtrlOpt := aOpt;
+
+// Helper_.bEndDocProc_ := true; // 엑셀에서 이렇게 하면 워터마크가 뒤로 밀리는 문제가 있음..23_0410 15:52:34 kku
+
+ if (aOpt.FileUseBlock <> fubNone) or gAppHook.Helper.CtrlOpt.bMtpWB then
+ begin
+ AddInterceptAPI(@ozCreateFileA, @CreateFileA, @CreateFileAHook, 'CreateFileA');
+ AddInterceptAPI(@ozCreateFileW, @CreateFileW, @CreateFileWHook, 'CreateFileW');
+
+ {$IFDEF DEBUG}
+ // 사용하지 않음 24_0122 14:14:59 kku
+
+// AddInterceptAPI(@ozCloseHandle, @CloseHandle, @CloseHandleHook, 'CloseHandle');
+// AddInterceptAPI(@ozReadFile, @ReadFile, @ReadFileHook, 'ReadFile');
+// AddInterceptAPI(@ozReadFileEx, @ReadFileEx, @ReadFileExHook, 'ReadFileEx');
+// AddInterceptAPI(@ozWriteFile, @WriteFile, @WriteFileHook, 'WriteFile');
+// AddInterceptAPI(@ozWriteFileEx, @WriteFileEx, @WriteFileExHook, 'WriteFileExHook');
+ {$ENDIF}
+ end;
+
+ if aOpt.bPrintSecu or aOpt.bPrintWater then
+ begin
+ AddInterceptAPI(@ozStartDocA, @StartDocA, @StartDocAHook, 'StartDocA');
+ AddInterceptAPI(@ozStartDocW, @StartDocW, @StartDocWHook, 'StartDocW');
+ AddInterceptAPI(@ozStartPage, @StartPage, @StartPageHook, 'StartPage');
+ AddInterceptAPI(@ozEndPage, @EndPage, @EndPageHook, 'EndPage');
+// AddInterceptAPI(@ozEndDoc, @EndDoc, @EndDocHook, 'EndDoc');
+
+// AddInterceptAPI(@ozWritePrinter, @WritePrinter, @WritePrinterHook, 'WritePrinter'); // 이거 하면 이후로 훅 진행이 먹통된다... 23_0419 14:11:21 kku
+
+// if aOpt.bPrintSecu then
+ begin
+ //{
+ AddInterceptAPI(@ozExtTextOutA, @ExtTextOutA, @ExtTextOutAHook, 'ExtTextOutA'); // notepad++
+ AddInterceptAPI(@ozExtTextOutW, @ExtTextOutW, @ExtTextOutWHook, 'ExtTextOutW'); // notepad++
+ AddInterceptAPI(@ozSetWorldTransform, @SetWorldTransform, @SetWorldTransformHook, 'SetWorldTransform'); // 좌표값 추출
+ AddInterceptAPI(@ozModifyWorldTransform, @ModifyWorldTransform, @ModifyWorldTransformHook, 'ModifyWorldTransform'); // 좌표값 추출, 이거 켜면 PPT에서 텍스트 위치가 꼬인다 25_1001 22:00:24 kku
+ AddInterceptAPI(@ozRectangle, @Rectangle, @RectangleHook, 'Rectangle');
+ AddInterceptAPI(@ozSelectObject, @SelectObject, @SelectObjectHook, 'SelectObject');
+ AddInterceptAPI(@ozStretchDIBits, @StretchDIBits, @StretchDIBitsHook, 'StretchDIBits'); // chrome 필수
+ AddInterceptAPI(@ozSetStretchBltMode, @SetStretchBltMode, @SetStretchBltModeHook, 'SetStretchBltMode');
+ AddInterceptAPI(@ozSetPolyFillMode, @SetPolyFillMode, @SetPolyFillModeHook, 'SetPolyFillMode');
+ AddInterceptAPI(@ozBeginPath, @BeginPath, @BeginPathHook, 'BeginPath'); // chrome 필수
+ AddInterceptAPI(@ozMoveToEx, @MoveToEx, @MoveToExHook, 'MoveToEx'); // chrome 필수
+ AddInterceptAPI(@ozPolyBezierTo, @PolyBezierTo, @PolyBezierToHook, 'PolyBezierTo'); // chrome 필수
+ AddInterceptAPI(@ozLineTo, @LineTo, @LineToHook, 'LineTo'); // chrome 필수
+ AddInterceptAPI(@ozCloseFigure, @CloseFigure, @CloseFigureHook, 'CloseFigure');
+ AddInterceptAPI(@ozEndPath, @EndPath, @EndPathHook, 'EndPath'); // chrome 필수
+ AddInterceptAPI(@ozFillPath, @FillPath, @FillPathHook, 'FillPath'); // chrome 필수
+ AddInterceptAPI(@ozLPtoDP, @LPtoDP, @LPtoDPHook, 'LPtoDP');
+ AddInterceptAPI(@ozDPtoLP, @DPtoLP, @DPtoLPHook, 'DPtoLP');
+ AddInterceptAPI(@ozFillRect, @FillRect, @FillRectHook, 'FillRect');
+ AddInterceptAPI(@ozRestoreDC, @RestoreDC, @RestoreDCHook, 'RestoreDC');
+ AddInterceptAPI(@ozSaveDC, @SaveDC, @SaveDCHook, 'SaveDC');
+ AddInterceptAPI(@ozIntersectClipRect, @IntersectClipRect, @IntersectClipRectHook, 'IntersectClipRect');
+ AddInterceptAPI(@ozBitBlt, @BitBlt, @BitBltHook, 'BitBlt');
+ AddInterceptAPI(@ozSetPixel, @SetPixel, @SetPixelHook, 'SetPixel');
+ AddInterceptAPI(@ozPlgBlt, @PlgBlt, @PlgBltHook, 'PlgBlt');
+ AddInterceptAPI(@ozPatBlt, @PatBlt, @PatBltHook, 'PatBlt');
+ AddInterceptAPI(@ozStretchBlt, @StretchBlt, @StretchBltHook, 'StretchBlt');
+ AddInterceptAPI(@ozEllipse, @Ellipse, @EllipseHook, 'Ellipse');
+ AddInterceptAPI(@ozTextOutA, @TextOutA, @TextOutAHook, 'TextOutA');
+ AddInterceptAPI(@ozTextOutW, @TextOutW, @TextOutWHook, 'TextOutW');
+ AddInterceptAPI(@ozSetTextAlign, @SetTextAlign, @SetTextAlignHook, 'SetTextAlign');
+ AddInterceptAPI(@ozSetBkMode, @SetBkMode, @SetBkModeHook, 'SetBkMode');
+ AddInterceptAPI(@ozSetViewportOrgEx, @SetViewportOrgEx, @SetViewportOrgExHook, 'SetViewportOrgEx');
+ AddInterceptAPI(@ozExtSelectClipRgn, @ExtSelectClipRgn, @ExtSelectClipRgnHook, 'ExtSelectClipRgn');
+ AddInterceptAPI(@ozSelectClipRgn, @SelectClipRgn, @SelectClipRgnHook, 'SelectClipRgn');
+ AddInterceptAPI(@ozSetMapMode, @SetMapMode, @SetMapModeHook, 'SetMapMode');
+ AddInterceptAPI(@ozSetWindowOrgEx, @SetWindowOrgEx, @SetWindowOrgExHook, 'SetWindowOrgEx');
+ AddInterceptAPI(@ozSelectPalette, @SelectPalette, @SelectPaletteHook, 'SelectPalette');
+ AddInterceptAPI(@ozSetGraphicsMode, @SetGraphicsMode, @SetGraphicsModeHook, 'SetGraphicsMode');
+ AddInterceptAPI(@ozSetBkColor, @SetBkColor, @SetBkColorHook, 'SetBkColor');
+ AddInterceptAPI(@ozSetBrushOrgEx, @SetBrushOrgEx, @SetBrushOrgExHook, 'SetBrushOrgEx');
+ AddInterceptAPI(@ozSetDIBits, @SetDIBits, @SetDIBitsHook, 'SetDIBits');
+ AddInterceptAPI(@ozSetROP2, @SetROP2, @SetROP2Hook, 'SetROP2');
+ AddInterceptAPI(@ozSetColorSpace, @SetColorSpace, @SetColorSpaceHook, 'SetColorSpace');
+ AddInterceptAPI(@ozExcludeClipRect, @ExcludeClipRect, @ExcludeClipRectHook, 'ExcludeClipRect');
+ AddInterceptAPI(@ozSetViewportExtEx, @SetViewportExtEx, @SetViewportExtExHook, 'SetViewportExtEx');
+ AddInterceptAPI(@ozSetWindowExtEx, @SetWindowExtEx, @SetWindowExtExHook, 'SetWindowExtEx');
+ AddInterceptAPI(@ozScaleViewportExtEx, @ScaleViewportExtEx, @ScaleViewportExtExHook, 'ScaleViewportExtEx');
+ AddInterceptAPI(@ozSetTextColor, @SetTextColor, @SetTextColorHook, 'SetTextColor');
+ AddInterceptAPI(@ozSetDCBrushColor, @SetDCBrushColor, @SetDCBrushColorHook, 'SetDCBrushColor');
+ AddInterceptAPI(@ozSetDCPenColor, @SetDCPenColor, @SetDCPenColorHook, 'SetDCPenColor');
+ AddInterceptAPI(@ozCreateHalftonePalette, @CreateHalftonePalette, @CreateHalftonePaletteHook, 'CreateHalftonePalette');
+ AddInterceptAPI(@ozCreateDIBSection, @CreateDIBSection, @CreateDIBSectionHook, 'CreateDIBSection');
+ AddInterceptAPI(@ozSetBoundsRect, @SetBoundsRect, @SetBoundsRectHook, 'SetBoundsRect');
+ AddInterceptAPI(@ozSetSystemPaletteUse, @SetSystemPaletteUse, @SetSystemPaletteUseHook, 'SetSystemPaletteUse');
+ AddInterceptAPI(@ozRealizePalette, @RealizePalette, @RealizePaletteHook, 'RealizePalette');
+ AddInterceptAPI(@ozSetDIBColorTable, @SetDIBColorTable, @SetDIBColorTableHook, 'SetDIBColorTable');
+ AddInterceptAPI(@ozSetMapperFlags, @SetMapperFlags, @SetMapperFlagsHook, 'SetMapperFlags');
+ AddInterceptAPI(@ozSetColorAdjustment, @SetColorAdjustment, @SetColorAdjustmentHook, 'SetColorAdjustment');
+ AddInterceptAPI(@ozPolyBezier, @PolyBezier, @PolyBezierHook, 'PolyBezier');
+ AddInterceptAPI(@ozPolygon, @Polygon, @PolygonHook, 'Polygon');
+ AddInterceptAPI(@ozPolyline, @Polyline, @PolylineHook, 'Polyline');
+ AddInterceptAPI(@ozPolyLineTo, @PolyLineTo, @PolyLineToHook, 'PolyLineTo');
+ AddInterceptAPI(@ozPolyPolyline, @PolyPolyline, @PolyPolylineHook, 'PolyPolyline');
+ AddInterceptAPI(@ozPolyPolygon, @PolyPolygon, @PolyPolygonHook, 'PolyPolygon');
+ AddInterceptAPI(@ozSetPixelV, @SetPixelV, @SetPixelVHook, 'SetPixelV');
+ AddInterceptAPI(@ozColorCorrectPalette, @ColorCorrectPalette, @ColorCorrectPaletteHook, 'ColorCorrectPalette');
+ AddInterceptAPI(@ozSetICMProfileA, @SetICMProfileA, @SetICMProfileAHook, 'SetICMProfileA');
+ AddInterceptAPI(@ozSetICMProfileW, @SetICMProfileW, @SetICMProfileWHook, 'SetICMProfileW');
+ AddInterceptAPI(@ozSetTextJustification, @SetTextJustification, @SetTextJustificationHook, 'SetTextJustification');
+ AddInterceptAPI(@ozScaleWindowExtEx, @ScaleWindowExtEx, @ScaleWindowExtExHook, 'ScaleWindowExtEx');
+ AddInterceptAPI(@ozAngleArc, @AngleArc, @AngleArcHook, 'AngleArc');
+ AddInterceptAPI(@ozRoundRect, @RoundRect, @RoundRectHook, 'RoundRect');
+ AddInterceptAPI(@ozArc, @Arc, @ArcHook, 'Arc');
+ AddInterceptAPI(@ozChord, @Chord, @ChordHook, 'Chord');
+ AddInterceptAPI(@ozPie, @Pie, @PieHook, 'Pie');
+ AddInterceptAPI(@ozExtFloodFill, @ExtFloodFill, @ExtFloodFillHook, 'ExtFloodFill');
+ AddInterceptAPI(@ozArcTo, @ArcTo, @ArcToHook, 'ArcTo');
+ AddInterceptAPI(@ozPolyDraw, @PolyDraw, @PolyDrawHook, 'PolyDraw');
+ AddInterceptAPI(@ozSetMiterLimit, @SetMiterLimit, @SetMiterLimitHook, 'SetMiterLimit');
+ AddInterceptAPI(@ozStrokeAndFillPath, @StrokeAndFillPath, @StrokeAndFillPathHook, 'StrokeAndFillPath');
+ AddInterceptAPI(@ozStrokePath, @StrokePath, @StrokePathHook, 'StrokePath');
+ AddInterceptAPI(@ozFlattenPath, @FlattenPath, @FlattenPathHook, 'FlattenPath');
+ AddInterceptAPI(@ozWidenPath, @WidenPath, @WidenPathHook, 'WidenPath');
+ AddInterceptAPI(@ozSelectClipPath, @SelectClipPath, @SelectClipPathHook, 'SelectClipPath');
+ AddInterceptAPI(@ozAbortPath, @AbortPath, @AbortPathHook, 'AbortPath');
+ AddInterceptAPI(@ozFillRgn, @FillRgn, @FillRgnHook, 'FillRgn');
+ AddInterceptAPI(@ozFrameRgn, @FrameRgn, @FrameRgnHook, 'FrameRgn');
+ AddInterceptAPI(@ozInvertRgn, @InvertRgn, @InvertRgnHook, 'InvertRgn');
+ AddInterceptAPI(@ozPaintRgn, @PaintRgn, @PaintRgnHook, 'PaintRgn');
+ AddInterceptAPI(@ozMaskBlt, @MaskBlt, @MaskBltHook, 'MaskBlt');
+ AddInterceptAPI(@ozPolyTextOutA, @PolyTextOutA, @PolyTextOutAHook, 'PolyTextOutA');
+ AddInterceptAPI(@ozPolyTextOutW, @PolyTextOutW, @PolyTextOutWHook, 'PolyTextOutW');
+ AddInterceptAPI(@ozUpdateColors, @UpdateColors, @UpdateColorsHook, 'UpdateColors');
+ AddInterceptAPI(@ozOffsetViewportOrgEx, @OffsetViewportOrgEx, @OffsetViewportOrgExHook, 'OffsetViewportOrgEx');
+ AddInterceptAPI(@ozOffsetWindowOrgEx, @OffsetWindowOrgEx, @OffsetWindowOrgExHook, 'OffsetWindowOrgEx');
+ AddInterceptAPI(@ozSetDeviceGammaRamp, @SetDeviceGammaRamp, @SetDeviceGammaRampHook, 'SetDeviceGammaRamp');
+ AddInterceptAPI(@ozColorMatchToTarget, @ColorMatchToTarget, @ColorMatchToTargetHook, 'ColorMatchToTarget');
+ AddInterceptAPI(@ozPtVisible, @PtVisible, @PtVisibleHook, 'PtVisible');
+ AddInterceptAPI(@ozRectVisible, @RectVisible, @RectVisibleHook, 'RectVisible');
+ AddInterceptAPI(@ozSetPixelFormat, @SetPixelFormat, @SetPixelFormatHook, 'SetPixelFormat');
+ AddInterceptAPI(@ozOffsetClipRgn, @OffsetClipRgn, @OffsetClipRgnHook, 'OffsetClipRgn');
+ AddInterceptAPI(@ozSetArcDirection, @SetArcDirection, @SetArcDirectionHook, 'SetArcDirection');
+ AddInterceptAPI(@ozSetTextCharacterExtra, @SetTextCharacterExtra, @SetTextCharacterExtraHook, 'SetTextCharacterExtra');
+ AddInterceptAPI(@ozEnumICMProfilesA, @EnumICMProfilesA, @EnumICMProfilesAHook, 'EnumICMProfilesA');
+ AddInterceptAPI(@ozEnumICMProfilesW, @EnumICMProfilesW, @EnumICMProfilesWHook, 'EnumICMProfilesW');
+ AddInterceptAPI(@ozSetICMMode, @SetICMMode, @SetICMModeHook, 'SetICMMode');
+ AddInterceptAPI(@ozSetDIBitsToDevice, @SetDIBitsToDevice, @SetDIBitsToDeviceHook, 'SetDIBitsToDevice');
+ AddInterceptAPI(@ozDrawEscape, @DrawEscape, @DrawEscapeHook, 'DrawEscape');
+ AddInterceptAPI(@ozEnumFontsA, @EnumFontsA, @EnumFontsAHook, 'EnumFontsA');
+ AddInterceptAPI(@ozEnumFontsW, @EnumFontsW, @EnumFontsWHook, 'EnumFontsW');
+ AddInterceptAPI(@ozEnumFontFamiliesA, @EnumFontFamiliesA, @EnumFontFamiliesAHook, 'EnumFontFamiliesA');
+ AddInterceptAPI(@ozEnumFontFamiliesW, @EnumFontFamiliesW, @EnumFontFamiliesWHook, 'EnumFontFamiliesW');
+ AddInterceptAPI(@ozSetMetaRgn, @SetMetaRgn, @SetMetaRgnHook, 'SetMetaRgn');
+ AddInterceptAPI(@ozPlayEnhMetaFile, @PlayEnhMetaFile, @PlayEnhMetaFileHook, 'PlayEnhMetaFile');
+ AddInterceptAPI(@ozPlayEnhMetaFileRecord, @PlayEnhMetaFileRecord, @PlayEnhMetaFileRecordHook, 'PlayEnhMetaFileRecord');
+
+// AddInterceptAPI(@ozTransparentBlt, @TransparentBlt, @TransparentBltHook, 'TransparentBlt');
+// AddInterceptAPI(@ozGradientFill, @GradientFill, @GradientFillHook, 'GradientFill');
+
+// AddInterceptAPI(@ozFrameRect, @FrameRect, @FrameRectHook, 'FrameRect');
+// AddInterceptAPI(@ozFloodFill, @FloodFill, @FloodFillHook, 'FloodFill'); // 훅 제외
+// AddInterceptAPI(@ozDrawTextExA, @DrawTextExA, @DrawTextExAHook_DW, 'DrawTextExA');
+// AddInterceptAPI(@ozDrawTextExW, @DrawTextExW, @DrawTextExWHook_DW, 'DrawTextExW');
+// AddInterceptAPI(@ozTabbedTextOutA, @TabbedTextOutA, @TabbedTextOutAHook, 'TabbedTextOutA');
+// AddInterceptAPI(@ozTabbedTextOutW, @TabbedTextOutW, @TabbedTextOutWHook, 'TabbedTextOutW');
+// AddInterceptAPI(@ozGetTextCharsetInfo, @GetTextCharsetInfo, @GetTextCharsetInfoHook, 'GetTextCharsetInfo'); // 훅 제외
+// AddInterceptAPI(@ozGetGlyphIndicesA, @GetGlyphIndicesA, @GetGlyphIndicesAHook, 'GetGlyphIndicesA') // 훅 제외;
+// AddInterceptAPI(@ozGetGlyphIndicesW, @GetGlyphIndicesW, @GetGlyphIndicesWHook, 'GetGlyphIndicesW'); // 훅 제외
+// AddInterceptAPI(@ozGetFontLanguageInfo, @GetFontLanguageInfo, @GetFontLanguageInfoHook, 'GetFontLanguageInfo'); // 훅 제외
+// AddInterceptAPI(@ozGetCharacterPlacementA, @GetCharacterPlacementA, @GetCharacterPlacementAHook, 'GetCharacterPlacementA'); // 훅 제외
+// AddInterceptAPI(@ozGetCharacterPlacementW, @GetCharacterPlacementW, @GetCharacterPlacementWHook, 'GetCharacterPlacementW'); // 훅 제외
+// AddInterceptAPI(@ozGetFontData, @GetFontData, @GetFontDataHook, 'GetFontData'); // 훅 제외
+// AddInterceptAPI(@ozGetGlyphOutlineA, @GetGlyphOutlineA, @GetGlyphOutlineAHook, 'GetGlyphOutlineA'); // 훅 제외
+// AddInterceptAPI(@ozGetGlyphOutlineW, @GetGlyphOutlineW, @GetGlyphOutlineWHook, 'GetGlyphOutlineW'); // 훅 제외
+// AddInterceptAPI(@ozResetDCA, @ResetDCA, @ResetDCAHook, 'ResetDCA'); // 사용하지 않음
+// AddInterceptAPI(@ozResetDCW, @ResetDCW, @ResetDCWHook, 'ResetDCW'); // 사용하지 않음
+// AddInterceptAPI(@ozAlphaBlend, @AlphaBlend, @AlphaBlendHook, 'AlphaBlend'); // 훅 제외
+// AddInterceptAPI(@ozGetTextMetricsA, @GetTextMetricsA, @GetTextMetricsAHook, 'GetTextMetricsA'); // 훅 제외
+// AddInterceptAPI(@ozGetTextMetricsW, @GetTextMetricsW, @GetTextMetricsWHook, 'GetTextMetricsW'); // 훅 제외
+// AddInterceptAPI(@ozGetTextExtentPoint32A, @GetTextExtentPoint32A, @GetTextExtentPoint32AHook, 'GetTextExtentPoint32A'); // 훅 제외
+// AddInterceptAPI(@ozGetTextExtentPoint32W, @GetTextExtentPoint32W, @GetTextExtentPoint32WHook, 'GetTextExtentPoint32W'); // 훅 제외
+// AddInterceptAPI(@ozGdiComment, @GdiComment, @GdiCommentHook, 'GdiComment'); // 훅 제외
+// AddInterceptAPI(@ozGetCharABCWidthsA, @GetCharABCWidthsA, @GetCharABCWidthsAHook, 'GetCharABCWidthsA'); // 훅 제외
+// AddInterceptAPI(@ozGetCharABCWidthsW, @GetCharABCWidthsW, @GetCharABCWidthsWHook, 'GetCharABCWidthsW'); // 훅 제외
+// AddInterceptAPI(@ozExtEscape, @ExtEscape, @ExtEscapeHook, 'ExtEscape'); // 훅 제외
+// AddInterceptAPI(@ozCreateCompatibleDC, @CreateCompatibleDC, @CreateCompatibleDCHook, 'CreateCompatibleDC'); // 훅 제외
+// AddInterceptAPI(@ozCreateCompatibleBitmap, @CreateCompatibleBitmap, @CreateCompatibleBitmapHook, 'CreateCompatibleBitmap'); // 훅 제외
+
+ // 이거 활성화 하면 프린트 창이 안뜨고 죽는다 25_1001 19:27:29 kku
+// AddInterceptAPI(@ozDrawTextA, @DrawTextA, @DrawTextAHook, 'DrawTextA');
+// AddInterceptAPI(@ozDrawTextW, @DrawTextW, @DrawTextWHook, 'DrawTextW');
+ end;
+ end;
+ except
+ // ..
+ end;
+end;
+
+end.
+
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppHookClient.pas b/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppHookClient.pas
new file mode 100644
index 00000000..fe6ffa37
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/AppHookClient.pas
@@ -0,0 +1,223 @@
+{*******************************************************}
+{ }
+{ AppHookClient }
+{ }
+{ Copyright (C) 2023 kku }
+{ }
+{*******************************************************}
+
+unit AppHookClient;
+
+interface
+
+uses
+ Tocsg.ClientBase, System.Classes, WinApi.Windows, Tocsg.Packet,
+ System.SysUtils;
+
+type
+ TAppHookClient = class(TTgClientBase)
+ protected
+ dwPid_,
+ dwLastSaveTick_: DWORD;
+ sModulePath_: String;
+ evDisconnected_: TNotifyEvent;
+ procedure ConnectedEvent; override;
+ procedure DisconnectedEvent; override;
+ procedure ProcessRcvPacket(aRcv: IRcvPacket); override;
+ public
+ Constructor Create;
+
+ property ModulePath: String write sModulePath_;
+ property OnDisconnected: TNotifyEvent write evDisconnected_;
+ end;
+
+implementation
+
+uses
+{$IFDEF _BS1HP_}
+ BS1Hook,
+{$ELSE}
+ AppHook,
+{$ENDIF}
+ Tocsg.Exception, superobject, GlobalDefine, Tocsg.Process, Tocsg.WndUtil,
+ AppCtrlDefine, Tocsg.Json;
+
+{ TAppHookClient }
+
+Constructor TAppHookClient.Create;
+begin
+ Inherited Create('', -1);
+ @evDisconnected_ := nil;
+ dwPid_ := GetCurrentProcessId;
+ dwLastSaveTick_ := 0;
+end;
+
+procedure TAppHookClient.ConnectedEvent;
+var
+ Send: ISendPacket;
+begin
+ try
+// Inherited;
+ SetSendPauseState(false);
+ _Trace('Connected.');
+
+ Send := TTgPacket.Create(ACC_APP_INFO);
+ Send.I['PID'] := dwPid_;
+ Send.S['Path'] := sModulePath_;
+ SendPacket(Send);
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. ConnectedEvent()');
+ end;
+end;
+
+procedure TAppHookClient.DisconnectedEvent;
+begin
+ try
+ Inherited;
+ QSendPacket_.Clear;
+
+ if Assigned(evDisconnected_) then
+ evDisconnected_(Self);
+
+ _Trace('Disconnected');
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. DisconnectedEvent()');
+ end;
+end;
+
+procedure TAppHookClient.ProcessRcvPacket(aRcv: IRcvPacket);
+var
+ Send: ISendPacket;
+
+ procedure process_ACC_TEST_LOG;
+ begin
+ _Trace(aRcv.S['Msg']);
+
+ Send := TTgPacket.Create(aRcv);
+ Send.S['Msg'] := aRcv.S['Msg'] + ' 하하하';
+ SendPacket(Send);
+ end;
+
+ procedure process_ACC_SET_POLICY;
+ var
+ Opt: TAppCtrlOpt;
+ begin
+ try
+ if aRcv.O['Opt'] = nil then
+ exit;
+
+ ZeroMemory(@Opt, SizeOf(Opt));
+ with aRcv.O['Opt'] do
+ begin
+ Opt.sTaskDir := S['sTaskDir'];
+ Opt.dwCustomerType := I['dwCustomerType'];
+ Opt.hMainWnd := I['hMainWnd'];
+
+ // DRM
+ Opt.DrmAccessKind := TDrmAccessKind(I['DrmAccessKind']);
+ Opt.DrmModifyKind := TDrmAccessKind(I['DrmModifyKind']);
+ Opt.bDrmAttachAble := B['bDrmAttachAble'];
+ Opt.sDrmPass := S['sDrmPass'];
+ Opt.sUName := S['sUName'];
+ Opt.sEmpNo := S['sEmpNo'];
+ Opt.sDeptName := S['sDeptName'];
+ Opt.sIpAddr := S['sIpAddr'];
+
+ // Print
+ Opt.nFontSize := I['nFontSize'];
+ Opt.nLineCount := I['nLineCount'];
+// Opt.sTextOutApp := S['sTextOutApp'];
+// Opt.sTextOutDir := S['sTextOutDir'];
+ Opt.sPrtEmfOutDir := S['sPrtEmfOutDir'];
+ Opt.sPrintWaterImg := S['sPrintWaterImg'];
+ Opt.nPrintWaterAlpha := I['nPrintWaterAlpha'];
+// Opt.sPrintWaterTxt := S['sPrintWaterTxt'];
+ Opt.bPrintSecu := B['bPrintSecu'];
+ Opt.bPrintWater := B['bPrintWater'];
+ Opt.bPrtCollect := B['bPrtCollect'];
+ Opt.sPrintWaterExp := S['sPrintWaterExp'];
+ Opt.fWmTran := D['fWmTran'];
+// Opt.bPrintMasking := B['bPrintMasking'];
+ try
+ Opt.PrtWaterCfg := TTgJson.GetDataAsType(O['PrtWaterCfg']);
+ except
+ ZeroMemory(@Opt.PrtWaterCfg, SizeOf(Opt.PrtWaterCfg));
+ end;
+
+ // File
+ Opt.FileUseBlock := TFileUseBlock(I['FileUseBlock']);
+ Opt.bCheckUrl := B['bCheckUrl'];
+ Opt.bUseContentFilter := B['bUseContentFilter'];
+ Opt.bReadBlock := B['bReadBlock'];
+ Opt.bWriteBlock := B['bWriteBlock'];
+ Opt.bFileApproval := B['bFileApproval'];
+ Opt.bIgrNetPathAB := B['bIgrNetPathAB'];
+ Opt.bOpenDetect := B['bOpenDetect'];
+ if O['ShFileCrMon'] <> nil then
+ begin
+ Opt.ShFileCrMon.nKind := O['ShFileCrMon'].I['nKind'];
+ Opt.ShFileCrMon.bBlkNoti := O['ShFileCrMon'].B['bBlkNoti'];
+ Opt.ShFileCrMon.bMonNoti := O['ShFileCrMon'].B['bMonNoti'];
+ Opt.ShFileCrMon.sExpLst := O['ShFileCrMon'].S['sExpLst'];
+ end else
+ Opt.ShFileCrMon.nKind := 0;
+
+ // Noti
+ Opt.hRcvWnd := I['hRcvWnd'];
+ Opt.hTagWnd := I['hTagWnd'];
+ Opt.hCltWnd := I['hCltWnd'];
+
+ // ETC
+ Opt.sAcName := S['sAcName'];
+ Opt.sAcSSid := S['sAcSSid'];
+ Opt.sAipPath := S['sAipPath'];
+ Opt.bMtpWB := B['bMtpWB'];
+ Opt.sMtpRoExp := S['sMtpRoExp'];
+ Opt.bIsTest := B['bIsTest'];
+ end;
+// Opt := TTgJson.GetDataAsType(aRcv.O['Opt']);
+
+ gAppHook.ProcessAppCtrlOpt(Opt);
+ except
+ //
+ end;
+ end;
+
+ procedure process_ACC_SAFE_TERMINATE_CLIENT;
+ begin
+ gAppHook.DoInterceptRemove;
+ Disconnect;
+ Sleep(3000);
+// StopThread;
+ end;
+
+ procedure process_ACC_SET_CAPTURE_BLOCK;
+ begin
+ {$IFDEF _BS1HP_}
+ if gAppHook <> nil then
+ begin
+ if aRcv.B['Block'] then
+ gAppHook.AddCapBlockWnd(aRcv.I['Wnd'])
+ else
+ gAppHook.DelCapBlockWnd(aRcv.I['Wnd']);
+ end;
+ {$ENDIF}
+ end;
+
+begin
+ try
+ case aRcv.Command of
+ ACC_TEST_LOG : process_ACC_TEST_LOG;
+ ACC_SET_POLICY : process_ACC_SET_POLICY;
+ ACC_SAFE_TERMINATE_CLIENT : process_ACC_SAFE_TERMINATE_CLIENT;
+ ACC_SET_CAPTURE_BLOCK : process_ACC_SET_CAPTURE_BLOCK;
+ end;
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. ProcessRcvPacket(), Cmd=%d', [aRcv.Command]);
+ end;
+end;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/Define.pas b/Tocsg.Module/AppCtrl/DLL_AppCtrl/Define.pas
new file mode 100644
index 00000000..2cc27613
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/Define.pas
@@ -0,0 +1,11 @@
+unit Define;
+
+interface
+
+const
+ CLIENT_TYPE = 10001;
+ CLIENT_VER = '1';
+
+implementation
+
+end.
diff --git a/Tocsg.Module/AppCtrl/DLL_AppCtrl/ProcessWM.pas b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ProcessWM.pas
new file mode 100644
index 00000000..5ca15104
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/DLL_AppCtrl/ProcessWM.pas
@@ -0,0 +1,242 @@
+{*******************************************************}
+{ }
+{ ProcessWatermark }
+{ }
+{ Copyright (C) 2025 kku }
+{ }
+{*******************************************************}
+
+unit ProcessWM;
+
+interface
+
+uses
+ Winapi.Windows, System.Classes, Vcl.Graphics;
+
+function ProcessWartermark(DC: HDC; bStartPage: Boolean = true): Boolean;
+
+implementation
+
+uses
+ AppCtrlDefine, ApiHookPrint, AppHook, Tocsg.Safe, System.SysUtils, Condition,
+ Tocsg.Graphic, Winapi.GDIPAPI, Tocsg.Convert;
+
+function ProcessWartermark(DC: HDC; bStartPage: Boolean = true): Boolean;
+var
+ nW, nH, i, nX, nY,
+ nGapW, nGapH, nDefDivFont: Integer;
+ sText: String;
+ MemCanvas: TCanvas;
+ hbmp, hOldBmp: HBITMAP;
+ pen: HPEN;
+ CtrlOpt: TAppCtrlOpt;
+ oldColor: TColor;
+ r: TRect;
+begin
+ Result := true;
+
+ if _PrtDC <> DC then
+ exit;
+
+// exit;
+
+ SaveDC(DC);
+ gAppHook.Helper.bIsWaterMaking_ := true;
+ try
+ try
+ if gAppHook.Helper.IsExcel then
+ begin
+ // 클리핑 제거 25_0605 14:51:11 kku
+ SelectClipRgn(DC, 0);
+
+ // 엑셀은 출력시트 설정에 따라 전체 영역으로 잡히는 않는 현상이 있다.. 24_0805 13:46:31 kku
+ nW := GetDeviceCaps(DC, HORZRES); // 세로모드 : 4961, 가로모드 : 7016, 크로미움 프린트 인쇄시 4760
+ nH := GetDeviceCaps(DC, VERTRES); // 세로모드 : 7016, 가로모드 : 4961, 크로미움 프린트 인쇄시 6814
+// LogToReg('Step-1-excel', Format('W = %d, H = %d,', [nW, nH]));
+ end else
+ begin
+// if bStartPage then // 이럴리 없겠지만 안전장치
+// exit;
+
+ ZeroMemory(@r, SizeOf(r));
+ GetClipBox(DC, r);
+ nW := r.Width;
+ nH := r.Height;
+// LogToReg('Step-1', Format('W = %d, H = %d,', [nW, nH]));
+// LogToReg('Step-2', Format('W = %d, H = %d,', [GetDeviceCaps(DC, HORZRES), GetDeviceCaps(DC, VERTRES)]));
+
+ if nW = 0 then
+ nW := GetDeviceCaps(DC, HORZRES); // 세로모드 : 4961, 가로모드 : 7016, 크로미움 프린트 인쇄시 4760
+ if nH = 0 then
+ nH := GetDeviceCaps(DC, VERTRES); // 세로모드 : 7016, 가로모드 : 4961, 크로미움 프린트 인쇄시 6814
+ end;
+
+// nX := GetDeviceCaps(DC, ASPECTX);
+// nY := GetDeviceCaps(DC, ASPECTY);
+
+// bStartPage := false;
+ Guard(MemCanvas, TCanvas.Create);
+// if bStartPage then
+// MemCanvas.Handle := CreateCompatibleDC(DC)
+// else
+ MemCanvas.Handle := DC; //CreateCompatibleDC(DC);
+ hbmp := CreateCompatibleBitmap(MemCanvas.Handle, nW, nH);
+ hOldBmp := SelectObject(MemCanvas.Handle, hbmp);
+
+// gAppHook.Log(Format('ProcessWartermark() - DocSize X=%d, Y=%d, W=%d, H=%d, dc=%d', [nX, nY, nW, nH, DC]));
+// LogToReg('Step0', Format('ProcessWartermark() - DocSize X=%d, Y=%d, W=%d, H=%d, dc=%d', [nX, nY, nW, nH, DC]));
+
+// if bStartPage then
+// PatBlt(MemCanvas.Handle, 0, 0, nW, nH, WHITENESS);
+
+// pen := CreatePen(PS_SOLID, 1, RGB(0, 255, 0));
+// hOldBmp := SelectObject(MemCanvas.Handle, pen);
+
+ nGapW := 0;
+ nGapH := 0;
+
+// SetBkMode(MemCanvas.Handle, TRANSPARENT);
+// MemCanvas.Font.Orientation := 250;
+
+ MemCanvas.Font.Name := 'Tahoma';
+ if gAppHook.Helper.bSmallFont_ then
+ begin
+ if Pos('PDF', UpperCase(_sPrtName)) = 0 then
+ begin
+ // 일반 프린터에서만 밀리는 현상이 있어서 갭을 준다.. 24_0627 10:52:33 kku
+ nGapW := 19;
+ nGapH := 17;
+ end;
+
+ nDefDivFont := 180;
+
+ end else
+ begin
+ if gAppHook.Helper.bEndDocProc_ then
+ begin
+ if CompareText(gAppHook.ModuleName, 'winword.exe') = 0 then
+ nGapH := 70;
+ end;
+
+ nDefDivFont := 190;
+ end;
+
+ // 기본 폰트 조절
+ if nW > nH then
+ MemCanvas.Font.Size := nW div 180
+ else
+ MemCanvas.Font.Size := nH div 180;
+
+ oldColor := GetTextColor(DC);
+ // 폰트색 지정... 프로그램에 따라 지정되는 설정이 다르다
+ MemCanvas.Font.Color := clGray; // 메모장등
+ SetTextColor(DC, clGray); // 엑셀등
+
+ try
+ CtrlOpt := gAppHook.Helper.CtrlOpt;
+// sText := CtrlOpt.sPrintWaterTxt;
+ with CtrlOpt do
+ begin
+ if CtrlOpt.sUName <> '' then
+ sText := Format('%s / %s / %s / %s', [sUName, sDeptName, sEmpNo, DateTimeToStr(Now)])
+ else if sDeptName <> '' then
+ sText := Format('%s / %s / %s', [sDeptName, sEmpNo, DateTimeToStr(Now)])
+ else
+ sText := Format('%s / %s', [sEmpNo, DateTimeToStr(Now)]);
+ end;
+
+ SetBkMode(MemCanvas.Handle, TRANSPARENT);
+
+ MemCanvas.Font.Color := clBlack;
+ MemCanvas.TextOut(nW - MemCanvas.TextWidth(sText) + nGapW,
+ nH - MemCanvas.TextHeight(sText) + nGapH, sText);
+
+ sText := gAppHook.Helper.sCurDocName_;
+ MemCanvas.TextOut(nGapW, nH - MemCanvas.TextHeight(sText) + nGapH, sText);
+
+// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+ if nW < nH then
+ MemCanvas.Font.Size := nW div (nDefDivFont div 5) // 가운데 폰트 크기 키우려면 숫자를 키우면 됨
+ else
+ MemCanvas.Font.Size := nH div (nDefDivFont div 5);
+ MemCanvas.Font.Style := MemCanvas.Font.Style + [fsBold];
+
+ if _bmpWater = nil then
+ begin
+ sText := 'ToCSG BSOne';
+ _bmpWater := TBitmap.Create;
+ _bmpWater.SetSize(MemCanvas.TextWidth(sText), MemCanvas.TextHeight(sText));
+ _bmpWater.Canvas.Font.Assign(MemCanvas.Font);
+ _bmpWater.Canvas.Font.Color := clSilver;
+ _bmpWater.Canvas.TextOut(0, 0, sText);
+ _bmpWater.TransparentColor := clWhite;
+ _bmpWater.Transparent := true;
+ RotateBitmap_PlgBlt(_bmpWater, -0.8, true, clWhite);
+ end;
+
+ if _bmpWater <> nil then
+ begin
+ var cTrMatrix: TColorMatrix;
+ ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
+ // 회색
+// cTrMatrix[0][0] := 0.299;
+// cTrMatrix[0][1] := 0.299;
+// cTrMatrix[0][2] := 0.299;
+// cTrMatrix[1][0] := 0.587;
+// cTrMatrix[1][1] := 0.587;
+// cTrMatrix[1][2] := 0.587;
+// cTrMatrix[2][0] := 0.114;
+// cTrMatrix[2][1] := 0.114;
+// cTrMatrix[2][2] := 0.114;
+// cTrMatrix[3][3] := 0.26; // 투명도 1.0 ~ 0.22
+// cTrMatrix[4][4] := 1.0;
+
+ // 위 처럼하면 컬러랑 흑백이 섞인 출력의 경우 흑백에 로고가 안찍히는 문제 확인됨 24_0805 16:02:28 kku
+ cTrMatrix[0][0] := 1;
+ cTrMatrix[1][1] := 1;
+ cTrMatrix[2][2] := 1;
+ cTrMatrix[3][3] := BooleanToFloat(gAppHook.Helper.CtrlOpt.fWmTran <> 0.0, gAppHook.Helper.CtrlOpt.fWmTran, 0.26); // 투명도 1.0 ~ 0.22
+// cTrMatrix[3][3] := 0.05; // 투명도 1.0 ~ 0.22
+ cTrMatrix[4][4] := 1;
+
+ Dec(nW, nGapW);
+ Dec(nH, nGapH);
+ nX := (nW div 4) - (_bmpWater.Width div 2);
+ nY := (nH div 4) - (_bmpWater.Height div 2);
+
+ if not gAppHook.Helper.IsExcel or
+ ( gAppHook.Helper.IsExcel and bStartPage and not _bDoStartProc) or
+ ( gAppHook.Helper.IsExcel and not bStartPage ) then
+ begin
+ DrawBitmapWaterEx(MemCanvas.Handle, nX, nY, _bmpWater, @cTrMatrix);
+ end;
+ end;
+// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+
+// if bStartPage then
+// BitBlt(DC, 0, 0, nW, nH, MemCanvas.Handle, 0, 0, SRCCOPY);
+
+ SelectObject(MemCanvas.Handle, hOldBmp);
+
+ // DeleteObject(pen);
+ DeleteObject(hbmp);
+// if bStartPage then
+// DeleteDC(MemCanvas.Handle);
+ MemCanvas.Handle := 0;
+ finally
+ SetTextColor(DC, oldColor);
+ end;
+
+// gAppHook.Log(Format('ProcessWartermark() - Completed, LastError=%d', [GetLastError]));
+ except
+ // 실패하면 출력 안되게 해준다 22_0907 14:28:52 kku
+ Result := false;
+ DeleteDC(DC);
+ end;
+ finally
+ gAppHook.Helper.bIsWaterMaking_ := false;
+ RestoreDC(DC, -1);
+ end;
+end;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl.dpr b/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl.dpr
new file mode 100644
index 00000000..16d74081
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl.dpr
@@ -0,0 +1,56 @@
+program AppCtrl;
+
+uses
+ Vcl.Forms,
+ Tocsg.Win32,
+ Tocsg.Safe,
+ Tocsg.Param,
+ Tocsg.Path,
+ Tocsg.Process,
+ Vcl.Dialogs,
+ System.SysUtils,
+ DAppCtrlMain in 'DAppCtrlMain.pas' {DlgAppCtrlMain},
+ AppCtrlServer in 'AppCtrlServer.pas',
+ Define in 'Define.pas',
+ AppCtrlDefine in '..\LIB_Common\AppCtrlDefine.pas',
+ Tocsg.DRM.Encrypt in '..\..\TocsgDRM\LIB_Common\Tocsg.DRM.Encrypt.pas',
+ Condition in '..\..\..\eCrmHE\LIB_Common\Condition.pas',
+ GlobalDefine in '..\..\..\eCrmHE\LIB_Common\GlobalDefine.pas';
+
+{$R *.res}
+
+var
+ mtx: TTgMutex;
+ param: TTgParam;
+begin
+ ReportMemoryLeaksOnShutdown := DebugHook <> 0;
+
+ param := TTgParam.Create;
+ try
+ if param.ExistsParam('-hook') then
+ begin
+ var nResult := InjectModule(StrToIntDef(param.GetParamValue('-hook'), 0), GetRunExePathDir + DLL_APIHOOK);
+ if nResult <> 1 then
+ ShowMessage('Fail .. Code=' + IntToStr(nResult));
+ exit;
+ end else
+ if param.ExistsParam('-clearhook') then
+ begin
+ EjectModuleFromPath(GetRunExePathDir + DLL_APIHOOK);
+ Sleep(1000);
+ EjectModuleFromPath(GetRunExePathDir + DLL_APIHOOK);
+ exit;
+ end;
+ finally
+ param.Free;
+ end;
+
+ Guard(mtx, TTgMutex.Create(APP_MUTEX {$IFNDEF WIN64} + '32' {$ENDIF}));
+ if mtx.MutexState <> msCreateOk then
+ exit;
+
+ Application.Initialize;
+ Application.MainFormOnTaskbar := True;
+ Application.CreateForm(TDlgAppCtrlMain, DlgAppCtrlMain);
+ Application.Run;
+end.
diff --git a/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl.dproj b/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl.dproj
new file mode 100644
index 00000000..facd67aa
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl.dproj
@@ -0,0 +1,1159 @@
+
+
+ {6127D74A-AF4E-49B3-A5E4-A5311CBB36F2}
+ 20.3
+ VCL
+ True
+ Debug
+ Win64
+ 3
+ Application
+ AppCtrl.dpr
+ AppCtrl
+
+
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_1
+ true
+ true
+
+
+ true
+ Cfg_1
+ true
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_2
+ true
+ true
+
+
+ true
+ Cfg_2
+ true
+ true
+
+
+ .\_OUT_Object\$(Platform)\$(Config)
+ ..\OUT_$(Config) - $(Platform)
+ false
+ false
+ false
+ false
+ false
+ System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
+ AppCtrl
+ 1042
+ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
+ TRACE;TRACE_OBJ;TRACE_FILE;$(DCC_Define)
+
+
+ vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;EsVclComponents;emsedge;bindcompfmx;hclcore_xe104;DBXFirebirdDriver;htmlreports_xe104;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;htmlcompfm_xe104;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;OverbyteIcsD110Run;FIBPlus_D27;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;htmlcomp_xe104;FireDACMongoDBDriver;rtcSDK;IndySystem;PngComponentsD;FireDACTDataDriver;PKIEDB25;vcldb;ibxbindings;FFmpeg_DXT4;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;htmledit_xe104;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;htmleditcore_xe104;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;htmleditfm_xe104;DBXSybaseASEDriver;DBXDb2Driver;PKIECtrl25;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
+ Debug
+ true
+ 1033
+ ..\..\kkuProject.manifest
+ none
+ true
+ AppCtrl_Icon.ico
+
+
+ vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;EsVclComponents;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;OverbyteIcsD110Run;FIBPlus_D27;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;PngComponentsD;FireDACTDataDriver;PKIEDB25;vcldb;ibxbindings;FFmpeg_DXT4;VirtualTreesR;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;PKIECtrl25;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;fmxobj;bindcompvclsmp;FMXTee;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)
+ Debug
+ true
+ 1033
+ ..\..\kkuProject.manifest
+ true
+ none
+ AppCtrl_Icon.ico
+
+
+ DEBUG;$(DCC_Define)
+ true
+ false
+ true
+ true
+ true
+ true
+ true
+
+
+ false
+ PerMonitorV2
+ true
+ 1033
+ -loader
+
+
+
+ PerMonitorV2
+ true
+ 1033
+
+
+ false
+ RELEASE;$(DCC_Define)
+ 0
+ 0
+
+
+ PerMonitorV2
+
+ true
+ 1033
+
+
+ true
+ PerMonitorV2
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+ Base
+
+
+ Cfg_1
+ Base
+
+
+ Cfg_2
+ Base
+
+
+
+ Delphi.Personality.12
+ Application
+
+
+
+ AppCtrl.dpr
+
+
+ Microsoft Office 2000 Sample Automation Server Wrapper Components
+ Microsoft Office XP Sample Automation Server Wrapper Components
+
+
+
+
+
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ res\xml
+ 1
+
+
+ res\xml
+ 1
+
+
+
+
+ library\lib\armeabi
+ 1
+
+
+ library\lib\armeabi
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ library\lib\mips
+ 1
+
+
+ library\lib\mips
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+ library\lib\arm64-v8a
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-anydpi-v21
+ 1
+
+
+ res\drawable-anydpi-v21
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\values-v21
+ 1
+
+
+ res\values-v21
+ 1
+
+
+
+
+ res\values-v31
+ 1
+
+
+ res\values-v31
+ 1
+
+
+
+
+ res\values-v35
+ 1
+
+
+ res\values-v35
+ 1
+
+
+
+
+ res\drawable-anydpi-v26
+ 1
+
+
+ res\drawable-anydpi-v26
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-anydpi-v33
+ 1
+
+
+ res\drawable-anydpi-v33
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\values-night-v21
+ 1
+
+
+ res\values-night-v21
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+
+
+ res\drawable-ldpi
+ 1
+
+
+ res\drawable-ldpi
+ 1
+
+
+
+
+ res\drawable-mdpi
+ 1
+
+
+ res\drawable-mdpi
+ 1
+
+
+
+
+ res\drawable-hdpi
+ 1
+
+
+ res\drawable-hdpi
+ 1
+
+
+
+
+ res\drawable-xhdpi
+ 1
+
+
+ res\drawable-xhdpi
+ 1
+
+
+
+
+ res\drawable-mdpi
+ 1
+
+
+ res\drawable-mdpi
+ 1
+
+
+
+
+ res\drawable-hdpi
+ 1
+
+
+ res\drawable-hdpi
+ 1
+
+
+
+
+ res\drawable-xhdpi
+ 1
+
+
+ res\drawable-xhdpi
+ 1
+
+
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+
+
+ res\drawable-small
+ 1
+
+
+ res\drawable-small
+ 1
+
+
+
+
+ res\drawable-normal
+ 1
+
+
+ res\drawable-normal
+ 1
+
+
+
+
+ res\drawable-large
+ 1
+
+
+ res\drawable-large
+ 1
+
+
+
+
+ res\drawable-xlarge
+ 1
+
+
+ res\drawable-xlarge
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\drawable-anydpi-v24
+ 1
+
+
+ res\drawable-anydpi-v24
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-night-anydpi-v21
+ 1
+
+
+ res\drawable-night-anydpi-v21
+ 1
+
+
+
+
+ res\drawable-anydpi-v31
+ 1
+
+
+ res\drawable-anydpi-v31
+ 1
+
+
+
+
+ res\drawable-night-anydpi-v31
+ 1
+
+
+ res\drawable-night-anydpi-v31
+ 1
+
+
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ 0
+
+
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ 0
+ .dll;.bpl
+
+
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ 0
+ .bpl
+
+
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ 0
+
+
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+
+
+ Contents
+ 1
+
+
+ Contents
+ 1
+
+
+ Contents
+ 1
+
+
+
+
+ Contents\Resources
+ 1
+
+
+ Contents\Resources
+ 1
+
+
+ Contents\Resources
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+ library\lib\arm64-v8a
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen
+ 64
+
+
+ ..\$(PROJECTNAME).launchscreen
+ 64
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ Assets
+ 1
+
+
+ Assets
+ 1
+
+
+
+
+ Assets
+ 1
+
+
+ Assets
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ True
+ True
+
+
+ 12
+
+
+
+
+
+
+ False
+
+ False
+ copy "$(OUTPUTPATH)" "C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Debug - Win64\AppCtrl32.exe"
+ False
+
+
+
+ False
+
+ False
+ copy "$(OUTPUTPATH)" "C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Release - Win64\AppCtrl32.exe"
+ False
+
+
diff --git a/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrlServer.pas b/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrlServer.pas
new file mode 100644
index 00000000..d99b1be8
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrlServer.pas
@@ -0,0 +1,217 @@
+{*******************************************************}
+{ }
+{ AppCtrlServer }
+{ }
+{ Copyright (C) 2023 kku }
+{ }
+{*******************************************************}
+
+unit AppCtrlServer;
+
+interface
+
+uses
+ Tocsg.ClientBase, System.SysUtils, System.Classes, WinApi.Windows, Tocsg.Packet,
+ Winapi.Messages, Tocsg.Process.IPC, System.Generics.Collections,
+ AppCtrlDefine;
+
+const
+ WM_NOTIFY_CONNECT_MODULE = WM_USER + 5938;
+
+type
+ PCMEnt = ^TCMEnt;
+ TCMEnt = record // Connect Module
+ hPipe: THandle;
+ dwPid: DWORD;
+ sPName,
+ sPPath: String;
+ end;
+ TDcCMEnt = TDictionary;
+
+ TEvtSendCtrlOpt = procedure(pEnt: PCMEnt) of object;
+ TAppCtrlServer = class(TTgClientBase)
+ private
+ hRcvWnd_: HWND;
+ evSendCtrlOpt_: TEvtSendCtrlOpt;
+ procedure OnCMEntNotify(Sender: TObject; const Item: PCMEnt; Action: TCollectionNotification);
+ protected
+ DcCMEnt_: TDcCMEnt;
+ dwLastSaveTick_: DWORD;
+ procedure OnNpDisconnected(Sender: TTgNpBase; hPipe: THandle);
+ function HasCMEnt(hPipe: THandle): Boolean;
+ procedure ConnectedEvent; override;
+ procedure DisconnectedEvent; override;
+ procedure ProcessRcvPacket(aRcv: IRcvPacket); override;
+ public
+ Constructor Create(hRcvWnd: HWND);
+ Destructor Destroy; override;
+
+ function CountEnt: Integer;
+
+ function ActiveNp(sPipeName: String; bNpServer: Boolean): Boolean; override;
+
+ property OnSendCtrlOpt: TEvtSendCtrlOpt write evSendCtrlOpt_;
+ end;
+
+implementation
+
+uses
+ Tocsg.Exception, superobject, GlobalDefine, Tocsg.Path, Tocsg.Json;
+
+{ TAppCtrlServer }
+
+Constructor TAppCtrlServer.Create(hRcvWnd: HWND);
+begin
+ Inherited Create('', -1);
+ hRcvWnd_ := hRcvWnd;
+ evSendCtrlOpt_ := nil;
+ dwLastSaveTick_ := 0;
+ DcCMEnt_ := TDcCMEnt.Create;
+ DcCMEnt_.OnValueNotify := OnCMEntNotify;
+end;
+
+Destructor TAppCtrlServer.Destroy;
+begin
+ FreeAndNIl(DcCMEnt_);
+ Inherited;
+end;
+
+procedure TAppCtrlServer.OnCMEntNotify(Sender: TObject; const Item: PCMEnt; Action: TCollectionNotification);
+begin
+ if Action = cnRemoved then
+ Dispose(Item);
+end;
+
+procedure TAppCtrlServer.OnNpDisconnected(Sender: TTgNpBase; hPipe: THandle);
+begin
+//
+ if hRcvWnd_ <> 0 then
+ SendMessage(hRcvWnd_, WM_NOTIFY_CONNECT_MODULE, 0, hPipe);
+
+ Lock;
+ try
+ if DcCMEnt_.ContainsKey(hPipe) then
+ DcCMEnt_.Remove(hPipe);
+ finally
+ Unlock;
+ end;
+end;
+
+function TAppCtrlServer.HasCMEnt(hPipe: THandle): Boolean;
+begin
+ Lock;
+ try
+ Result := DcCMEnt_.ContainsKey(hPipe);
+ finally
+ Unlock;
+ end;
+end;
+
+function TAppCtrlServer.CountEnt: Integer;
+begin
+ Lock;
+ try
+ Result := DcCMEnt_.Count;
+ finally
+ Unlock;
+ end;
+end;
+
+function TAppCtrlServer.ActiveNp(sPipeName: String; bNpServer: Boolean): Boolean;
+begin
+ Result := Inherited;
+ if bNpServer and Result and (NpIpc_ <> nil) then
+ NpIpc_.OnDisconnected := OnNpDisconnected;
+end;
+
+procedure TAppCtrlServer.ConnectedEvent;
+var
+ Send: ISendPacket;
+begin
+ try
+// Inherited;
+// SetSendPauseState(false);
+ _Trace('Connected.');
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. ConnectedEvent()');
+ end;
+end;
+
+procedure TAppCtrlServer.DisconnectedEvent;
+begin
+ try
+// Inherited;
+ QSendPacket_.Clear;
+
+ _Trace('Disconnected');
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. DisconnectedEvent()');
+ end;
+end;
+
+procedure TAppCtrlServer.ProcessRcvPacket(aRcv: IRcvPacket);
+var
+ Send: ISendPacket;
+
+ procedure process_ACC_TEST_LOG;
+ begin
+ _Trace(aRcv.S['Msg']);
+
+// Send := TTgPacket.Create(aRcv);
+// Send.S['Msg'] := aRcv.S['Msg'] + ' ';
+// SendPacket(Send);
+ end;
+
+ procedure process_ACC_APP_INFO;
+ var
+ pEnt: PCMEnt;
+ sPath: String;
+ begin
+ if HasCMEnt(aRcv.Toss) then
+ begin
+ _Trace('Fail .. process_ACC_APP_INFO() .. Already PipeInfo');
+ exit;
+ end;
+
+ New(pEnt);
+ pEnt.hPipe := aRcv.Toss;
+ pEnt.dwPid := aRcv.I['PID'];
+ sPath := aRcv.S['Path'];
+ pEnt.sPName := ExtractFileName(sPath);
+ pEnt.sPPath := ExtractFilePath(sPath);
+
+ Lock;
+ try
+ DcCMEnt_.Add(pEnt.hPipe, pEnt);
+ finally
+ Unlock;
+ end;
+
+ if hRcvWnd_ <> 0 then
+ SendMessage(hRcvWnd_, WM_NOTIFY_CONNECT_MODULE, 1, NativeInt(pEnt));
+
+// Send := TTgPacket.Create(ACC_SET_POLICY);
+// Send.Toss := aRcv.Toss;
+// Send.O['Opt'] := TTgJson.ValueToJsonObject(AppCtrlOpt_);
+// SendPacket(Send);
+
+ if Assigned(evSendCtrlOpt_) then
+ evSendCtrlOpt_(pEnt);
+ end;
+
+begin
+ try
+ case aRcv.Command of
+ ACC_TEST_LOG : process_ACC_TEST_LOG;
+ ACC_APP_INFO : process_ACC_APP_INFO;
+ ACC_SET_POLICY : ;
+ end;
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. ProcessRcvPacket(), Cmd=%d', [aRcv.Command]);
+ end;
+end;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl_Icon.ico b/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl_Icon.ico
new file mode 100644
index 00000000..7ce8cc76
Binary files /dev/null and b/Tocsg.Module/AppCtrl/EXE_AppCtrl/AppCtrl_Icon.ico differ
diff --git a/Tocsg.Module/AppCtrl/EXE_AppCtrl/DAppCtrlMain.dfm b/Tocsg.Module/AppCtrl/EXE_AppCtrl/DAppCtrlMain.dfm
new file mode 100644
index 00000000..5eb8fb19
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/EXE_AppCtrl/DAppCtrlMain.dfm
@@ -0,0 +1,156 @@
+object DlgAppCtrlMain: TDlgAppCtrlMain
+ Left = 0
+ Top = 0
+ Caption = 'AppCtrl'
+ ClientHeight = 360
+ ClientWidth = 438
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
+ Font.Style = []
+ Position = poScreenCenter
+ TextHeight = 15
+ object pnTop: TPanel
+ Left = 0
+ Top = 0
+ Width = 438
+ Height = 41
+ Align = alTop
+ BevelOuter = bvNone
+ TabOrder = 0
+ ExplicitWidth = 434
+ object btnHook: TButton
+ Left = 0
+ Top = 10
+ Width = 113
+ Height = 25
+ Caption = 'APP '#51228#50612' '#49884#51089
+ TabOrder = 0
+ OnClick = btnHookClick
+ end
+ object Button2: TButton
+ Left = 168
+ Top = 10
+ Width = 75
+ Height = 25
+ Caption = 'Button2'
+ Enabled = False
+ TabOrder = 1
+ Visible = False
+ OnClick = Button2Click
+ end
+ object btnTestMsg: TButton
+ Left = 249
+ Top = 10
+ Width = 75
+ Height = 25
+ Caption = 'btnTestMsg'
+ TabOrder = 2
+ Visible = False
+ OnClick = btnTestMsgClick
+ end
+ end
+ object pnClient: TPanel
+ Left = 0
+ Top = 41
+ Width = 438
+ Height = 319
+ Align = alClient
+ BevelOuter = bvNone
+ TabOrder = 1
+ ExplicitWidth = 434
+ ExplicitHeight = 318
+ object GroupBox2: TGroupBox
+ Left = 0
+ Top = 0
+ Width = 438
+ Height = 105
+ Align = alTop
+ Caption = #51228#50612' '#45824#49345' APP'
+ TabOrder = 0
+ ExplicitWidth = 434
+ DesignSize = (
+ 438
+ 105)
+ object mmTgApp: TMemo
+ Left = 9
+ Top = 24
+ Width = 415
+ Height = 71
+ Anchors = [akLeft, akTop, akRight]
+ Lines.Strings = (
+ 'chrome.exe|msedge.exe|Kakaotalk.exe')
+ ScrollBars = ssVertical
+ TabOrder = 0
+ ExplicitWidth = 411
+ end
+ end
+ object vtList: TVirtualStringTree
+ Left = 0
+ Top = 105
+ Width = 438
+ Height = 214
+ Align = alClient
+ Colors.BorderColor = 15987699
+ Colors.DisabledColor = clGray
+ Colors.DropMarkColor = 15385233
+ Colors.DropTargetColor = 15385233
+ Colors.DropTargetBorderColor = 15385233
+ Colors.FocusedSelectionColor = 15385233
+ Colors.FocusedSelectionBorderColor = 15385233
+ Colors.GridLineColor = 15987699
+ Colors.HeaderHotColor = clBlack
+ Colors.HotColor = clBlack
+ Colors.SelectionRectangleBlendColor = 15385233
+ Colors.SelectionRectangleBorderColor = 15385233
+ Colors.SelectionTextColor = clBlack
+ Colors.TreeLineColor = 9471874
+ Colors.UnfocusedColor = clGray
+ Colors.UnfocusedSelectionColor = clWhite
+ Colors.UnfocusedSelectionBorderColor = clWhite
+ Header.AutoSizeIndex = 0
+ Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
+ HintMode = hmTooltip
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 1
+ TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
+ TreeOptions.SelectionOptions = [toFullRowSelect]
+ OnFreeNode = vtListFreeNode
+ OnGetText = vtListGetText
+ OnGetHint = vtListGetHint
+ OnGetNodeDataSize = vtListGetNodeDataSize
+ Touch.InteractiveGestures = [igPan, igPressAndTap]
+ Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
+ Columns = <
+ item
+ Position = 0
+ Text = #48264#54840
+ end
+ item
+ Position = 1
+ Text = #54532#47196#49464#49828' '#51060#47492
+ Width = 130
+ end
+ item
+ Position = 2
+ Text = 'PID'
+ Width = 80
+ end
+ item
+ Position = 3
+ Text = #44221#47196
+ Width = 250
+ end>
+ end
+ end
+ object tMtx: TTimer
+ Enabled = False
+ Interval = 500
+ OnTimer = tMtxTimer
+ Left = 368
+ Top = 8
+ end
+end
diff --git a/Tocsg.Module/AppCtrl/EXE_AppCtrl/DAppCtrlMain.pas b/Tocsg.Module/AppCtrl/EXE_AppCtrl/DAppCtrlMain.pas
new file mode 100644
index 00000000..ed88582a
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/EXE_AppCtrl/DAppCtrlMain.pas
@@ -0,0 +1,627 @@
+unit DAppCtrlMain;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
+ Tocsg.CommonData, Vcl.ExtCtrls, Vcl.Buttons, Tocsg.Win32, Tocsg.Controls,
+ Tocsg.Process, AppCtrlServer, Tocsg.Trace, GlobalDefine,
+ VirtualTrees, System.Generics.Collections, Tocsg.WndUtil, AppCtrlDefine;
+
+const
+ START_HOOK_APPS = 'msedgewebview2.exe'; // 'RuntimeBroker.exe'; //'PhotosApp.exe|PhotosService.exe'; // 'msedgewebview2.exe'; // 'spoolsv.exe'; //'splwow64.exe';;
+{$IFDEF WIN64}
+ DLL_APIHOOK = 'AppCtrl.dll';
+ LOG_FILE = 'AppCtrl.log';
+{$ELSE}
+ DLL_APIHOOK = 'AppCtrl32.dll';
+
+//{$IFDEF DEBUG}
+// DLL_APIHOOK = 'AppCtrl.dll';
+//{$ELSE}
+// DLL_APIHOOK = 'AppCtrl32.dll';
+//{$ENDIF}
+ LOG_FILE = 'AppCtrl32.log';
+{$ENDIF}
+ MAP_FILENAME_APIHOOK = 'Global\AppCtrl64';
+ HOOK_MUTEX = 'Global\Mtx@220915&AppCtrl';
+ APP_MUTEX = 'Global\Mtx@220915APP';
+
+ WM_CATCH_DROPFILES = WM_USER + 7894;
+ TXT_DROPINFO = '$DrpFle.txt';
+
+type
+ TInstallPrintHook = function: Integer; stdcall;
+ TUninstallPrintHook = function: Integer; stdcall;
+
+ PAppCtrlEnt = ^TAppCtrlEnt;
+ TAppCtrlEnt = record
+ MdInfo: TCMEnt;
+ end;
+
+ PAppInfoEnt = ^TAppInfoEnt;
+ TAppInfoEnt = record
+ dwPid: DWORD;
+ hMain: HWND;
+ end;
+ TDcAppInfo = TDictionary;
+
+ TDlgAppCtrlMain = class(TForm)
+ tMtx: TTimer;
+ pnTop: TPanel;
+ pnClient: TPanel;
+ btnHook: TButton;
+ Button2: TButton;
+ GroupBox2: TGroupBox;
+ mmTgApp: TMemo;
+ btnTestMsg: TButton;
+ vtList: TVirtualStringTree;
+ procedure btnHookClick(Sender: TObject);
+ procedure tMtxTimer(Sender: TObject);
+ procedure Button2Click(Sender: TObject);
+ procedure btnTestMsgClick(Sender: TObject);
+ procedure vtListGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
+ Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle;
+ var HintText: string);
+ procedure vtListGetNodeDataSize(Sender: TBaseVirtualTree;
+ var NodeDataSize: Integer);
+ procedure vtListFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
+ procedure vtListGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
+ Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
+ private
+ { Private declarations }
+ sHlpExe_,
+ sDllPath_: String;
+ bIsWow64_: Boolean;
+ MgCtrls_: TManagerInputControlsData;
+ TgAppList_,
+ TgAppList2_: TStringList;
+ ThdAppMon_: TThdProcessWatch;
+ ThdWndMon_: TThdActiveWndMon;
+ ProcList_: TProcessEntList;
+ PidList_: TProcessIdList;
+ bActive_: Boolean;
+ Server_: TAppCtrlServer;
+ Trace_: TTgTrace;
+ DcNode_: TDictionary;
+ DcApp_: TDcAppInfo;
+ DefCtrlOpt_: TAppCtrlOpt;
+
+ procedure OnAppInfoNotify(Sender: TObject; const Item: PAppInfoEnt; Action: TCollectionNotification);
+ procedure OnAppNotify(aSender: TThdProcessWatch; pEnt: PPwEnt; aKind: TProcessWatchKind);
+ procedure OnWndNotify(aSender: TObject; hActiveWnd: HWND);
+ procedure FreeMon;
+ procedure ClearHook(bMore: Boolean = false);
+ procedure SafeFreeClient;
+ function StartHookWatch: Boolean;
+ function StopHookWatch: Boolean;
+ function GetCtrlOpt(sPName: String): TAppCtrlOpt;
+ procedure OnSendCtrlOpt(pEnt: PCMEnt);
+ public
+ { Public declarations }
+ Constructor Create(aOwner: TComponent); override;
+ Destructor Destroy; override;
+
+ procedure process_WM_NOTIFY_CONNECT_MODULE(var msg: TMessage); Message WM_NOTIFY_CONNECT_MODULE;
+ end;
+
+var
+ DlgAppCtrlMain: TDlgAppCtrlMain;
+
+implementation
+
+uses
+ Tocsg.Path, Tocsg.Safe, Vcl.Imaging.pngimage, Tocsg.WinInfo, Tocsg.Network,
+ Tocsg.Shell, Tocsg.Param, Winapi.TlHelp32, Tocsg.Exception,
+ Tocsg.Capture, Tocsg.Strings, Tocsg.User32, Tocsg.Packet, Tocsg.VTUtil,
+ Tocsg.Json, Condition;
+
+{$R *.dfm}
+
+Constructor TDlgAppCtrlMain.Create(aOwner: TComponent);
+var
+ param: TTgParam;
+ sLogPath: String;
+begin
+ Inherited Create(aOwner);
+
+ CUSTOMER_TYPE := CUSTOMER_DEV;
+
+{$IFDEF Win64}
+ Caption := Caption + '64';
+{$ELSE}
+ Caption := Caption + '32';
+{$ENDIF}
+
+ sLogPath := GetRunExePathDir + LOG_FILE;
+ DeleteFile(PChar(sLogPath));
+ Trace_ := TTgTrace.Create(ExtractFilePath(sLogPath), ExtractFileName(sLogPath));
+
+ Server_ := nil;
+
+ MgCtrls_ := nil;
+ Guard(param, TTgParam.Create);
+ MgCtrls_ := TManagerInputControlsData.Create(CutFileExt(GetRunExePath) + '.ini');
+ MgCtrls_.RegInputCtrl(mmTgApp);
+ MgCtrls_.Load;
+
+ sDllPath_ := GetRunExePathDir + DLL_APIHOOK;
+ bIsWow64_ := IsWow64;
+
+ DcApp_ := TDcAppInfo.Create;
+ DcApp_.OnValueNotify := OnAppInfoNotify;
+ DcNode_ := TDictionary.Create;
+
+ TgAppList_ := TStringList.Create;
+ TgAppList_.CaseSensitive := false;
+ TgAppList2_ := TStringList.Create;
+ TgAppList2_.CaseSensitive := false;
+ SplitString(START_HOOK_APPS, '|', TgAppList2_);
+ ThdAppMon_ := nil;
+ ThdWndMon_ := nil;
+ ProcList_ := TProcessEntList.Create;;
+ ProcList_.DetailInfo := false;
+ PidList_ := TProcessIdList.Create;
+ bActive_ := false;
+ sHlpExe_ := CutFileExt(GetRunExePath) + '32.exe';
+
+ if mmTgApp.Text = '' then
+ mmTgApp.Text := 'chrome.exe|msedge.exe';
+
+ ChangeWindowMessageFilter(WM_CATCH_DROPFILES, MSGFLT_ADD);
+
+ ZeroMemory(@DefCtrlOpt_, SizeOf(DefCtrlOpt_));
+ DefCtrlOpt_.sTaskDir := GetRunExePathDir + 'Task\';
+ DefCtrlOpt_.sUName := '김경덕'; //'김구진';
+ DefCtrlOpt_.sEmpNo := 'kdkim'; //'kjkim';
+ DefCtrlOpt_.sDeptName := 'BS솔루션부';
+// DefCtrlOpt_.DrmAccessKind := dakAll;
+ DefCtrlOpt_.sDrmPass := GetMK(false);
+ DefCtrlOpt_.dwCustomerType := CUSTOMER_TYPE;
+ DefCtrlOpt_.nFontSize := 175;
+ DefCtrlOpt_.nLineCount := 4;
+// DefCtrlOpt_.sTextOutApp := 'C:\taskToCSG\eCrmHE\OUT_Release - Win64\conf\BSWmcr.exe';
+ DefCtrlOpt_.sPrintWaterTxt := '이것은 워터마크입니다. This is watermark';
+ DefCtrlOpt_.sPrintWaterImg := 'C:\taskToCSG\Tocsg.Module\AppCtrl\OUT_Debug - Win64\LS 아이티씨 로고2.png';
+// DefCtrlOpt_.nPrintWaterAlpha := 125;
+
+// 워터마크 관련
+// DefCtrlOpt_.sPrtEmfOutDir := 'C:\Users\kku\Desktop\TEST\_ColTest\';
+// DefCtrlOpt_.bPrintSecu := true;
+// DefCtrlOpt_.bPrintWater := true;
+
+// DefCtrlOpt_.bDrmAttachAble := true;
+// 파일 차단 관련
+ DefCtrlOpt_.FileUseBlock := fubBlock;
+ DefCtrlOpt_.bReadBlock := true;
+ DefCtrlOpt_.bWriteBlock := true;
+// DefCtrlOpt_.bMtpWB := true;
+
+ ForceDirectories(DefCtrlOpt_.sTaskDir);
+// ForceDirectories(DefCtrlOpt_.sTextOutDir);
+
+{$IFDEF DEBUG}
+// Button2.Enabled := true;
+// Button2.Visible := true;
+{$ENDIF}
+end;
+
+Destructor TDlgAppCtrlMain.Destroy;
+begin
+ StopHookWatch;
+ FreeAndNil(MgCtrls_);
+ FreeAndNil(TgAppList2_);
+ FreeAndNil(TgAppList_);
+ FreeAndNil(DcNode_);
+ FreeAndNil(DcApp_);
+ FreeAndNil(PidList_);
+ FreeAndNil(ProcList_);
+ if Server_ <> nil then
+ FreeAndNil(Server_);
+ FreeAndNil(Trace_);
+ Inherited;
+end;
+
+procedure TDlgAppCtrlMain.FreeMon;
+begin
+ if ThdAppMon_ <> nil then
+ begin
+ ThdAppMon_.OnProcessWatchNotify := nil;
+ FreeAndNil(ThdAppMon_);
+ end;
+
+ if ThdWndMon_ <> nil then
+ begin
+ ThdWndMon_.OnActiveWndNotify := nil;
+ FreeAndNil(ThdWndMon_);
+ end;
+
+ PidList_.Clear;
+ DcApp_.Clear;
+end;
+
+procedure TDlgAppCtrlMain.OnAppInfoNotify(Sender: TObject; const Item: PAppInfoEnt; Action: TCollectionNotification);
+begin
+ if Action = cnRemoved then
+ Dispose(Item);
+end;
+
+procedure TDlgAppCtrlMain.OnAppNotify(aSender: TThdProcessWatch; pEnt: PPwEnt; aKind: TProcessWatchKind);
+var
+ nIdx: Integer;
+begin
+ case aKind of
+ pwkUnknown : {$IFDEF DEBUG} ASSERT(false) {$ENDIF};
+ pwkInit,
+ pwkExecute :
+ begin
+ if TgAppList2_.IndexOf(pEnt.sPName) = -1 then
+ exit;
+
+ if (GetProcessNameByPid(pEnt.dwPPid).ToUpper <> 'MS-TEAMS.EXE') and
+ (GetProcessNameByPid(pEnt.dwPPid).ToUpper <> 'OLK.EXE') then
+ exit;
+
+ if InjectModule(pEnt.dwPid, sDllPath_, @bIsWow64_) > 0 then
+ begin
+ TTgTrace.T('InjectModule() .. PName="%s", PID=%d, PPID=%d', [pEnt.sPName, pEnt.dwPid, pEnt.dwPPid]);
+ end else begin
+ {$IFDEF WIN64}
+ if FileExists(sHlpExe_) then
+ ExecutePath(sHlpExe_, Format('-hook %d', [pEnt.dwPid]));
+ {$ENDIF}
+ TTgTrace.T('Fail .. InjectModule() .. PName="%s"', [pEnt.sPName]);
+ end;
+ end;
+ pwkTerminated :
+ begin
+ nIdx := PidList_.IndexOf(pEnt.dwPid);
+ if nIdx <> -1 then
+ begin
+ PidList_.Delete(nIdx);
+ Trace_.T('종료됨 .. PName=%s', [pEnt.sPName]);
+ end;
+
+ if DcApp_.ContainsKey(UpperCase(pEnt.sPName)) then
+ DcApp_.Remove(UpperCase(pEnt.sPName));
+ end;
+ end;
+end;
+
+procedure TDlgAppCtrlMain.OnWndNotify(aSender: TObject; hActiveWnd: HWND);
+var
+ dwPid: DWORD;
+ sPName: String;
+ pEnt: PProcessEntInfo;
+ pApp: PAppInfoEnt;
+begin
+ try
+ dwPid := GetProcessPIDFromWndHandle(hActiveWnd);
+ if dwPid = 0 then
+ exit;
+
+ if PidList_.IndexOf(dwPid) <> -1 then
+ exit;
+
+ ProcList_.UpdateProcessList;
+ pEnt := ProcList_.GetProcInfoByPid(dwPid);
+ if pEnt <> nil then
+ begin
+ sPName := ExtractFileName(pEnt.sModuleFileName);
+ if TgAppList_.IndexOf(sPName) = -1 then
+ begin
+// PidList_.Add(dwPid);
+ exit;
+ end;
+
+ case GetExeFileArchitectFromePath(pEnt.sModuleFileName) of
+ eakNoExe :
+ begin
+ if InjectModule(dwPid, sDllPath_, @bIsWow64_) > 0 then
+ begin
+ {$IFDEF DEBUG}
+ TTgTrace.T('InjectModule() .. PName="%s"', [sPName]);
+ {$ENDIF}
+ PidList_.Add(dwPid);
+ end else begin
+ if FileExists(sHlpExe_) then
+ begin
+ {$IFDEF DEBUG}
+ TTgTrace.T('InjectModule32() .. PName="%s"', [sPName]);
+ {$ENDIF}
+ ExecutePath(sHlpExe_, Format('-hook %d', [dwPid]));
+ PidList_.Add(dwPid);
+ end;
+ {$IFDEF DEBUG}
+ TTgTrace.T('Fail .. InjectModule() .. PName="%s"', [sPName]);
+ {$ENDIF}
+ end;
+ end;
+ eak32 :
+ begin
+ if FileExists(sHlpExe_) then
+ begin
+ {$IFDEF DEBUG}
+ TTgTrace.T('InjectModule32() ... PName="%s"', [sPName]);
+ {$ENDIF}
+ ExecutePath(sHlpExe_, Format('-hook %d', [dwPid]));
+ PidList_.Add(dwPid);
+ end else
+ TTgTrace.T('Fail .. Not found exe .. HlpExe="%s"', [sHlpExe_]);
+ end;
+ eak64 :
+ if InjectModule(dwPid, sDllPath_, @bIsWow64_) > 0 then
+ begin
+ {$IFDEF DEBUG}
+ TTgTrace.T('InjectModule() .. PName="%s"', [sPName]);
+ {$ENDIF}
+ PidList_.Add(dwPid);
+ end else
+ TTgTrace.T('Fail .. InjectModule() ... PName="%s"', [sPName]);
+ end;
+
+ if not DcApp_.ContainsKey(UpperCase(pEnt.sModuleBaseName)) then
+ begin
+ New(pApp);
+ pApp.dwPid := pEnt.dwPid;
+ pApp.hMain := hActiveWnd;
+ DcApp_.Add(UpperCase(pEnt.sModuleBaseName), pApp);
+ end;
+ end;
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. OnWndNotify()');
+ end;
+end;
+
+procedure TDlgAppCtrlMain.ClearHook(bMore: Boolean = false);
+begin
+//exit;
+ if FileExists(sHlpExe_) then
+ ExecutePath_hide(sHlpExe_, '-clearhook');
+
+ EjectModuleFromPath2(sDllPath_, 'msedgewebview2.exe');
+ if bMore then
+ begin
+ Sleep(1000);
+ EjectModuleFromPath2(sDllPath_, 'msedgewebview2.exe');
+ end;
+end;
+
+procedure TDlgAppCtrlMain.SafeFreeClient;
+var
+ nTO: Integer;
+begin
+ if Server_ <> nil then
+ begin
+ // 안전 제거를 위해 종료를 미리 알림 23_0315 14:02:46 kku
+// Server_.SendPacket(TTgPacket.Create(ACC_SAFE_TERMINATE_CLIENT));
+//
+// nTO := 0;
+// while (Server_.CountEnt > 0) and (nTO < 10) do
+// begin
+// Inc(nTO);
+// Sleep(500);
+// Application.ProcessMessages;
+// end;
+
+ FreeAndNil(Server_);
+ end;
+end;
+
+function TDlgAppCtrlMain.StartHookWatch: Boolean;
+begin
+ Result := false;
+ try
+ if (ThdAppMon_ <> nil) and (ThdWndMon_ <> nil) then
+ exit;
+
+ if Server_ <> nil then
+ FreeAndNil(Server_);
+
+ Server_ := TAppCtrlServer.Create(Handle);
+ Server_.OnSendCtrlOpt := OnSendCtrlOpt;
+ if Server_.ActiveNp('NpAppCtrl', true) then
+ Server_.ConnectNp;
+
+ FreeMon;
+ ClearHook;
+
+ ThdAppMon_ := TThdProcessWatch.Create(false);
+ ThdAppMon_.OnProcessWatchNotify := OnAppNotify;
+ ThdAppMon_.StartThread;
+
+ ThdWndMon_ := TThdActiveWndMon.Create(false);
+ ThdWndMon_.OnActiveWndNotify := OnWndNotify;
+ ThdWndMon_.StartThread;
+
+// EjectModuleFromPath(sDllPath_);
+ SplitString(mmTgApp.Text, '|', TgAppList_);
+ bActive_ := true;
+
+ Result := true;
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. StartHookWatch()');
+ end;
+end;
+
+function TDlgAppCtrlMain.StopHookWatch: Boolean;
+begin
+ Result := false;
+ try
+ if (ThdAppMon_ = nil) and (ThdWndMon_ = nil) then
+ exit;
+
+ FreeMon;
+ SafeFreeClient;
+ ClearHook(true);
+
+ bActive_ := false;
+ VT_Clear(vtList);
+ DcNode_.Clear;
+
+ Result := true;
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. StopHookWatch()');
+ end;
+end;
+
+function TDlgAppCtrlMain.GetCtrlOpt(sPName: String): TAppCtrlOpt;
+begin
+ sPName := UpperCase(sPName);
+ Result := DefCtrlOpt_;
+ if Server_ <> nil then
+ Result.hTagWnd := Server_.GetSelfWnd
+ else
+ Result.hTagWnd := 0;
+
+// if DcApp_.ContainsKey(sPName) then
+// Result.hCltWnd := DcApp_[sPName].hMain;
+end;
+
+procedure TDlgAppCtrlMain.OnSendCtrlOpt(pEnt: PCMEnt);
+var
+ Send: ISendPacket;
+begin
+ try
+ Send := TTgPacket.Create(ACC_SET_POLICY);
+ Send.Toss := pEnt.hPipe;
+ Send.O['Opt'] := TTgJson.ValueToJsonObject(GetCtrlOpt(pEnt.sPName));
+ Server_.SendPacket(Send);
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. OnSendCtrlOpt()');
+ end;
+end;
+
+procedure TDlgAppCtrlMain.tMtxTimer(Sender: TObject);
+begin
+ if not MutexExists(HOOK_MUTEX) then
+ Close;
+end;
+
+procedure TDlgAppCtrlMain.vtListFreeNode(Sender: TBaseVirtualTree;
+ Node: PVirtualNode);
+var
+ pData: PAppCtrlEnt;
+begin
+ pData := Sender.GetNodeData(Node);
+ Finalize(pData^);
+end;
+
+procedure TDlgAppCtrlMain.vtListGetHint(Sender: TBaseVirtualTree;
+ Node: PVirtualNode; Column: TColumnIndex;
+ var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
+begin
+ HintText := vtList.Text[Node, Column];
+end;
+
+procedure TDlgAppCtrlMain.vtListGetNodeDataSize(Sender: TBaseVirtualTree;
+ var NodeDataSize: Integer);
+begin
+ NodeDataSize := SizeOf(TAppCtrlEnt);
+end;
+
+procedure TDlgAppCtrlMain.vtListGetText(Sender: TBaseVirtualTree;
+ Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
+ var CellText: string);
+var
+ pData: PAppCtrlEnt;
+begin
+ pData := Sender.GetNodeData(Node);
+
+ case Column of
+ 0 : CellText := IntToStr(Node.Index + 1);
+ 1 : CellText := pData.MdInfo.sPName;
+ 2 : CellText := IntToStr(pData.MdInfo.dwPid);
+ 3 : CellText := pData.MdInfo.sPPath;
+ end;
+end;
+
+procedure TDlgAppCtrlMain.btnHookClick(Sender: TObject);
+begin
+ if not bActive_ then
+ begin
+ mmTgApp.Text := Trim(mmTgApp.Text);
+ if mmTgApp.Text = '' then
+ begin
+ MessageBox(Handle, PChar('제어 대상 APP을 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ exit;
+ end;
+ MgCtrls_.Save;
+
+ if not StartHookWatch then
+ begin
+ MessageBox(Handle, PChar('DLL을 로드하는 중 실패했습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
+ exit;
+ end;
+
+ MessageBox(Handle, PChar('APP 제어가 시작 되었습니다.'), PChar(Caption), MB_ICONINFORMATION or MB_OK);
+ end else begin
+ StopHookWatch;
+
+ MessageBox(Handle, PChar('APP 제어가 중지 되었습니다.'), PChar(Caption), MB_ICONINFORMATION or MB_OK);
+ end;
+
+ if bActive_ then
+ begin
+ btnHook.Caption := 'APP 제어 중지';
+ end else begin
+ btnHook.Caption := 'APP 제어 시작';
+ end;
+ Application.ProcessMessages;
+end;
+
+procedure TDlgAppCtrlMain.btnTestMsgClick(Sender: TObject);
+var
+ Send: ISendPacket;
+begin
+ Send := TTgPacket.Create(ACC_TEST_LOG);
+ Send.S['Msg'] := '안녕하세요.';
+ Server_.SendPacket(Send);
+end;
+
+procedure TDlgAppCtrlMain.Button2Click(Sender: TObject);
+begin
+ ShowMessage(IntToStr(EjectModuleFromPath(GetRunExePathDir + DLL_APIHOOK)));
+end;
+
+procedure TDlgAppCtrlMain.process_WM_NOTIFY_CONNECT_MODULE(var msg: TMessage);
+var
+ pEnt: PCMEnt;
+ pNode: PVirtualNode;
+ pData: PAppCtrlEnt;
+begin
+ try
+ vtList.BeginUpdate;
+ try
+ if msg.WParam = 1 then
+ begin
+ // 연결
+ pEnt := PCMEnt(msg.LParam);
+ ASSERT(not DcNode_.ContainsKey(pEnt.hPipe));
+ pData := VT_AddChildDataN(vtList, pNode);
+ pData.MdInfo := pEnt^;
+ DcNode_.Add(pData.MdInfo.hPipe, pNode);
+ end else begin
+ // 종료
+ if DcNode_.ContainsKey(msg.LParam) then
+ begin
+ pNode := DcNode_[msg.LParam];
+ DcNode_.Remove(msg.LParam);
+ vtList.DeleteNode(pNode);
+ end;
+ end;
+ finally
+ vtList.EndUpdate;
+ end;
+ except
+ on E: Exception do
+ ETgException.TraceException(Self, E, 'Fail .. process_WM_NOTIFY_CONNECT_MODULE()');
+ end;
+end;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/EXE_AppCtrl/Define.pas b/Tocsg.Module/AppCtrl/EXE_AppCtrl/Define.pas
new file mode 100644
index 00000000..70acdd13
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/EXE_AppCtrl/Define.pas
@@ -0,0 +1,19 @@
+{*******************************************************}
+{ }
+{ Define }
+{ }
+{ Copyright (C) 2023 kku }
+{ }
+{*******************************************************}
+
+unit Define;
+
+interface
+
+const
+ CLIENT_TYPE = 10001;
+ CLIENT_VER = '1';
+
+implementation
+
+end.
diff --git a/Tocsg.Module/AppCtrl/LIB_Common/AppCtrlDefine.pas b/Tocsg.Module/AppCtrl/LIB_Common/AppCtrlDefine.pas
new file mode 100644
index 00000000..849f9405
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/LIB_Common/AppCtrlDefine.pas
@@ -0,0 +1,709 @@
+{*******************************************************}
+{ }
+{ AppCtrlDefine }
+{ }
+{ Copyright (C) 2023 kku }
+{ }
+{*******************************************************}
+
+unit AppCtrlDefine;
+
+interface
+
+uses
+{$IF Defined(_HE_) or Defined(_BS1HP_)}
+ GlobalDefine,
+{$IFEND}
+ Tocsg.DRM.Encrypt, Tocsg.Obj, Winapi.Windows, System.Classes, System.SysUtils,
+ System.SyncObjs, Vcl.Graphics, System.Generics.Collections;
+
+const
+// \Personalization\Governance\|\Personalization\UserFacts\|\Personalization\Content\ >> \Personalization\
+
+ IGNORE_ATTACH_BLOCK_PATHS = ':\ProgramData\|:\Program Files\|:\Program Files (x86)\|:\Windows\|:\Users\Default\AppData\|' + // 이건 넘 범용적인데 일단 넣음
+ ':\Windows\System32\|\WINDOWS\FONTS\|:\ProgramData\NVIDIA Corporation\|' +
+ '\Microsoft Office\|:\Windows\Microsoft.NET\|\Microsoft\Internet Explorer\|\WebServiceCache\|' +
+ '\AppData\Local\|\AppData\LocalLow\|:\ProgramData\Microsoft\Windows Defender\|\\.\|:\Program Files\Google\|' +
+ '\AppData\Roaming\|:\Program Files\Common Files\|\\?\|' +
+ '\\.\MOUNTPOINTMANAGER|:\PROGRAM FILES\GOOGLE\|:\WINDOWS\ASSEMBLY\|:\PROGRAM FILES (X86)\COMMON FILES\|' +
+ '\MyGuard\LOG\|\DesktopCentral_Agent\|\Program Files\chrome_BITS_|\Program Files (x86)\chrome_BITS_|' +
+ '\Manufacturer\Endpoint Agent\|\Microsoft\FORMS\|\Outlook\Offline Address Books\|\Lync\Tracing\|' +
+ '\Outlook\RoamCache\|\Microsoft\MSIPC\Logs\|ptnsch.dat|:\Windows\SysWOW64\|picpick.ini|\Dropbox\Client\|' +
+ '\Google\GoogleUpdater\|\Windows\WER\Temp\|\Local\Packages\|\Temp\System32\|\ofv1root\|\OTele\|' +
+ '\TokenBroker\Cache\|\DisplayForm\|\Personalization\|\Wef\{|\Microsoft\FontCache\|\Temp\Diagnostics\|' +
+ '\INetCache\IE\|\INetCache\Low\|\INetCache\Virtualized\|\Content.MSO\|\Content.Word\|' +
+ '\OneAuth\accounts\|\Floodgate\|\Opera Stable\|\Firefox\Profiles\|\WINDOWS\SystemTemp\|' +
+ '\ProgramData\Microsoft\Windows\|\Adobe\Acrobat DC\|\Globalization\ELS\|\WINDOWS\SysNative\|' +
+ '\DGAgent\|\FireEye\|\Java\Deployment\cache\|:\WWNTUSER\|\Administrator\Favorites\|' +
+ '\WeChat Files\|eCrmHeHelper.dll|eCrmHeHelper32.dll|eCrmHeHelperf.dll|eCrmHeHelper32f.dll|' +
+ 'Chakra.ini|ChakraRules.ini|ChakraInfo-1.ini|ChakraGateWay.ini';
+
+ OPENDLG_WORDS = '파일|열기|다른|OPEN|SAVE|첨부|打开|打開';
+ IGNORE_ATTACH_BLOCK_EXTS_WB = 'CPL|PMA|manifest|PCKGDEP|API|tbres|ost|' +
+ 'oab|db|xml|db-shm|db-wal|metadata|db-shm|db-journal|tbreq|TTF|OTF|vivaldi_reporting_data'; // |htm|html
+ IGNORE_ATTACH_BLOCK_EXTS = 'DLL|LNK|ICO|QMLC|' + IGNORE_ATTACH_BLOCK_EXTS_WB;
+{$IF Defined(_HE_) or Defined(_BS1HP_)}
+ APP_WEB_BROWSERS = WEB_BROWSERS;
+{$ELSE}
+ APP_WEB_BROWSERS = 'iexplore.exe|msedge.exe|whale.exe|chrome.exe|firefox.exe|opera.exe';
+{$IFEND}
+ APP_MSOFFICE = 'winword.exe|excel.exe|powerpnt.exe';
+ IGNORE_WEB_AB_FILES = 'debug.log|icudtl.dat|preloaded_data.pb|messages.json|CHROME.LNK|' +
+ 'msedge.lnk|firefox.lnk|opera.lnk|mip_config.json|kernel32.pdb|ntdll.pdb|ntdll.pdb';
+
+ DRM_EXTS = 'TXT|LOG|DOC|WPS|PDF|XLS|PPT|HWP|HWPX|DOCX|DOTX|XLSX|XLTX|PPTX|POTX|' +
+ 'PPSX|HW|RTF|MW|OW| WP|WP4|WPD|WOP|WM|PW|WMF|WS|WSD|DIF|MWK|W40|WDB|CSV|' +
+ 'WS2|SMTP|EML|MBX|STE|AW|UNI|WKS|WK1|WK3|WK4|FM3|LWP|MWP|XLC|XLM|123|PWD|' +
+ 'MPP|VSD|MSG|OFT|VDX|SXW|SXC|STC|SXI|NSF|DOCM|DOTM|XLSM|XLTM|XLAM|PPTM|' +
+ 'POTM|PPSM|PPAM|XLSB|XPS|DXL|ODT|ODS|ODP|ONM|GRV|PAGES|NUMBERS|KEY|XDW|' +
+ 'ONE|DCM|MLS|ML3|ML4|ML5|ML6|ML7|ML8|ML9|MLA|EMCMF|ACCDT|GUL|JNT|MAT|FIG|' +
+ 'OLM|VCF|ICS|VCS|IWA|VSSX|VSTX|VSTM|SDW|SGL|VOR|SDC|SDD|SDA|SMF|YML|SCPT|' +
+ 'MB|JT|MO|QM|IV|PBIX|IBOOKS|FDF|XFDF|MSO|RSS|SMIL|XSPF|FB2|PPJ|RDF|RSD|SBML|' +
+ 'SRU|SSML|PLS|TEI|METS|MODS|OPF|SRGS|SRX|VXML|CCXML|YIN|CML|VTU|SXD|SXG|ODM|' +
+ 'OTH|FODP|FODS|FODT|OXT|SVM|XDF|HTM|HTML|ASF|MHT|MHTML|MXML|MXL|XML|ASP|METALINK|XDP|XUL';
+ DRM_SUPPORT_APPS = 'EXCEL.EXE|WINWORD.EXE|POWERPNT.EXE|hwp.exe|notepad.exe|notepad++.exe|' +
+ 'Acrobat.exe|AcroRd32.exe|HwpViewer.exe';//|FoxitPDFReader.exe|FoxitPDFEditor.exe';
+
+{$IFDEF DEBUG}
+// 크롬 제거
+// PRINT_SUPPORT_APPS = 'EXCEL.EXE|WINWORD.EXE|POWERPNT.EXE|hwp.exe|' + //'msedge.exe|' +
+ PRINT_SUPPORT_APPS = 'EXCEL.EXE|WINWORD.EXE|POWERPNT.EXE|hwp.exe|' + // 'chrome.exe|msedge.exe|whale.exe|' +
+ 'Evernote.exe|mspaint.exe|Acrobat.exe|Honeyview.exe|notepad.exe|notepad++.exe|' +
+ 'AcroRd32.exe|RdrCEF.exe|AcroCEF.exe|Hword.exe|Hpdf.exe|HCell.exe|HShow.exe|' +
+ 'NeoiCube.exe|MSIP.Viewer.exe|FoxitPDFReader.exe|FoxitPDFEditor.exe|' +
+ 'ALPDF.exe|wordpad.exe';
+{$ELSE}
+ PRINT_SUPPORT_APPS = 'EXCEL.EXE|WINWORD.EXE|POWERPNT.EXE|hwp.exe|' + //'chrome.exe|msedge.exe|whale.exe|' +
+ 'Evernote.exe|mspaint.exe|Acrobat.exe|Honeyview.exe|notepad.exe|notepad++.exe|' +
+ 'AcroRd32.exe|RdrCEF.exe|AcroCEF.exe|Hword.exe|Hpdf.exe|HCell.exe|HShow.exe|' +
+ 'NeoiCube.exe|MSIP.Viewer.exe|FoxitPDFReader.exe|FoxitPDFEditor.exe|' +
+ 'scdmis.exe|scd_erp.exe|ALPDF.exe|wordpad.exe';
+{$ENDIF}
+ RPINT_SUPPORT_APPS_HEC = 'EXCEL.EXE|WINWORD.EXE|POWERPNT.EXE|Acrobat.exe|AcroRd32.exe|AcroCEF.exe|' +
+ 'MSIP.Viewer.exe|FoxitPDFReader.exe|FoxitPDFEditor.exe';
+ PRINT_PATH_EXT = 'DOC|DOCX|PPT|PPTX|XLS|XLSX|TXT|RTF|LOG|PDF|JPG|JPEG|PSD|' +
+ 'BMP|PNG|HWP|HWPX|HTML|HTM|XML';
+
+ WEB_AB_DELAY_EXT = 'PDF|PPT|PPTX|DOC|DOCX|XLS|XLSX|CSV|TXT|HWP|JPG|JPEG|GIF|PNG|JFIF|SVG';
+
+{$IFNDEF _HE_}
+ PASS_DRM_HEAD: AnsiString = '#df12mf8(zfq@'; // KvCttSch.exe (ThdCttSch.pas)에서 사용, 수정 시 주의
+ PASS_DRM_DATA: AnsiString = ':0A2CCABB38C8AD80963A5B1A668ECF9D99270819F1EEE2045B554E81043CCEC3E1E11851D7DE9C65F73F327E3E9585DA'; // 'M}[8k(Ga1/<;LE1j&q';
+ SIG_DRM: AnsiString = 'ToCSG';
+ PASS_STRENC = '(skd82_sl9+a'; // KvCttSch.exe (ThdCttSch.pas)에서 사용, 수정 시 주의
+{$ENDIF}
+
+ SMALL_FONT = 'chrome.exe|msedge.exe|Evernote.exe';
+// START_PROCESS = 'excel.exe';
+ END_PROCESS = 'chrome.exe|msedge.exe|Honeyview.exe|POWERPNT.EXE|' + // 'ApplicationFrameHost.exe|' +
+ 'mspaint.exe|AcroRd32.exe|Acrobat.exe|Evernote.exe';
+ WORD_GAP = ' ';
+
+ ACC_TEST_LOG = 1001;
+ ACC_APP_INFO = 1002;
+ ACC_SET_POLICY = 1003;
+ ACC_SAFE_TERMINATE_CLIENT = 1004;
+ ACC_NOTI_MSG = 1005;
+ ACC_SET_CAPTURE_BLOCK = 1006;
+
+type
+ TCurAppType = (catNormal, catOutlook, catWebb, catMsOffice, catHwp, catExplorer,
+ catAdobeReader, catNotepad, catPPT, catkvHelper, catwinscp, catBizbox, catFilezilla,
+ catChrome, catMsedge, catMswebv, catOlk);
+
+ TDrmHeadInfo = record
+ sEmpNo,
+ sHostName,
+ sPartName,
+ sPgName: String;
+ dwCustomerCode: DWORD;
+ end;
+
+ PDrmFileInfo = ^TDrmFileInfo;
+ TDrmFileInfo = record
+ hFile: THandle;
+ sOrgPath,
+ sDecPath: String;
+ bChgRO,
+ bModified,
+ bModifyAble: Boolean;
+
+ // Head 없앰 24_0814 09:06:42 kku
+ HeadInfo: TDrmHeadInfo;
+ end;
+
+{$IF not Defined(_HE_) and not Defined(_BS1HP_)}
+ TDrmAccessKind = (dakNone, dakEmpNo, dakDept, dakAll);
+
+ TPrtWaterCfg = record
+ bActive: Boolean;
+ sTopText,
+ sBotText: String;
+ nTopSize,
+ nBotSize,
+ nTopPos,
+ nBotPos: Integer
+ end;
+
+ TShFileCrMon = record
+ sMode: String; // secu, sleep, vul, off, exp
+ nKind: Integer; // 0 : none, 1 : monitor, 2 : block
+ bBlkNoti,
+ bMonNoti: Boolean;
+ sExpLst: String;
+ end;
+{$IFEND}
+ TFileUseBlock = (fubNone, fubBlock, fubMonitor);
+ TAppCtrlOpt = record
+ sTaskDir: String;
+ dwCustomerType: DWORD;
+ hMainWnd: HWND;
+
+ // DRM
+ DrmAccessKind,
+ DrmModifyKind: TDrmAccessKind;
+ bDrmAttachAble: Boolean;
+ sDrmPass,
+ sUName,
+ sEmpNo,
+ sDeptName: String;
+
+ // Print
+ nFontSize,
+ nLineCount,
+ nPrintWaterAlpha: Integer;
+ fWmTran: Double; // 투명도
+// sTextOutApp,
+// sTextOutDir,
+ sPrtEmfOutDir,
+ sIpAddr,
+ sPrintWaterImg,
+ sPrintWaterExp: String;
+ bPrintSecu,
+ bPrintWater,
+ bPrtCollect: Boolean;
+ PrtWaterCfg: TPrtWaterCfg;
+
+ // File WebbAB
+ FileUseBlock: TFileUseBlock;
+ bCheckUrl,
+ bUseContentFilter,
+ bReadBlock,
+ bWriteBlock,
+ bFileApproval,
+ bIgrNetPathAB,
+ bOpenDetect: Boolean;
+ ShFileCrMon: TShFileCrMon;
+
+ // Noti
+ hRcvWnd,
+ hTagWnd,
+ hCltWnd: HWND; // 캡쳐 방지 윈도우 메인값
+
+ // 기타, 테스트를 위한 기능
+ sAccount,
+ sAcName,
+ sAcSSid,
+ sAipPath: String;
+ bMtpWB: Boolean;
+ sMtpRoExp: String;
+ bIsTest: Boolean;
+ end;
+
+ TAppCtrlHelper = class(TTgObject)
+ private
+ CS_: TCriticalSection;
+ CurAppType_: TCurAppType;
+ CurAppDetailType_ : TCurAppType;
+ bForceEncSave_: Boolean;
+
+ DrmExtList_,
+ IgrAttBlkExts_,
+ OpenDlgWordList_,
+ IgrAttBlkWebFiles_,
+ IgrAttBlkPaths_: TStringList;
+
+ DcDecPath_: TDictionary;
+ DcDrmFI_: TDictionary;
+
+ bDrmSupport_,
+ bDrmUseBoxedApp_: Boolean;
+
+ CtrlOpt_: TAppCtrlOpt;
+ sAppName_,
+ sDllPath_: String;
+ dwPid_: DWORD;
+
+ IgrReadL_,
+ IgrWriteL_: TList;
+
+ bIsExcel_: Boolean;
+ FoExpList_,
+ NetDrvList_,
+ MtpRoExpList_: TStringList;
+ sMtpRoExpList_: String;
+
+ // 브라우저 파일 차단할때 바로열기 체크, 지연처리를 위함
+// WebAbOpenDelayExtList_: TStringList;
+
+ procedure Lock;
+ procedure Unlock;
+ procedure OnDrmFileNotify(Sender: TObject; const Item: PDrmFileInfo; Action: TCollectionNotification);
+ function GetCtrlOpt: TAppCtrlOpt;
+ procedure SetCtrlOpt(aOpt: TAppCtrlOpt);
+ public
+ hOpenDlgWnd_: HWND;
+ RecentDrmFI_: TDrmFileInfo; // MS오피스 저장 파일 암호화를 위함
+
+ // 프린트 관련 임시 저장
+ nPtrCnt_: Integer;
+ sPtrText_,
+ sCurDocName_: String;
+ bSmallFont_,
+ bBothDocProc_, // StartPage, EndPage 두번 처리 23_1024 11:02:43 kku
+ bEndDocProc_,
+ bIsPrinting_,
+ bIsWaterMaking_: Boolean;
+
+ // DRM 관련 임시 저장
+ dwRecentOpenCustomType_: DWORD;
+ sRecentOpenPath_,
+ sRecentOpenEmpNo_,
+ sRecentOpenDeptName_: String;
+
+ // 파일 쓰기 차단 체크
+ sRecentWrBkPath_: String;
+ nRecentWrBkCnt_: Integer;
+
+ sPrintWaterTxt: String;
+
+ Constructor Create(sAppPath: String);
+ Destructor Destroy; override;
+
+ function IsNetPath(sPath: String): Boolean;
+ procedure NoDrmUse;
+
+ // todo : 사용하지 않을거 같음 24_0122 14:18:40 kku
+ procedure AddIgrReadFile(aFile: THandle);
+ procedure DelOgrReadFile(aFile: THandle);
+ function IsIgrReadFile(aFile: THandle): Boolean;
+
+ // todo : 사용하지 않을거 같음 24_0122 14:18:40 kku
+ procedure AddIgrWriteFile(aFile: THandle);
+ procedure DelOgrWriteFile(aFile: THandle);
+ function IsIgrWriteFile(aFile: THandle): Boolean;
+
+// function IsWebAbDelayExt(sExt: String): Boolean;
+
+// procedure CopyPrintDC(hPtrDC: HDC);
+
+ property CurAppType: TCurAppType read CurAppType_;
+ property CurAppDetailType: TCurAppType read CurAppDetailType_;
+ property DrmExtList: TStringList read DrmExtList_;
+ property IgrAttBlkExts: TStringList read IgrAttBlkExts_;
+ property OpenDlgWordList: TStringList read OpenDlgWordList_;
+ property IgrAttBlkWebFiles: TStringList read IgrAttBlkWebFiles_;
+ property IgrAttBlkPaths: TStringList read IgrAttBlkPaths_;
+ property DcDecPath: TDictionary read DcDecPath_;
+ property DcDrmFI: TDictionary read DcDrmFI_;
+ property CtrlOpt: TAppCtrlOpt read GetCtrlOpt write SetCtrlOpt;
+ property IsDrmSupport: Boolean read bDrmSupport_;
+ property IsDrmUseBoxedApp: Boolean read bDrmUseBoxedApp_;
+ property IsForceEncSave: Boolean read bForceEncSave_;
+ property IsExcel: Boolean read bIsExcel_;
+ property DllPath: String read sDllPath_;
+ property PID: DWORD read dwPid_;
+ property MtpRoExpList: TStringList read MtpRoExpList_;
+ property AppName: String read sAppName_;
+ property FoExpList: TStringList read FoExpList_;
+ end;
+
+{$IFNDEF _HE_} // BSOne는 GlobalDefine.pas에 정의됨
+function DecText(sText: String): String; inline;
+{$ENDIF}
+
+implementation
+
+uses
+{$IFDEF _APPCTRL_}
+ AppHook,
+{$ENDIF}
+ Tocsg.Strings, Tocsg.Safe, Tocsg.Encrypt, Condition, Tocsg.Graphic,
+ Tocsg.Network, Tocsg.Exception, Vcl.Imaging.pngimage;
+
+{$IFNDEF _HE_}
+function DecText(sText: String): String; inline;
+begin
+ Result := '';
+ if Length(sText) < 2 then
+ exit;
+
+ if sText[1] = ':' then
+ begin
+ Delete(sText, 1, 1);
+ Result := DecBinStrToStr(ekAes256cbc, PASS_STRENC, sText);
+ end else
+ Result := sText;
+end;
+{$ENDIF}
+
+{ TAppCtrlHelper }
+
+Constructor TAppCtrlHelper.Create(sAppPath: String);
+
+ procedure Init;
+ var
+ TempList: TStringList;
+ sPath: array [0..512] of Char;
+ begin
+ Guard(TempList, TStringList.Create);
+ TempList.CaseSensitive := false;
+ sAppName_ := LowerCase(ExtractFileName(sAppPath));
+
+// GetModuleFileName(0, sPath, 512); // sAppPath - Current App
+ if GetModuleFileName(HInstance, sPath, 512) > 0 then // DLL Path
+ sDllPath_ := String(sPath)
+ else
+ sDllPath_ := '';
+
+ dwPid_ := GetCurrentProcessId;
+
+ // 프린트 관련 임시 저장
+ nPtrCnt_ := 0;
+ sPtrText_ := '';
+ sCurDocName_ := '';
+ sPrintWaterTxt := '';
+ bIsPrinting_ := false;
+ bIsWaterMaking_ := false;
+// bBothDocProc_ := false;
+
+ SplitString(END_PROCESS, '|', TempList);
+// bEndDocProc_ := TempList.IndexOf(sAppName_) > -1;
+
+ bIsExcel_ := CompareText(sAppName_, 'excel.exe') = 0;
+
+ // HEC 방식 일괄적용 23_1222 10:12:57 kku
+// bEndDocProc_ := true;
+ bEndDocProc_ := CompareText(sAppName_, 'notepad.exe') <> 0;
+ // 엑셀은 색상있는 셀의 경우 나중에 색상을 입히기 때문에 워터마크가 짤리는 문제가 있다.
+ // StartPage, EndPage 두개 모두 찍어준다. 23_1024 14:05:15 kku
+ bBothDocProc_ := bIsExcel_;
+
+ // 투명도를 도트 방식에서 GDI+로 변경하후 다시 이렇게 변경함.. 24_0125 13:41:22 kku
+ // 일단.. 위처럼 롤백함 24_0126 14:15:15 kku
+ // 엑셀에서 깔끔하게 투명도 적용할 방법이 떠오르지 않음 24_0126 14:15:28 kku
+// bEndDocProc_ := CompareText(sAppName_, 'excel.exe') <> 0;
+// bBothDocProc_ := false;
+ ///////
+
+ SplitString(SMALL_FONT, '|', TempList);
+ bSmallFont_ := TempList.IndexOf(sAppName_) > -1;
+
+ CurAppType_ := catNormal;
+ ZeroMemory(@CtrlOpt_, SizeOf(CtrlOpt_));
+ ZeroMemory(@RecentDrmFI_, SizeOf(RecentDrmFI_));
+
+ if (sAppName_ = 'hwp.exe') or (sAppName_ = 'HwpViewer.exe') then
+ CurAppType_ := catHwp
+ else if sAppName_ = 'outlook.exe' then
+ CurAppType_ := catOutlook
+ else if sAppName_ = 'explorer.exe' then
+ CurAppType_ := catExplorer
+ else if (sAppName_ = 'acrobat.exe') or (sAppName_ = 'acrord32.exe') then
+ CurAppType_ := catAdobeReader
+ else if sAppName_ = 'notepad.exe' then
+ CurAppType_ := catNotepad
+ else if sAppName_ = 'powerpnt.exe' then
+ CurAppType_ := catPPT
+ else if sAppName_ = 'kvcttsch.exe' then
+ CurAppType_ := catkvHelper
+ else if sAppName_ = 'winscp.exe' then
+ CurAppType_ := catwinscp
+ else if sAppName_ = 'filezilla.exe' then //윈스테크넷 filezilla 타입 추가 251128 mgkim
+ CurAppType_ := catFilezilla
+ else if sAppName_ = 'bizboxamessenger.exe' then // 더존 메신저, 첨부와 파일 열기 구분 처리 25_1112 10:10:17 kku
+ CurAppType_ := catBizbox
+ else if sAppName_ = 'msedgewebview2.exe' then
+ CurAppType_ := catMswebv
+ else if sAppName_ = 'olk.exe' then
+ CurAppType_ := catOlk;
+
+ if CurAppType_ = catNormal then
+ begin
+ SplitString(APP_MSOFFICE, '|', TempList);
+ if TempList.IndexOf(sAppName_) <> -1 then
+ CurAppType_ := catMsOffice;
+ end;
+
+ if CurAppType_ = catNormal then
+ begin
+ SplitString(APP_WEB_BROWSERS, '|', TempList);
+ if TempList.IndexOf(sAppName_) <> -1 then
+ begin
+ CurAppType_ := catWebb;
+ bSmallFont_ := true;
+ //20251201 mgkim catWebb 별도 브라우저 구분이 없어서 추가
+ if CompareText(sAppName_, 'msedge.exe') = 0 then
+ CurAppDetailType_ := catMsedge;
+
+ if CompareText(sAppName_, 'chrome.exe') = 0 then
+ CurAppDetailType_ := catChrome;
+
+ end;
+ end;
+ bDrmUseBoxedApp_ := false; // ('acrord32.exe' = sAppName_) or ('acrobat.exe' = sAppName_);
+// bDrmUseBoxedApp_ := CurAppType_ = catMsOffice;
+// bDrmSupport_ := ('notepad.exe' = sAppName_) or ('notepad++.exe' = sAppName_);
+// bDrmSupport_ := 'hwp.exe' = sAppName_;
+
+ SplitString(DRM_SUPPORT_APPS, '|', TempList);
+ bDrmSupport_ := TempList.IndexOf(sAppName_) <> -1;
+
+ OpenDlgWordList_ := TStringList.Create;
+ SplitString(UpperCase(OPENDLG_WORDS), '|', OpenDlgWordList_);
+
+ IgrAttBlkExts_ := TStringList.Create;
+ if CurAppType_ = catWebb then
+ SplitString(UpperCase(IGNORE_ATTACH_BLOCK_EXTS_WB), '|', IgrAttBlkExts_)
+ else
+ SplitString(UpperCase(IGNORE_ATTACH_BLOCK_EXTS), '|', IgrAttBlkExts_);
+
+ IgrAttBlkWebFiles_ := TStringList.Create;
+ IgrAttBlkWebFiles_.CaseSensitive := false;
+ SplitString(IGNORE_WEB_AB_FILES, '|', IgrAttBlkWebFiles_);
+
+ IgrAttBlkPaths_ := TStringList.Create;
+ SplitString(UpperCase(IGNORE_ATTACH_BLOCK_PATHS), '|', IgrAttBlkPaths_);
+ IgrAttBlkPaths_.Add(UpperCase(ExtractFilePath(sAppPath)));
+
+// WebAbOpenDelayExtList_ := TStringList.Create;
+// WebAbOpenDelayExtList_.CaseSensitive := false;
+// SplitString(WEB_AB_DELAY_EXT, '|', WebAbOpenDelayExtList_);
+
+ MtpRoExpList_ := TStringList.Create;
+ sMtpRoExpList_ := '';
+
+ // 컨텐츠 필터 걸고
+ // 아웃룩은 \Content.Outlook\만 별도로 허용하도록 보완 24_0321 15:29:16 kku
+// if CurAppType_ = catOutlook then
+// begin
+// // 이거 안빼면 한번 포함된어서 ..\AppData\Local\.. \Content.Outlook\ 경로에 있는 파일들은 차단이 안된다 23_0425 11:09:00 kku
+// var i: Integer := IgrAttBlkPaths_.IndexOf('\AppData\Local\');
+// if i <> -1 then
+// IgrAttBlkPaths_.Delete(i);
+// end;
+
+ DrmExtList_ := TStringList.Create;
+ DrmExtList_.CaseSensitive := false;
+ SplitString(DRM_EXTS, '|', DrmExtList_);
+
+ DcDecPath_ := TDictionary.Create;
+ DcDrmFI_ := TDictionary.Create;
+ DcDrmFI_.OnValueNotify := OnDrmFileNotify;
+
+ IgrReadL_ := TList.Create;
+ IgrWriteL_ := TList.Create;
+
+ NetDrvList_ := TStringList.Create;
+ GetNetDrives(NetDrvList_);
+ FoExpList_ := TStringList.Create;
+ end;
+
+
+begin
+ Inherited Create;
+
+ CS_ := TCriticalSection.Create;
+ Init;
+ InitializeGDIPlus; // 추가 24_0125 11:19:36 kku
+end;
+
+Destructor TAppCtrlHelper.Destroy;
+begin
+ FinalizeGDIPlus; // 추가 24_0125 11:19:36 kku
+ FreeAndNil(FoExpList_);
+ FreeAndNil(NetDrvList_);
+ FreeAndNil(IgrWriteL_);
+ FreeAndNil(IgrReadL_);
+ FreeAndNil(DcDrmFI_);
+ FreeAndNil(MtpRoExpList_);
+ FreeAndNil(DcDecPath_);
+ FreeAndNil(DrmExtList_);
+// FreeAndNil(WebAbOpenDelayExtList_);
+ FreeAndNil(IgrAttBlkPaths_);
+ FreeANdNil(IgrAttBlkWebFiles_);
+ FreeAndNil(IgrAttBlkExts_);
+ FreeAndNil(OpenDlgWordList_);
+
+ Inherited;
+ FreeAndNil(CS_);
+end;
+
+procedure TAppCtrlHelper.Lock;
+begin
+ CS_.Acquire;
+end;
+
+procedure TAppCtrlHelper.Unlock;
+begin
+ CS_.Release;
+end;
+
+procedure TAppCtrlHelper.OnDrmFileNotify(Sender: TObject; const Item: PDrmFileInfo; Action: TCollectionNotification);
+begin
+ if Action = cnRemoved then
+ Dispose(Item);
+end;
+
+function TAppCtrlHelper.IsNetPath(sPath: String): Boolean;
+begin
+ if sPath = '' then
+ begin
+ Result := false;
+ exit;
+ end;
+
+ Result := NetDrvList_.IndexOf(Format('%s:', [UpperCase(sPath)[1]])) <> -1;
+end;
+
+procedure TAppCtrlHelper.NoDrmUse;
+begin
+ bDrmSupport_ := false;
+end;
+
+procedure TAppCtrlHelper.AddIgrReadFile(aFile: THandle);
+begin
+ if IgrReadL_.IndexOf(aFile) = -1 then
+ IgrReadL_.Add(aFile);
+end;
+
+procedure TAppCtrlHelper.DelOgrReadFile(aFile: THandle);
+var
+ i: Integer;
+begin
+ i := IgrReadL_.IndexOf(aFile);
+ if i <> -1 then
+ IgrReadL_.Delete(i);
+end;
+
+function TAppCtrlHelper.IsIgrReadFile(aFile: THandle): Boolean;
+begin
+ Result := IgrReadL_.IndexOf(aFile) <> -1;
+end;
+
+procedure TAppCtrlHelper.AddIgrWriteFile(aFile: THandle);
+begin
+ if IgrWriteL_.IndexOf(aFile) = -1 then
+ IgrWriteL_.Add(aFile);
+end;
+
+procedure TAppCtrlHelper.DelOgrWriteFile(aFile: THandle);
+var
+ i: Integer;
+begin
+ i := IgrWriteL_.IndexOf(aFile);
+ if i <> -1 then
+ IgrWriteL_.Delete(i);
+end;
+
+function TAppCtrlHelper.IsIgrWriteFile(aFile: THandle): Boolean;
+begin
+ Result := IgrWriteL_.IndexOf(aFile) <> -1;
+end;
+
+function TAppCtrlHelper.GetCtrlOpt: TAppCtrlOpt;
+begin
+ Lock;
+ try
+ Result := CtrlOpt_;
+ finally
+ Unlock;
+ end;
+end;
+
+procedure TAppCtrlHelper.SetCtrlOpt(aOpt: TAppCtrlOpt);
+begin
+ Lock;
+ try
+ CtrlOpt_ := aOpt;
+ finally
+ Unlock;
+ end;
+
+ bEndDocProc_ := CompareText(sAppName_, 'notepad.exe') <> 0; //true;
+ bBothDocProc_ := false;// bIsExcel_; // 클리핑 제거로 엑셀 문제 해결, HEC 나중에 확인 25_0605 15:13:25 kku
+ case CtrlOpt_.dwCustomerType of
+// CUSTOMER_KBIZ,
+// CUSTOMER_JUVIS,
+ CUSTOMER_GEC,
+ CUSTOMER_HDENG :
+ begin
+ bEndDocProc_ := true;
+ // 엑셀은 색상있는 셀의 경우 나중에 색상을 입히기 때문에 워터마크가 짤리는 문제가 있다.
+ // StartPage, EndPage 두개 모두 찍어준다. 23_1024 14:05:15 kku
+// bBothDocProc_ := CtrlOpt_.dwCustomerType <> CUSTOMER_JUVIS; // bIsExcel_;
+// if CtrlOpt_.dwCustomerType = CUSTOMER_HDENG then
+ bBothDocProc_ := bIsExcel_;
+// else
+// bBothDocProc_ := false;
+
+ // 두명도를 도트 방식에서 GDI+로 변경한 후 이렇게 바꿈
+ // 엑셀을 두번 칠하게 되면 진해지는 문제가 있음...
+// bEndDocProc_ := not bIsExcel_;
+// bBothDocProc_ := false;
+ end;
+
+ CUSTOMER_ALADIN :
+ begin
+ var n: Integer := IgrAttBlkExts_.IndexOf('EXE');
+ if n <> -1 then
+ IgrAttBlkExts_.Delete(n);
+ end;
+
+ { // 워터마크 전체적인 조절로 인해 bBothDocProc_ := true를 기본으로 함 24_0820 15:28:33 kku
+// CUSTOMER_KOCES :
+ else
+ begin
+ var TempList: TStringList;
+ Guard(TempList, TStringList.Create);
+ SplitString(END_PROCESS, '|', TempList);
+ bEndDocProc_ := TempList.IndexOf(sAppName_) > -1;
+ case CtrlOpt_.dwCustomerType of
+ CUSTOMER_KOCES,
+ CUSTOMER_INZENT : bEndDocProc_ := bEndDocProc_ or bIsExcel_;
+ end;
+
+// if CtrlOpt_.dwCustomerType = CUSTOMER_KOCES then
+// bBothDocProc_ := bIsExcel_
+// else
+ bBothDocProc_ := false;
+ end;
+ }
+ end;
+
+ if sMtpRoExpList_ <> CtrlOpt_.sMtpRoExp then
+ begin
+ sMtpRoExpList_ := CtrlOpt_.sMtpRoExp;
+ SplitString(sMtpRoExpList_, ';', MtpRoExpList_);
+ var i: Integer;
+ var s: String;
+ var EntList: TStringList;
+ Guard(EntList, TStringList.Create);
+ for i := MtpRoExpList_.Count - 1 downto 0 do
+ begin
+ s := StringReplace(UpperCase(MtpRoExpList_[i]), 'USB\', '', [rfReplaceAll]);
+ SplitString(s, '&', EntList);
+ if EntList.Count > 1 then
+ MtpRoExpList_[i] := EntList[0] + '&' + EntList[1]
+ else
+ MtpRoExpList_[i] := s;
+ end;
+ end;
+end;
+
+//function TAppCtrlHelper.IsWebAbDelayExt(sExt: String): Boolean;
+//begin
+// Result := WebAbOpenDelayExtList_.IndexOf(sExt) <> -1;
+//end;
+
+end.
diff --git a/Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/!readme.txt b/Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/!readme.txt
new file mode 100644
index 00000000..c3e0c823
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/!readme.txt
@@ -0,0 +1,13 @@
+How to use BoxedApp SDK as a DLL
+---------------------------------
+
+To use BoxedAppSDK as a DLL add unit 'BoxedAppSDK_DLL.pas' to a project;
+the final EXE needs bxsdk32.DLL (for 32 bit applications) or bxsdk64.DLL (for 64 bit applications)
+
+How to link BoxedApp SDK statically
+------------------------------------
+
+To use BoxedAppSDK statically) add unit 'BoxedAppSDK_Static.pas' to a project;
+the final EXE DOESN'T need bxsdk32.DLL or bxsdk64.DLL
+Sometimes it's useful when you should create single EXE without additional
+dependencies.
diff --git a/Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/BoxedAppSDK.inc b/Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/BoxedAppSDK.inc
new file mode 100644
index 00000000..f136ef13
--- /dev/null
+++ b/Tocsg.Module/AppCtrl/LIB_Common/BoxedAppSDK/BoxedAppSDK.inc
@@ -0,0 +1,1822 @@
+// Copyright (c) Softanics
+
+{$IFNDEF BOXEDAPP_PAS_IS_INCLUDED}
+unit BoxedAppSDK;
+{$ENDIF}
+
+interface
+
+uses Windows, ActiveX;
+
+// Available options, see BoxedAppSDK_EnableOption and BoxedAppSDK_IsOptionEnabled
+const DEF_BOXEDAPPSDK_OPTION__ALL_CHANGES_ARE_VIRTUAL = 1; // default: false
+const DEF_BOXEDAPPSDK_OPTION__EMBED_BOXEDAPP_IN_CHILD_PROCESSES = 2; // default: false
+const DEF_BOXEDAPPSDK_OPTION__ENABLE_VIRTUAL_FILE_SYSTEM = 3; // default: true
+const DEF_BOXEDAPPSDK_OPTION__RECREATE_VIRTUAL_FILE_AS_VIRTUAL = 4; // default: 1 (TRUE)
+const DEF_BOXEDAPPSDK_OPTION__ENABLE_VIRTUAL_REGISTRY = 5; // default: 1 (TRUE)
+const DEF_BOXEDAPPSDK_OPTION__HIDE_VIRTUAL_FILES_FROM_FILE_DIALOG = 6; // default: 0 (FALSE)
+const DEF_BOXEDAPPSDK_OPTION__EMULATE_OUT_OF_PROC_COM_SERVERS = 7; // default: 0 (FALSE)
+const DEF_BOXEDAPPSDK_OPTION__INHERIT_OPTIONS = 8; // default: 0 (FALSE)
+
+// Startup flags
+const DEF_BOXEDAPPSDK_STARTUP_OPTION__HOOK_ENGINE = 1; // default: false
+
+const EnumBoxedAppSDK_RequestId__RegQueryValue = 1;
+const EnumBoxedAppSDK_RequestId__RedirectFilePath = 2;
+
+type
+
+TBoxedAppHandler =
+ function(Param: Pointer; RequestId: DWORD; pAdditionalInfo: Pointer): DWORD; stdcall;
+
+SBoxedAppSDK__RedirectFilePath = packed record
+ // in
+ m_szPath: PWideChar;
+
+ // out
+ m_bHandled: DWORD;
+
+ m_szRedirectToPath: PWideChar;
+end;
+PBoxedAppSDK__RedirectFilePath = ^SBoxedAppSDK__RedirectFilePath;
+
+SBoxedAppSDK__RegQueryValue = packed record
+ // in
+ m_Root: HKEY;
+ m_szPath: PWideChar;
+ m_szValue: PWideChar;
+
+ // out
+ m_bHandled: DWORD;
+
+ m_dwType: DWORD;
+ m_pData: Pointer;
+ m_dwSize: DWORD;
+end;
+PBoxedAppSDK__RegQueryValue = ^SBoxedAppSDK__RegQueryValue;
+
+TBoxedAppSDK_EnumVirtualRegKeysCallbackA =
+ function(hRootKey: HKEY; szSubKey: PAnsiChar; lParam: Cardinal): Boolean; stdcall;
+TBoxedAppSDK_EnumVirtualRegKeysCallbackW =
+ function(hRootKey: HKEY; szSubKey: PWideChar; lParam: Cardinal): Boolean; stdcall;
+{$IFDEF UNICODE}
+TBoxedAppSDK_EnumVirtualRegKeysCallback = TBoxedAppSDK_EnumVirtualRegKeysCallbackW;
+{$ELSE}
+TBoxedAppSDK_EnumVirtualRegKeysCallback = TBoxedAppSDK_EnumVirtualRegKeysCallbackA;
+{$ENDIF}
+
+BOXEDAPP_SHARED_PTR = LargeInt;
+
+function BoxedAppSDK_Init: BOOL; stdcall;
+function BoxedAppSDK_Exit: BOOL; stdcall;
+
+procedure BoxedAppSDK_EnableDebugLog(bEnable: BOOL); stdcall;
+
+procedure BoxedAppSDK_SetLogFile(szLogFilePath: PChar); stdcall;
+procedure BoxedAppSDK_SetLogFileA(szLogFilePath: PAnsiChar); stdcall;
+procedure BoxedAppSDK_SetLogFileW(szLogFilePath: PWideChar); stdcall;
+
+function BoxedAppSDK_CreateVirtualFile(
+ lpFileName: PChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle): THandle; stdcall;
+
+function BoxedAppSDK_CreateVirtualFileA(
+ lpFileName: PAnsiChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle): THandle; stdcall;
+
+function BoxedAppSDK_CreateVirtualFileW(
+ lpFileName: PWideChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle): THandle; stdcall;
+
+
+function BoxedAppSDK_CreateVirtualDirectory(
+ lpPathName: PChar;
+ lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
+
+function BoxedAppSDK_CreateVirtualDirectoryA(
+ lpPathName: PAnsiChar;
+ lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
+
+function BoxedAppSDK_CreateVirtualDirectoryW(
+ lpPathName: PWideChar;
+ lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
+
+
+function BoxedAppSDK_CreateVirtualFileBasedOnIStream(
+ lpFileName: PChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pStream: IStream): THandle; stdcall;
+
+function BoxedAppSDK_CreateVirtualFileBasedOnIStreamA(
+ lpFileName: PAnsiChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pStream: IStream): THandle; stdcall;
+
+function BoxedAppSDK_CreateVirtualFileBasedOnIStreamW(
+ lpFileName: PWideChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pStream: IStream): THandle; stdcall;
+
+
+function BoxedAppSDK_CreateVirtualFileBasedOnBuffer(
+ lpFileName: PChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pData: Pointer;
+ dwSize: DWORD): THandle; stdcall;
+
+function BoxedAppSDK_CreateVirtualFileBasedOnBufferA(
+ lpFileName: PAnsiChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pData: Pointer;
+ dwSize: DWORD): THandle; stdcall;
+
+function BoxedAppSDK_CreateVirtualFileBasedOnBufferW(
+ lpFileName: PWideChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pData: Pointer;
+ dwSize: DWORD): THandle; stdcall;
+
+function BoxedAppSDK_IsVirtualFile(szPath: PChar): BOOL; stdcall;
+function BoxedAppSDK_IsVirtualFileA(szPath: PAnsiChar): BOOL; stdcall;
+function BoxedAppSDK_IsVirtualFileW(szPath: PWideChar): BOOL; stdcall;
+
+function BoxedAppSDK_CreateVirtualRegKey(
+ hKey: HKEY;
+ lpSubKey: PChar;
+ Reserved: DWORD;
+ lpClass: PChar;
+ dwOptions: DWORD;
+ samDesired: REGSAM;
+ lpSecurityAttributes: PSecurityAttributes;
+ var phkResult: HKEY;
+ lpdwDisposition: PDWORD): Longint; stdcall;
+
+function BoxedAppSDK_CreateVirtualRegKeyA(
+ hKey: HKEY;
+ lpSubKey: PAnsiChar;
+ Reserved: DWORD;
+ lpClass: PAnsiChar;
+ dwOptions: DWORD;
+ samDesired: REGSAM;
+ lpSecurityAttributes: PSecurityAttributes;
+ var phkResult: HKEY;
+ lpdwDisposition: PDWORD): Longint; stdcall;
+
+function BoxedAppSDK_CreateVirtualRegKeyW(
+ hKey: HKEY;
+ lpSubKey: PWideChar;
+ Reserved: DWORD;
+ lpClass: PWideChar;
+ dwOptions: DWORD;
+ samDesired: REGSAM;
+ lpSecurityAttributes: PSecurityAttributes;
+ var phkResult: HKEY;
+ lpdwDisposition: PDWORD): Longint; stdcall;
+
+function BoxedAppSDK_RegisterCOMLibraryInVirtualRegistry(szPath: PChar): Longint; stdcall;
+function BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA(szPath: PAnsiChar): Longint; stdcall;
+function BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW(szPath: PWideChar): Longint; stdcall;
+
+function BoxedAppSDK_RegisterCOMServerInVirtualRegistry(szCommandLine: PChar): Longint; stdcall;
+function BoxedAppSDK_RegisterCOMServerInVirtualRegistryA(szCommandLine: PAnsiChar): Longint; stdcall;
+function BoxedAppSDK_RegisterCOMServerInVirtualRegistryW(szCommandLine: PWideChar): Longint; stdcall;
+
+function BoxedAppSDK_SetContext(szContext: PAnsiChar): Longint; stdcall;
+
+function BoxedAppSDK_AddHandler(pHandler: TBoxedAppHandler; Param: Pointer): DWORD; stdcall;
+function BoxedAppSDK_RemoveHandler(dwHandlerId: DWORD): DWORD; stdcall;
+
+function BoxedAppSDK_Alloc(dwSize: DWORD): Pointer; stdcall;
+function BoxedAppSDK_Free(pData: Pointer): DWORD; stdcall;
+
+function BoxedAppSDK_SharedMem_Alloc(dwSize: DWORD): BOXEDAPP_SHARED_PTR; stdcall;
+procedure BoxedAppSDK_SharedMem_Free(shared_ptr: BOXEDAPP_SHARED_PTR); stdcall;
+function BoxedAppSDK_SharedMem_Lock(shared_ptr: DWORD): Pointer; stdcall;
+function BoxedAppSDK_SharedMem_Unlock(shared_ptr: DWORD): BOOL; stdcall;
+
+procedure BoxedAppSDK_EnableOption(dwOptionIndex: DWORD; bEnable: BOOL); stdcall;
+function BoxedAppSDK_IsOptionEnabled(dwOptionIndex: DWORD): BOOL; stdcall;
+
+procedure BoxedAppSDK_RemoteProcess_EnableOption(dwProcessId: DWORD; dwOptionIndex: DWORD; bEnable: BOOL); stdcall;
+function BoxedAppSDK_RemoteProcess_IsOptionEnabled(dwProcessId: DWORD; dwOptionIndex: DWORD): BOOL; stdcall;
+
+procedure BoxedAppSDK_SetStartupFlags(dwFlags: DWORD); stdcall;
+
+function BoxedAppSDK_DeleteFileFromVirtualFileSystem(szPath: PChar): Longint; stdcall;
+function BoxedAppSDK_DeleteFileFromVirtualFileSystemA(szPath: PAnsiChar): Longint; stdcall;
+function BoxedAppSDK_DeleteFileFromVirtualFileSystemW(szPath: PWideChar): Longint; stdcall;
+
+function BoxedAppSDK_CreateProcessFromMemoryA(
+ pBuffer: Pointer;
+ dwSize: DWORD;
+
+ lpApplicationName: PAnsiChar;
+ lpCommandLine: PAnsiChar;
+ lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
+ bInheritHandles: BOOL;
+ dwCreationFlags: DWORD;
+ lpEnvironment: Pointer;
+ lpCurrentDirectory: PAnsiChar;
+ const lpStartupInfo: TStartupInfo;
+ var lpProcessInformation: TProcessInformation): BOOL; stdcall;
+function BoxedAppSDK_CreateProcessFromMemoryW(
+ pBuffer: Pointer;
+ dwSize: DWORD;
+
+ lpApplicationName: PWideChar;
+ lpCommandLine: PWideChar;
+ lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
+ bInheritHandles: BOOL;
+ dwCreationFlags: DWORD;
+ lpEnvironment: Pointer;
+ lpCurrentDirectory: PWideChar;
+ const lpStartupInfo: TStartupInfo;
+ var lpProcessInformation: TProcessInformation): BOOL; stdcall;
+function BoxedAppSDK_CreateProcessFromMemory(
+ pBuffer: Pointer;
+ dwSize: DWORD;
+
+ lpApplicationName: PChar;
+ lpCommandLine: PChar;
+ lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
+ bInheritHandles: BOOL;
+ dwCreationFlags: DWORD;
+ lpEnvironment: Pointer;
+ lpCurrentDirectory: PChar;
+ const lpStartupInfo: TStartupInfo;
+ var lpProcessInformation: TProcessInformation): BOOL; stdcall;
+
+function BoxedAppSDK_AttachToProcess(hProcess: THandle): BOOL; stdcall;
+function BoxedAppSDK_DetachFromProcess(hProcess: THandle): BOOL; stdcall;
+
+// Internal; don't use
+function BoxedAppSDK_GetInternalValue(nValueId: DWORD; buf: Pointer; dwSize: DWORD): DWORD; stdcall;
+
+function BoxedAppSDK_ExecuteDotNetApplication(szPath: PChar; szArgs: PChar): DWORD; stdcall;
+function BoxedAppSDK_ExecuteDotNetApplicationA(szPath: PAnsiChar; szArgs: PAnsiChar): DWORD; stdcall;
+function BoxedAppSDK_ExecuteDotNetApplicationW(szPath: PWideChar; szArgs: PWideChar): DWORD; stdcall;
+
+function BoxedAppSDK_HookFunction(pFunction: Pointer; pHook: Pointer; bEnable: BOOL): THandle; stdcall;
+function BoxedAppSDK_GetOriginalFunction(hHook: THandle): Pointer; stdcall;
+function BoxedAppSDK_EnableHook(hHook: THandle; bEnable: BOOL): BOOL; stdcall;
+function BoxedAppSDK_UnhookFunction(hHook: THandle): BOOL; stdcall;
+
+function BoxedAppSDK_RemoteProcess_LoadLibrary(dwProcessId: DWORD; szPath: PChar): HMODULE; stdcall;
+function BoxedAppSDK_RemoteProcess_LoadLibraryA(dwProcessId: DWORD; szPath: PAnsiChar): HMODULE; stdcall;
+function BoxedAppSDK_RemoteProcess_LoadLibraryW(dwProcessId: DWORD; szPath: PWideChar): HMODULE; stdcall;
+
+function BoxedAppSDK_EnumVirtualRegKeys(pEnumFunc: TBoxedAppSDK_EnumVirtualRegKeysCallback; lParam: Cardinal): Boolean; stdcall;
+function BoxedAppSDK_EnumVirtualRegKeysA(pEnumFunc: TBoxedAppSDK_EnumVirtualRegKeysCallbackA; lParam: Cardinal): Boolean; stdcall;
+function BoxedAppSDK_EnumVirtualRegKeysW(pEnumFunc: TBoxedAppSDK_EnumVirtualRegKeysCallbackW; lParam: Cardinal): Boolean; stdcall;
+
+function BoxedAppSDK_SharedMem_CreateStreamOnSharedMem(var stm: IStream): HResult; stdcall;
+
+function BoxedAppSDK_IsAttachedProcessId(dwProcessId: DWORD): BOOL; stdcall;
+
+function BoxedAppSDK_AddStubCandidate(lpStubPath: PChar): BOOL; stdcall;
+function BoxedAppSDK_AddStubCandidateA(lpStubPath: PAnsiChar): BOOL; stdcall;
+function BoxedAppSDK_AddStubCandidateW(lpStubPath: PWideChar): BOOL; stdcall;
+
+function BoxedAppSDK_RemoveStubCandidate(lpStubPath: PChar): BOOL; stdcall;
+function BoxedAppSDK_RemoveStubCandidateA(lpStubPath: PAnsiChar): BOOL; stdcall;
+function BoxedAppSDK_RemoveStubCandidateW(lpStubPath: PWideChar): BOOL; stdcall;
+
+function BoxedAppSDK_SetBxSdkRawData(pData: Pointer; dwSize: DWORD): BOOL; stdcall;
+
+implementation
+
+{$IFNDEF BOXEDAPP_SDK_USE_DLL}
+uses
+ Classes,
+ SysUtils;
+{$ENDIF}
+
+{$IFDEF BOXEDAPP_SDK_USE_DLL}
+function BoxedAppSDK_Init; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+function BoxedAppSDK_Exit; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+
+procedure BoxedAppSDK_EnableDebugLog; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+
+procedure BoxedAppSDK_SetLogFile; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_SetLogFileW'{$ELSE}'BoxedAppSDK_SetLogFileA'{$ENDIF};
+procedure BoxedAppSDK_SetLogFileA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_SetLogFileA';
+procedure BoxedAppSDK_SetLogFileW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_SetLogFileW';
+
+function BoxedAppSDK_CreateVirtualFile; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_CreateVirtualFileW'{$ELSE}'BoxedAppSDK_CreateVirtualFileA'{$ENDIF};
+function BoxedAppSDK_CreateVirtualFileA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateVirtualFileA';
+function BoxedAppSDK_CreateVirtualFileW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateVirtualFileW';
+
+function BoxedAppSDK_CreateVirtualDirectory; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_CreateVirtualDirectoryW'{$ELSE}'BoxedAppSDK_CreateVirtualDirectoryA'{$ENDIF};
+function BoxedAppSDK_CreateVirtualDirectoryA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateVirtualDirectoryA';
+function BoxedAppSDK_CreateVirtualDirectoryW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateVirtualDirectoryW';
+
+function BoxedAppSDK_CreateVirtualFileBasedOnIStream; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_CreateVirtualFileBasedOnIStreamW'{$ELSE}'BoxedAppSDK_CreateVirtualFileBasedOnIStreamA'{$ENDIF};
+function BoxedAppSDK_CreateVirtualFileBasedOnIStreamA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateVirtualFileBasedOnIStreamA';
+function BoxedAppSDK_CreateVirtualFileBasedOnIStreamW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateVirtualFileBasedOnIStreamW';
+
+function BoxedAppSDK_IsVirtualFile; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_IsVirtualFileW'{$ELSE}'BoxedAppSDK_IsVirtualFileA'{$ENDIF};
+function BoxedAppSDK_IsVirtualFileA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_IsVirtualFileA';
+function BoxedAppSDK_IsVirtualFileW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_IsVirtualFileW';
+
+function BoxedAppSDK_CreateVirtualFileBasedOnBuffer; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_CreateVirtualFileBasedOnBufferW'{$ELSE}'BoxedAppSDK_CreateVirtualFileBasedOnBufferA'{$ENDIF};
+function BoxedAppSDK_CreateVirtualFileBasedOnBufferA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateVirtualFileBasedOnBufferA';
+function BoxedAppSDK_CreateVirtualFileBasedOnBufferW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateVirtualFileBasedOnBufferW';
+
+function BoxedAppSDK_CreateVirtualRegKey; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_CreateVirtualRegKeyW'{$ELSE}'BoxedAppSDK_CreateVirtualRegKeyA'{$ENDIF};
+function BoxedAppSDK_CreateVirtualRegKeyA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateVirtualRegKeyA';
+function BoxedAppSDK_CreateVirtualRegKeyW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateVirtualRegKeyW';
+
+function BoxedAppSDK_RegisterCOMLibraryInVirtualRegistry; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW'{$ELSE}'BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA'{$ENDIF};
+function BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA';
+function BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW';
+
+function BoxedAppSDK_RegisterCOMServerInVirtualRegistry; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_RegisterCOMServerInVirtualRegistryW'{$ELSE}'BoxedAppSDK_RegisterCOMServerInVirtualRegistryA'{$ENDIF};
+function BoxedAppSDK_RegisterCOMServerInVirtualRegistryA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_RegisterCOMServerInVirtualRegistryA';
+function BoxedAppSDK_RegisterCOMServerInVirtualRegistryW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_RegisterCOMServerInVirtualRegistryW';
+
+function BoxedAppSDK_SetContext; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_SetContext';
+
+function BoxedAppSDK_AddHandler; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+function BoxedAppSDK_RemoveHandler; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+
+function BoxedAppSDK_Alloc; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+function BoxedAppSDK_Free; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+
+function BoxedAppSDK_SharedMem_Alloc; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+procedure BoxedAppSDK_SharedMem_Free; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+function BoxedAppSDK_SharedMem_Lock; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+function BoxedAppSDK_SharedMem_Unlock; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+
+procedure BoxedAppSDK_EnableOption; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+function BoxedAppSDK_IsOptionEnabled; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+
+procedure BoxedAppSDK_RemoteProcess_EnableOption; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+function BoxedAppSDK_RemoteProcess_IsOptionEnabled; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+
+procedure BoxedAppSDK_SetStartupFlags; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+
+function BoxedAppSDK_DeleteFileFromVirtualFileSystem; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_DeleteFileFromVirtualFileSystemW'{$ELSE}'BoxedAppSDK_DeleteFileFromVirtualFileSystemA'{$ENDIF};
+function BoxedAppSDK_DeleteFileFromVirtualFileSystemA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_DeleteFileFromVirtualFileSystemA';
+function BoxedAppSDK_DeleteFileFromVirtualFileSystemW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_DeleteFileFromVirtualFileSystemW';
+
+function BoxedAppSDK_CreateProcessFromMemoryA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_CreateProcessFromMemoryW'{$ELSE}'BoxedAppSDK_CreateProcessFromMemoryA'{$ENDIF};
+function BoxedAppSDK_CreateProcessFromMemoryW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateProcessFromMemoryW';
+function BoxedAppSDK_CreateProcessFromMemory; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_CreateProcessFromMemory';
+
+function BoxedAppSDK_AttachToProcess; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_AttachToProcess';
+function BoxedAppSDK_DetachFromProcess; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_DetachFromProcess';
+
+function BoxedAppSDK_GetInternalValue; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_GetInternalValue';
+
+function BoxedAppSDK_ExecuteDotNetApplication; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_ExecuteDotNetApplicationW'{$ELSE}'BoxedAppSDK_ExecuteDotNetApplicationA'{$ENDIF};
+function BoxedAppSDK_ExecuteDotNetApplicationA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_ExecuteDotNetApplicationA';
+function BoxedAppSDK_ExecuteDotNetApplicationW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_ExecuteDotNetApplicationW';
+
+function BoxedAppSDK_HookFunction; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_HookFunction';
+function BoxedAppSDK_GetOriginalFunction; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_GetOriginalFunction';
+function BoxedAppSDK_EnableHook; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_EnableHook';
+function BoxedAppSDK_UnhookFunction; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_UnhookFunction';
+
+function BoxedAppSDK_RemoteProcess_LoadLibrary; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_RemoteProcess_LoadLibraryW'{$ELSE}'BoxedAppSDK_RemoteProcess_LoadLibraryA'{$ENDIF};
+function BoxedAppSDK_RemoteProcess_LoadLibraryA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_RemoteProcess_LoadLibraryA';
+function BoxedAppSDK_RemoteProcess_LoadLibraryW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_RemoteProcess_LoadLibraryW';
+
+function BoxedAppSDK_EnumVirtualRegKeys; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_EnumVirtualRegKeysW'{$ELSE}'BoxedAppSDK_EnumVirtualRegKeysA'{$ENDIF};
+function BoxedAppSDK_EnumVirtualRegKeysA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_EnumVirtualRegKeysA';
+function BoxedAppSDK_EnumVirtualRegKeysW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_EnumVirtualRegKeysW';
+
+function BoxedAppSDK_SharedMem_CreateStreamOnSharedMem; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF};
+
+function BoxedAppSDK_IsAttachedProcessId; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_IsAttachedProcessId';
+
+function BoxedAppSDK_AddStubCandidate; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_AddStubCandidateW'{$ELSE}'BoxedAppSDK_AddStubCandidateA'{$ENDIF};
+function BoxedAppSDK_AddStubCandidateA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_AddStubCandidateA';
+function BoxedAppSDK_AddStubCandidateW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_AddStubCandidateW';
+
+function BoxedAppSDK_RemoveStubCandidate; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name {$IFDEF UNICODE}'BoxedAppSDK_RemoveStubCandidateW'{$ELSE}'BoxedAppSDK_RemoveStubCandidateA'{$ENDIF};
+function BoxedAppSDK_RemoveStubCandidateA; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_RemoveStubCandidateA';
+function BoxedAppSDK_RemoveStubCandidateW; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_RemoveStubCandidateW';
+
+function BoxedAppSDK_SetBxSdkRawData; external {$IFNDEF WIN64} 'bxsdk32.dll' {$ELSE} 'bxsdk64.dll' {$ENDIF} name 'BoxedAppSDK_SetBxSdkRawData';
+//---------------------------------------------------------------------------------------------
+{$ELSE}
+//---------------------------------------------------------------------------------------------
+//Static linked
+//type list
+{$IFNDEF WIN64}
+type NativeUInt = UInt;
+type Size_t = UInt;
+type PNativeUInt = ^NativeUInt;
+type Int64 = Integer;
+{$ENDIF}
+type
+ TBoxedAppSDK_Init = function : BOOL; stdcall;
+ TBoxedAppSDK_Exit = function : BOOL; stdcall;
+ TBoxedAppSDK_HookFunction = function (pFunction: Pointer; pHook: Pointer; bEnable: BOOL): THandle; stdcall;
+ TBoxedAppSDK_EnableDebugLog = procedure (bEnable: BOOL); stdcall;
+ TBoxedAppSDK_SetLogFileA = procedure (szLogFilePath: PAnsiChar); stdcall;
+ TBoxedAppSDK_SetLogFileW = procedure (szLogFilePath: PWideChar); stdcall;
+
+ TBoxedAppSDK_CreateVirtualFileA = function (
+ lpFileName: PAnsiChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle): THandle; stdcall;
+
+ TBoxedAppSDK_CreateVirtualFileW = function (
+ lpFileName: PWideChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle): THandle; stdcall;
+
+ TBoxedAppSDK_CreateVirtualDirectoryA = function (
+ lpPathName: PAnsiChar;
+ lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
+
+ TBoxedAppSDK_CreateVirtualDirectoryW = function (
+ lpPathName: PWideChar;
+ lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
+
+ TBoxedAppSDK_CreateVirtualFileBasedOnIStreamA = function (
+ lpFileName: PAnsiChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pStream: IStream): THandle; stdcall;
+
+ TBoxedAppSDK_CreateVirtualFileBasedOnIStreamW = function (
+ lpFileName: PWideChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pStream: IStream): THandle; stdcall;
+
+ TBoxedAppSDK_CreateVirtualFileBasedOnBufferA = function (
+ lpFileName: PAnsiChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pData: Pointer;
+ dwSize: DWORD): THandle; stdcall;
+ TBoxedAppSDK_CreateVirtualFileBasedOnBufferW = function (
+ lpFileName: PWideChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pData: Pointer;
+ dwSize: DWORD): THandle; stdcall;
+TBoxedAppSDK_IsVirtualFileA = function (szPath: PAnsiChar): BOOL; stdcall;
+TBoxedAppSDK_IsVirtualFileW = function (szPath: PWideChar): BOOL; stdcall;
+TBoxedAppSDK_CreateVirtualRegKeyA = function (
+ hKey: HKEY;
+ lpSubKey: PAnsiChar;
+ Reserved: DWORD;
+ lpClass: PAnsiChar;
+ dwOptions: DWORD;
+ samDesired: REGSAM;
+ lpSecurityAttributes: PSecurityAttributes;
+ var phkResult: HKEY;
+ lpdwDisposition: PDWORD): Longint; stdcall;
+TBoxedAppSDK_CreateVirtualRegKeyW = function (
+ hKey: HKEY;
+ lpSubKey: PWideChar;
+ Reserved: DWORD;
+ lpClass: PWideChar;
+ dwOptions: DWORD;
+ samDesired: REGSAM;
+ lpSecurityAttributes: PSecurityAttributes;
+ var phkResult: HKEY;
+ lpdwDisposition: PDWORD): Longint; stdcall;
+TBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA = function (szPath: PAnsiChar): Longint; stdcall;
+TBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW = function (szPath: PWideChar): Longint; stdcall;
+TBoxedAppSDK_RegisterCOMServerInVirtualRegistryA = function (szCommandLine: PAnsiChar): Longint; stdcall;
+TBoxedAppSDK_RegisterCOMServerInVirtualRegistryW = function (szCommandLine: PWideChar): Longint; stdcall;
+TBoxedAppSDK_SetContext = function (szContext: PAnsiChar): Longint; stdcall;
+TBoxedAppSDK_AddHandler = function (pHandler: TBoxedAppHandler; Param: Pointer): DWORD; stdcall;
+TBoxedAppSDK_RemoveHandler = function (dwHandlerId: DWORD): DWORD; stdcall;
+TBoxedAppSDK_Alloc = function (dwSize: DWORD): Pointer; stdcall;
+TBoxedAppSDK_Free = function (pData: Pointer): DWORD; stdcall;
+TBoxedAppSDK_SharedMem_Alloc = function (dwSize: DWORD): BOXEDAPP_SHARED_PTR; stdcall;
+TBoxedAppSDK_SharedMem_Free = procedure (shared_ptr: BOXEDAPP_SHARED_PTR); stdcall;
+TBoxedAppSDK_SharedMem_Lock = function (shared_ptr: DWORD): Pointer; stdcall;
+TBoxedAppSDK_SharedMem_Unlock = function (shared_ptr: DWORD): BOOL; stdcall;
+TBoxedAppSDK_EnableOption = procedure (dwOptionIndex: DWORD; bEnable: BOOL); stdcall;
+TBoxedAppSDK_IsOptionEnabled = function (dwOptionIndex: DWORD): BOOL; stdcall;
+TBoxedAppSDK_RemoteProcess_EnableOption = procedure (dwProcessId: DWORD; dwOptionIndex: DWORD; bEnable: BOOL); stdcall;
+TBoxedAppSDK_RemoteProcess_IsOptionEnabled = function (dwProcessId: DWORD; dwOptionIndex: DWORD): BOOL; stdcall;
+TBoxedAppSDK_SetStartupFlags = procedure (dwFlags: DWORD); stdcall;
+
+TBoxedAppSDK_DeleteFileFromVirtualFileSystemA = function (szPath: PAnsiChar): Longint; stdcall;
+TBoxedAppSDK_DeleteFileFromVirtualFileSystemW = function (szPath: PWideChar): Longint; stdcall;
+
+TBoxedAppSDK_CreateProcessFromMemoryA = function (
+ pBuffer: Pointer;
+ dwSize: DWORD;
+
+ lpApplicationName: PAnsiChar;
+ lpCommandLine: PAnsiChar;
+ lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
+ bInheritHandles: BOOL;
+ dwCreationFlags: DWORD;
+ lpEnvironment: Pointer;
+ lpCurrentDirectory: PAnsiChar;
+ const lpStartupInfo: TStartupInfo;
+ var lpProcessInformation: TProcessInformation): BOOL; stdcall;
+TBoxedAppSDK_CreateProcessFromMemoryW = function (
+ pBuffer: Pointer;
+ dwSize: DWORD;
+
+ lpApplicationName: PWideChar;
+ lpCommandLine: PWideChar;
+ lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
+ bInheritHandles: BOOL;
+ dwCreationFlags: DWORD;
+ lpEnvironment: Pointer;
+ lpCurrentDirectory: PWideChar;
+ const lpStartupInfo: TStartupInfo;
+ var lpProcessInformation: TProcessInformation): BOOL; stdcall;
+TBoxedAppSDK_AttachToProcess = function (hProcess: THandle): BOOL; stdcall;
+TBoxedAppSDK_DetachFromProcess = function (hProcess: THandle): BOOL; stdcall;
+TBoxedAppSDK_GetInternalValue = function (nValueId: DWORD; buf: Pointer; dwSize: DWORD): DWORD; stdcall;
+
+TBoxedAppSDK_ExecuteDotNetApplicationA = function (szPath: PAnsiChar; szArgs: PAnsiChar): DWORD; stdcall;
+TBoxedAppSDK_ExecuteDotNetApplicationW = function (szPath: PWideChar; szArgs: PWideChar): DWORD; stdcall;
+
+TBoxedAppSDK_GetOriginalFunction = function (hHook: THandle): Pointer; stdcall;
+TBoxedAppSDK_EnableHook = function (hHook: THandle; bEnable: BOOL): BOOL; stdcall;
+TBoxedAppSDK_UnhookFunction = function (hHook: THandle): BOOL; stdcall;
+
+TBoxedAppSDK_RemoteProcess_LoadLibraryA = function (dwProcessId: DWORD; szPath: PAnsiChar): HMODULE; stdcall;
+TBoxedAppSDK_RemoteProcess_LoadLibraryW = function (dwProcessId: DWORD; szPath: PWideChar): HMODULE; stdcall;
+
+TBoxedAppSDK_EnumVirtualRegKeysA = function (pEnumFunc: TBoxedAppSDK_EnumVirtualRegKeysCallbackA; lParam: Cardinal): Boolean; stdcall;
+TBoxedAppSDK_EnumVirtualRegKeysW = function (pEnumFunc: TBoxedAppSDK_EnumVirtualRegKeysCallbackW; lParam: Cardinal): Boolean; stdcall;
+TBoxedAppSDK_SharedMem_CreateStreamOnSharedMem = function (var stm: IStream): HResult; stdcall;
+TBoxedAppSDK_IsAttachedProcessId = function (dwProcessId: DWORD): BOOL; stdcall;
+
+TBoxedAppSDK_AddStubCandidateA = function (lpStubPath: PAnsiChar): BOOL; stdcall;
+TBoxedAppSDK_AddStubCandidateW = function (lpStubPath: PWideChar): BOOL; stdcall;
+
+TBoxedAppSDK_RemoveStubCandidateA = function (lpStubPath: PAnsiChar): BOOL; stdcall;
+TBoxedAppSDK_RemoveStubCandidateW = function (lpStubPath: PWideChar): BOOL; stdcall;
+
+TBoxedAppSDK_SetBxSdkRawData = function (pData: Pointer; dwSize: DWORD): BOOL; stdcall;
+
+var
+ {$IFDEF WIN32}
+ {$I 'BoxedAppSDK_DLL32_Content.inc'}
+ {$ELSE}
+ {$IFDEF WIN64}
+ {$I 'BoxedAppSDK_DLL64_Content.inc'}
+ {$ENDIF}
+ {$ENDIF}
+ hLib: Pointer;
+ RealBoxedAppSDK_Init: TBoxedAppSDK_Init;
+ RealBoxedAppSDK_Exit: TBoxedAppSDK_Exit;
+
+ RealBoxedAppSDK_EnableDebugLog: TBoxedAppSDK_EnableDebugLog;
+ RealBoxedAppSDK_SetLogFileA: TBoxedAppSDK_SetLogFileA;
+ RealBoxedAppSDK_SetLogFileW: TBoxedAppSDK_SetLogFileW;
+ RealBoxedAppSDK_CreateVirtualFileA: TBoxedAppSDK_CreateVirtualFileA;
+ RealBoxedAppSDK_CreateVirtualFileW: TBoxedAppSDK_CreateVirtualFileW;
+ RealBoxedAppSDK_CreateVirtualDirectoryA: TBoxedAppSDK_CreateVirtualDirectoryA;
+ RealBoxedAppSDK_CreateVirtualDirectoryW: TBoxedAppSDK_CreateVirtualDirectoryW;
+ RealBoxedAppSDK_CreateVirtualFileBasedOnIStreamA: TBoxedAppSDK_CreateVirtualFileBasedOnIStreamA;
+ RealBoxedAppSDK_CreateVirtualFileBasedOnIStreamW: TBoxedAppSDK_CreateVirtualFileBasedOnIStreamW;
+ RealBoxedAppSDK_CreateVirtualFileBasedOnBufferA: TBoxedAppSDK_CreateVirtualFileBasedOnBufferA;
+
+ RealBoxedAppSDK_CreateVirtualFileBasedOnBufferW: TBoxedAppSDK_CreateVirtualFileBasedOnBufferW;
+ RealBoxedAppSDK_IsVirtualFileA: TBoxedAppSDK_IsVirtualFileA;
+ RealBoxedAppSDK_IsVirtualFileW: TBoxedAppSDK_IsVirtualFileW;
+ RealBoxedAppSDK_CreateVirtualRegKeyA: TBoxedAppSDK_CreateVirtualRegKeyA;
+ RealBoxedAppSDK_CreateVirtualRegKeyW: TBoxedAppSDK_CreateVirtualRegKeyW;
+ RealBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA: TBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA;
+ RealBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW: TBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW;
+ RealBoxedAppSDK_RegisterCOMServerInVirtualRegistryA: TBoxedAppSDK_RegisterCOMServerInVirtualRegistryA;
+ RealBoxedAppSDK_RegisterCOMServerInVirtualRegistryW: TBoxedAppSDK_RegisterCOMServerInVirtualRegistryW;
+ RealBoxedAppSDK_SetContext: TBoxedAppSDK_SetContext;
+ RealBoxedAppSDK_AddHandler: TBoxedAppSDK_AddHandler;
+ RealBoxedAppSDK_RemoveHandler: TBoxedAppSDK_RemoveHandler;
+ RealBoxedAppSDK_Alloc: TBoxedAppSDK_Alloc;
+ RealBoxedAppSDK_Free: TBoxedAppSDK_Free;
+ RealBoxedAppSDK_SharedMem_Alloc: TBoxedAppSDK_SharedMem_Alloc;
+ RealBoxedAppSDK_SharedMem_Free: TBoxedAppSDK_SharedMem_Free;
+ RealBoxedAppSDK_SharedMem_Lock: TBoxedAppSDK_SharedMem_Lock;
+ RealBoxedAppSDK_SharedMem_Unlock: TBoxedAppSDK_SharedMem_Unlock;
+ RealBoxedAppSDK_EnableOption: TBoxedAppSDK_EnableOption;
+ RealBoxedAppSDK_IsOptionEnabled: TBoxedAppSDK_IsOptionEnabled;
+ RealBoxedAppSDK_RemoteProcess_EnableOption: TBoxedAppSDK_RemoteProcess_EnableOption;
+ RealBoxedAppSDK_RemoteProcess_IsOptionEnabled: TBoxedAppSDK_RemoteProcess_IsOptionEnabled;
+ RealBoxedAppSDK_SetStartupFlags: TBoxedAppSDK_SetStartupFlags;
+ RealBoxedAppSDK_DeleteFileFromVirtualFileSystemA: TBoxedAppSDK_DeleteFileFromVirtualFileSystemA;
+ RealBoxedAppSDK_DeleteFileFromVirtualFileSystemW: TBoxedAppSDK_DeleteFileFromVirtualFileSystemW;
+ RealBoxedAppSDK_CreateProcessFromMemoryA: TBoxedAppSDK_CreateProcessFromMemoryA;
+ RealBoxedAppSDK_CreateProcessFromMemoryW: TBoxedAppSDK_CreateProcessFromMemoryW;
+ RealBoxedAppSDK_AttachToProcess: TBoxedAppSDK_AttachToProcess;
+ RealBoxedAppSDK_DetachFromProcess: TBoxedAppSDK_DetachFromProcess;
+ RealBoxedAppSDK_GetInternalValue: TBoxedAppSDK_GetInternalValue;
+ RealBoxedAppSDK_ExecuteDotNetApplicationA: TBoxedAppSDK_ExecuteDotNetApplicationA;
+ RealBoxedAppSDK_ExecuteDotNetApplicationW: TBoxedAppSDK_ExecuteDotNetApplicationW;
+ RealBoxedAppSDK_HookFunction: TBoxedAppSDK_HookFunction;
+ RealBoxedAppSDK_GetOriginalFunction: TBoxedAppSDK_GetOriginalFunction;
+ RealBoxedAppSDK_EnableHook: TBoxedAppSDK_EnableHook;
+ RealBoxedAppSDK_UnhookFunction: TBoxedAppSDK_UnhookFunction;
+ RealBoxedAppSDK_RemoteProcess_LoadLibraryA: TBoxedAppSDK_RemoteProcess_LoadLibraryA;
+ RealBoxedAppSDK_RemoteProcess_LoadLibraryW: TBoxedAppSDK_RemoteProcess_LoadLibraryW;
+ RealBoxedAppSDK_EnumVirtualRegKeysA: TBoxedAppSDK_EnumVirtualRegKeysA;
+ RealBoxedAppSDK_EnumVirtualRegKeysW: TBoxedAppSDK_EnumVirtualRegKeysW;
+ RealBoxedAppSDK_SharedMem_CreateStreamOnSharedMem: TBoxedAppSDK_SharedMem_CreateStreamOnSharedMem;
+ RealBoxedAppSDK_IsAttachedProcessId: TBoxedAppSDK_IsAttachedProcessId;
+ RealBoxedAppSDK_AddStubCandidateA: TBoxedAppSDK_AddStubCandidateA;
+ RealBoxedAppSDK_AddStubCandidateW: TBoxedAppSDK_AddStubCandidateW;
+ RealBoxedAppSDK_RemoveStubCandidateA: TBoxedAppSDK_RemoveStubCandidateA;
+ RealBoxedAppSDK_RemoveStubCandidateW: TBoxedAppSDK_RemoveStubCandidateW;
+ RealBoxedAppSDK_SetBxSdkRawData: TBoxedAppSDK_SetBxSdkRawData;
+
+//------------------------------------------------------------------------------
+//Internal MemLoader functions
+//------------------------------------------------------------------------------
+
+// This structures only for x86
+{$IFNDEF WIN64}
+const
+IMAGE_SIZEOF_SHORT_NAME = 8;
+IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16;
+IMAGE_ORDINAL_FLAG32 = $80000000;
+
+type IMAGE_IMPORT_BY_NAME = packed record
+ Hint : WORD;
+ Name : packed array[0..0] of Char;
+end;
+type PIMAGE_IMPORT_BY_NAME = ^IMAGE_IMPORT_BY_NAME;
+
+type IMAGE_IMPORT_DESCRIPTOR = packed record
+ Characteristics: Cardinal;
+ TimeDateStamp: Cardinal;
+ ForwarderChain: Cardinal;
+ Name: Cardinal;
+ FirstThunk: Cardinal;
+end;
+type PIMAGE_IMPORT_DESCRIPTOR = ^IMAGE_IMPORT_DESCRIPTOR;
+
+type IMAGE_DATA_DIRECTORY = packed record
+ VirtualAddress : DWORD;
+ Size : DWORD;
+end;
+
+type IMAGE_EXPORT_DIRECTORY = packed record
+ Characteristics: DWord;
+ TimeDateStamp: DWord;
+ MajorVersion: Word;
+ MinorVersion: Word;
+ Name: DWord;
+ Base: DWord;
+
+ NumberOfFunctions: DWord;
+ NumberOfNames: DWord;
+ AddressOfFunctions: DWord;
+ AddressOfNames: DWord;
+ AddressOfNameOrdinals: DWord;
+end;
+
+type TISHMisc = packed record
+case Integer of
+0: (PhysicalAddress: DWORD);
+1: (VirtualSize: DWORD);
+end;
+
+type IMAGE_SECTION_HEADER = packed record
+ Name : packed array [0..IMAGE_SIZEOF_SHORT_NAME-1] of Byte;
+ Misc : TISHMisc ;//PhysicalAddress : DWORD; // or VirtualSize (union);
+ VirtualAddress : DWORD;
+ SizeOfRawData : DWORD;
+ PointerToRawData : DWORD;
+ PointerToRelocations : DWORD;
+ PointerToLinenumbers : DWORD;
+ NumberOfRelocations : WORD;
+ NumberOfLinenumbers : WORD;
+ Characteristics : DWORD;
+ end;
+
+ IMAGE_OPTIONAL_HEADER = packed record
+ { Standard fields. }
+ Magic : WORD;
+ MajorLinkerVersion : Byte;
+ MinorLinkerVersion : Byte;
+ SizeOfCode : DWORD;
+ SizeOfInitializedData : DWORD;
+ SizeOfUninitializedData : DWORD;
+ AddressOfEntryPoint : DWORD;
+ BaseOfCode : DWORD;
+ BaseOfData : DWORD;
+ { NT additional fields. }
+ ImageBase : DWORD;
+ SectionAlignment : DWORD;
+ FileAlignment : DWORD;
+ MajorOperatingSystemVersion : WORD;
+ MinorOperatingSystemVersion : WORD;
+ MajorImageVersion : WORD;
+ MinorImageVersion : WORD;
+ MajorSubsystemVersion : WORD;
+ MinorSubsystemVersion : WORD;
+ Reserved1 : DWORD;
+ SizeOfImage : DWORD;
+ SizeOfHeaders : DWORD;
+ CheckSum : DWORD;
+ Subsystem : WORD;
+ DllCharacteristics : WORD;
+ SizeOfStackReserve : DWORD;
+ SizeOfStackCommit : DWORD;
+ SizeOfHeapReserve : DWORD;
+ SizeOfHeapCommit : DWORD;
+ LoaderFlags : DWORD;
+ NumberOfRvaAndSizes : DWORD;
+ DataDirectory: packed array[0..IMAGE_NUMBEROF_DIRECTORY_ENTRIES-1] of
+ IMAGE_DATA_DIRECTORY;
+ end;
+
+IMAGE_FILE_HEADER = packed record
+ Machine : WORD;
+ NumberOfSections : WORD;
+ TimeDateStamp : DWORD;
+ PointerToSymbolTable : DWORD;
+ NumberOfSymbols : DWORD;
+ SizeOfOptionalHeader : WORD;
+ Characteristics : WORD;
+ end;
+
+IMAGE_NT_HEADERS = packed record
+ Signature : DWORD;
+ FileHeader : IMAGE_FILE_HEADER;
+ OptionalHeader : IMAGE_OPTIONAL_HEADER;
+end;
+{$ENDIF}
+type PIMAGE_NT_HEADERS = ^IMAGE_NT_HEADERS;
+type PIMAGE_FILE_HEADER = ^IMAGE_FILE_HEADER;
+type PIMAGE_OPTIONAL_HEADER = ^IMAGE_OPTIONAL_HEADER;
+type PIMAGE_SECTION_HEADER = ^IMAGE_SECTION_HEADER;
+type PIMAGE_DATA_DIRECTORY = ^IMAGE_DATA_DIRECTORY;
+
+type
+ TDWORDArray = array[0..9999999] of Cardinal;
+type
+ TWORDArray = array[0..99999999] of WORD;
+type PWORDArray = ^TWORDArray;
+type PDWORDArray = ^TDWORDArray;
+
+type IMAGE_DOS_HEADER = packed record // DOS .EXE header
+ e_magic: WORD; // Magic number
+ e_cblp: WORD; // Bytes on last page of file
+ e_cp: WORD; // Pages in file
+ e_crlc: WORD; // Relocations
+ e_cparhdr: WORD; // Size of header in paragraphs
+ e_minalloc: WORD; // Minimum extra paragraphs needed
+ e_maxalloc: WORD; // Maximum extra paragraphs needed
+ e_ss: WORD; // Initial (relative) SS value
+ e_sp: WORD; // Initial SP value
+ e_csum: WORD; // Checksum
+ e_ip: WORD; // Initial IP value
+ e_cs: WORD; // Initial (relative) CS value
+ e_lfarlc: WORD; // File address of relocation table
+ e_ovno: WORD; // Overlay number
+ e_res: array[0..3] of WORD; // Reserved words
+ e_oemid: WORD; // OEM identifier (for e_oeminfo)
+ e_oeminfo: WORD; // OEM information; e_oemid specific
+ e_res2: array[0..9] of WORD; // Reserved words
+ e_lfanew: Cardinal; // File address of new exe header
+end;
+type
+ PIMAGE_DOS_HEADER = ^IMAGE_DOS_HEADER;
+
+type
+IMAGE_BASE_RELOCATION = packed record
+ VirtualAddress: Cardinal;
+ SizeOfBlock: Cardinal;
+// WORD TypeOffset[1];
+end;
+type
+ PIMAGE_BASE_RELOCATION = ^IMAGE_BASE_RELOCATION;
+type
+ PIMAGE_EXPORT_DIRECTORY = ^IMAGE_EXPORT_DIRECTORY;
+
+type
+ DLLMAIN = function(hinstDLL: Pointer; fdwReason: Cardinal; lpvReserved: Pointer): Integer; stdcall;
+type
+ PDLLMAIN = ^DLLMAIN;
+
+//---------------------------------------------------------------------------
+//Internal_CopyMemory
+//---------------------------------------------------------------------------
+type
+ TMemCpy = procedure(Destination: Pointer; Source: Pointer; Count: NativeUInt);cdecl;
+type
+ PMemCpy = ^TMemCpy;
+procedure Internal_CopyMemory(Destination: Pointer; Source: Pointer; Count: NativeUInt); //was UInt64
+var
+ MemCpy: TMemCpy;
+begin
+ MemCpy := nil;
+ //typedef void (__cdecl *P_memcpy)(LPVOID Destination, LPCVOID Source, SIZE_T Count);
+ //static P_memcpy pmemcpy = NULL;
+ if (nil = @MemCpy) then
+ begin
+ MemCpy := TMemCpy(GetProcAddress(GetModuleHandleA('ntdll.dll'), 'memcpy'));
+ end;
+
+ MemCpy(Destination, Source, Count);
+end;
+//---------------------------------------------------------------------------
+//Internal_ZeroMemory
+//---------------------------------------------------------------------------
+type
+ TZeroMem = procedure(What: Pointer; Count: NativeUInt);stdcall;
+procedure Internal_ZeroMemory(What: Pointer; Count: NativeUInt); //was UInt64
+var
+ ZeroMem: TZeroMem;
+begin
+ ZeroMem := nil;
+ if (nil = @ZeroMem) then
+ ZeroMem := TZeroMem(GetProcAddress(GetModuleHandleA('kernel32.dll'), 'RtlZeroMemory'));
+
+ ZeroMem(What, Count);
+end;
+
+{$IFDEF WIN64}
+function AddToPointer(source: Pointer;value: Cardinal) : Pointer;overload;
+begin
+ Result := Pointer(NativeUInt(source) + NativeUInt(value));//Int64
+end;
+{$ENDIF}
+
+function AddToPointer(source: Pointer;value: NativeUInt) : Pointer;{$IFDEF WIN64}overload;{$ENDIF}
+begin
+ Result := Pointer(NativeUInt(source) + value);
+end;
+
+function DecPointer(source: Pointer;value: Pointer) : NativeUInt;
+begin
+ Result := NativeUInt(source) - NativeUInt(value);
+end;
+
+function DecPointerInt(source: Pointer;value: NativeUInt) : NativeUInt;
+begin
+ Result := NativeUInt(source) - NativeUInt(value);
+end;
+
+function min(a: Integer; b: Integer): Integer;
+begin
+ if (a 0 then
+ begin
+ magic := PNativeUInt(AddToPointer(pImageBase,pReloc.VirtualAddress+(pwRelocInfo^ and $0fff)));
+ magic^ := NativeUInt(magic^ + intImageBaseDelta);
+ //*(char* *)((char*)pImageBase + pReloc->VirtualAddress + (pwRelocInfo^ and $0fff)) += intImageBaseDelta;
+ end;
+
+ Inc(pwRelocInfo);
+ end;
+
+ pReloc := PIMAGE_BASE_RELOCATION(pwRelocInfo);
+ end;
+
+ // Import table
+ pImports :=
+ PIMAGE_IMPORT_DESCRIPTOR(AddToPointer(pImageBase,
+ pImageNTHeaders.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress));
+
+ pImport := pImports;
+
+ while 0 <> pImport.Name do
+ begin
+ // DLL Name
+ lpszLibName := LPSTR(AddToPointer(pImageBase,pImport.Name));
+
+ // Load library
+ hLib := LoadLibraryA(lpszLibName);
+
+ if 0 = pImport.TimeDateStamp then
+ lpPRVA_Import := AddToPointer(pImageBase,pImport.FirstThunk)
+ else
+ lpPRVA_Import := AddToPointer(pImageBase,pImport.Characteristics); //new code
+
+ while lpPRVA_Import^ <> 0 do
+ begin
+ // Get function name
+
+ if (PDWORD(lpPRVA_Import)^ and IMAGE_ORDINAL_FLAG32) <> 0 then
+ // Importing by number (ordinal)
+ // Ordinal is in the loword
+ lpszFunctionName := LPSTR(PDWORD(lpPRVA_Import)^ and $ffff)
+ else
+ // Importing by name
+ lpszFunctionName := LPSTR(@PIMAGE_IMPORT_BY_NAME(AddToPointer(pImageBase,PUInt(lpPRVA_Import)^)).Name[0]);
+
+ // Get function address
+ lpPRVA_Import^ := NativeUInt(GetProcAddress(hLib, lpszFunctionName));
+
+ Inc(lpPRVA_Import);
+ end;
+ Inc(pImport);
+ end;
+
+ FlushInstructionCache(GetCurrentProcess(), pImageBase, pImageNTHeaders.OptionalHeader.SizeOfImage);
+ if 0 <> pImageNTHeaders.OptionalHeader.AddressOfEntryPoint then
+ begin
+ // Entry point
+ pDllMain := DLLMAIN(AddToPointer(pImageBase,pImageNTHeaders.OptionalHeader.AddressOfEntryPoint));
+
+ if nil <> @pDllMain then
+ begin
+ pDllMain(Pointer(pImageBase), DLL_PROCESS_ATTACH, nil);
+ pDllMain(Pointer(pImageBase), DLL_THREAD_ATTACH, nil);
+ end;
+ end;
+ Result := Pointer(pImageBase);
+end;
+
+//------------------------------------------------------------------------------
+//Internal_GetProcAddress
+//------------------------------------------------------------------------------
+
+function Internal_GetProcAddress(hModule: Pointer; lpProcName: PAnsiChar) : Pointer;
+var
+ pImageNTHeaders: PIMAGE_NT_HEADERS;
+ pExports: PIMAGE_EXPORT_DIRECTORY;
+ dwExportedSymbolIndex: Cardinal;
+ pPtr: Pointer;
+ dwVirtualAddressOfName: Cardinal;
+ lpszName: PAnsiChar;
+ wIndex: WORD;
+ dwVirtualAddressOfAddressOfProc: Cardinal;
+begin
+ Result := nil;
+ if nil <> hModule then
+ begin
+ pPtr := hModule;
+
+ pPtr := Pointer(Int64(pPtr) + Int64(PIMAGE_DOS_HEADER(pPtr).e_lfanew));
+ pImageNTHeaders := PIMAGE_NT_HEADERS(pPtr);
+
+ // export table
+ pExports := PIMAGE_EXPORT_DIRECTORY(AddToPointer(hModule,
+ pImageNTHeaders.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].VirtualAddress));
+ for dwExportedSymbolIndex := 0 to pExports.NumberOfNames-1 do
+ begin
+ // Cycle on exported by names
+ dwVirtualAddressOfName := PDWORDArray(AddToPointer(hModule,pExports.AddressOfNames))[dwExportedSymbolIndex];
+ lpszName := LPSTR(AddToPointer(hModule,dwVirtualAddressOfName));
+
+ if lstrcmpA(lpszName, lpProcName) = 0 then // Function found!
+ begin
+ // Index
+ wIndex :=
+ PWORDArray(AddToPointer(hModule,pExports.AddressOfNameOrdinals))[dwExportedSymbolIndex];//new code
+
+ dwVirtualAddressOfAddressOfProc :=
+ PDWORDArray(AddToPointer(hModule,pExports.AddressOfFunctions))[wIndex];
+
+ Result := AddToPointer(hModule,dwVirtualAddressOfAddressOfProc);
+ end;
+ end;
+ end
+end;
+//------------------------------------------------------------------------------
+//Internal_Unload
+//------------------------------------------------------------------------------
+procedure Internal_Unload(hModule: Pointer);
+var
+pImageBase: Pointer;
+pPtr: Pointer;
+pImageNTHeaders: PIMAGE_NT_HEADERS;
+pDllMain: DLLMAIN;
+begin
+ if nil <> hModule then
+ begin
+ pImageBase := hModule;
+
+ pPtr := Pointer(hModule);
+ pPtr := Pointer(Int64(pPtr) + Int64(PIMAGE_DOS_HEADER(pPtr).e_lfanew));
+
+ pImageNTHeaders := PIMAGE_NT_HEADERS(pPtr);
+
+ pDllMain := DLLMAIN(AddToPointer(pImageBase,pImageNTHeaders.OptionalHeader.AddressOfEntryPoint));
+
+ if nil <> @pDllMain then
+ begin
+ pDllMain(pImageBase, DLL_THREAD_DETACH, nil);
+ pDllMain(pImageBase, DLL_PROCESS_DETACH, nil);
+ end;
+ VirtualFree(hModule, 0, MEM_RELEASE);
+ end;
+end;
+
+//------------------------------------------------------------------------------
+//Functions from bxsdk32.dll / bxsdk64.dll
+//------------------------------------------------------------------------------
+
+function BoxedAppSDK_LoadDLL: BOOL;
+begin
+ if hLib = nil then
+ begin
+ hLib := Internal_Load(Pointer(@dll[0]));
+
+ if hLib = nil then
+ begin
+ //raise Exception.Create('An error occured during Internal_Load call!');
+ Result := FALSE;
+ exit;
+ end;
+
+ @RealBoxedAppSDK_Init := Internal_GetProcAddress(hLib, 'BoxedAppSDK_Init');
+ @RealBoxedAppSDK_Exit := Internal_GetProcAddress(hLib, 'BoxedAppSDK_Exit');
+
+ @RealBoxedAppSDK_EnableDebugLog := Internal_GetProcAddress(hLib, 'BoxedAppSDK_EnableDebugLog');
+ @RealBoxedAppSDK_SetLogFileA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_SetLogFileA');
+ @RealBoxedAppSDK_SetLogFileW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_SetLogFileW');
+ @RealBoxedAppSDK_CreateVirtualFileA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateVirtualFileA');
+ @RealBoxedAppSDK_CreateVirtualFileW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateVirtualFileW');
+ @RealBoxedAppSDK_CreateVirtualDirectoryA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateVirtualDirectoryA');
+ @RealBoxedAppSDK_CreateVirtualDirectoryW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateVirtualDirectoryW');
+ @RealBoxedAppSDK_CreateVirtualFileBasedOnIStreamA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateVirtualFileBasedOnIStreamA');
+ @RealBoxedAppSDK_CreateVirtualFileBasedOnIStreamW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateVirtualFileBasedOnIStreamW');
+ @RealBoxedAppSDK_CreateVirtualFileBasedOnBufferA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateVirtualFileBasedOnBufferA');
+
+ @RealBoxedAppSDK_CreateVirtualFileBasedOnBufferW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateVirtualFileBasedOnBufferW');
+ @RealBoxedAppSDK_IsVirtualFileA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_IsVirtualFileA');
+ @RealBoxedAppSDK_IsVirtualFileW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_IsVirtualFileW');
+ @RealBoxedAppSDK_CreateVirtualRegKeyA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateVirtualRegKeyA');
+ @RealBoxedAppSDK_CreateVirtualRegKeyW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateVirtualRegKeyW');
+ @RealBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA');
+ @RealBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW');
+ @RealBoxedAppSDK_RegisterCOMServerInVirtualRegistryA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RegisterCOMServerInVirtualRegistryA');
+ @RealBoxedAppSDK_RegisterCOMServerInVirtualRegistryW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RegisterCOMServerInVirtualRegistryW');
+ @RealBoxedAppSDK_SetContext := Internal_GetProcAddress(hLib, 'BoxedAppSDK_SetContext');
+ @RealBoxedAppSDK_AddHandler := Internal_GetProcAddress(hLib, 'BoxedAppSDK_AddHandler');
+ @RealBoxedAppSDK_RemoveHandler := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RemoveHandler');
+ @RealBoxedAppSDK_Alloc := Internal_GetProcAddress(hLib, 'BoxedAppSDK_Alloc');
+ @RealBoxedAppSDK_Free := Internal_GetProcAddress(hLib, 'BoxedAppSDK_Free');
+ @RealBoxedAppSDK_SharedMem_Alloc := Internal_GetProcAddress(hLib, 'BoxedAppSDK_SharedMem_Alloc');
+ @RealBoxedAppSDK_SharedMem_Free := Internal_GetProcAddress(hLib, 'BoxedAppSDK_SharedMem_Free');
+ @RealBoxedAppSDK_SharedMem_Lock := Internal_GetProcAddress(hLib, 'BoxedAppSDK_SharedMem_Lock');
+ @RealBoxedAppSDK_SharedMem_Unlock := Internal_GetProcAddress(hLib, 'BoxedAppSDK_SharedMem_Unlock');
+ @RealBoxedAppSDK_EnableOption := Internal_GetProcAddress(hLib, 'BoxedAppSDK_EnableOption');
+ @RealBoxedAppSDK_IsOptionEnabled := Internal_GetProcAddress(hLib, 'BoxedAppSDK_IsOptionEnabled');
+ @RealBoxedAppSDK_RemoteProcess_EnableOption := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RemoteProcess_EnableOption');
+ @RealBoxedAppSDK_RemoteProcess_IsOptionEnabled := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RemoteProcess_IsOptionEnabled');
+ @RealBoxedAppSDK_SetStartupFlags := Internal_GetProcAddress(hLib, 'BoxedAppSDK_SetStartupFlags');
+ @RealBoxedAppSDK_DeleteFileFromVirtualFileSystemA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_DeleteFileFromVirtualFileSystemA');
+ @RealBoxedAppSDK_DeleteFileFromVirtualFileSystemW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_DeleteFileFromVirtualFileSystemW');
+ @RealBoxedAppSDK_CreateProcessFromMemoryA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateProcessFromMemoryA');
+ @RealBoxedAppSDK_CreateProcessFromMemoryW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_CreateProcessFromMemoryW');
+ @RealBoxedAppSDK_AttachToProcess := Internal_GetProcAddress(hLib, 'BoxedAppSDK_AttachToProcess');
+ @RealBoxedAppSDK_DetachFromProcess := Internal_GetProcAddress(hLib, 'BoxedAppSDK_DetachFromProcess');
+ @RealBoxedAppSDK_GetInternalValue := Internal_GetProcAddress(hLib, 'BoxedAppSDK_GetInternalValue');
+ @RealBoxedAppSDK_ExecuteDotNetApplicationA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_ExecuteDotNetApplicationA');
+ @RealBoxedAppSDK_ExecuteDotNetApplicationW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_ExecuteDotNetApplicationW');
+ @RealBoxedAppSDK_HookFunction := Internal_GetProcAddress(hLib, 'BoxedAppSDK_HookFunction');
+ @RealBoxedAppSDK_GetOriginalFunction := Internal_GetProcAddress(hLib, 'BoxedAppSDK_GetOriginalFunction');
+ @RealBoxedAppSDK_EnableHook := Internal_GetProcAddress(hLib, 'BoxedAppSDK_EnableHook');
+ @RealBoxedAppSDK_UnhookFunction := Internal_GetProcAddress(hLib, 'BoxedAppSDK_UnhookFunction');
+ @RealBoxedAppSDK_RemoteProcess_LoadLibraryA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RemoteProcess_LoadLibraryA');
+ @RealBoxedAppSDK_RemoteProcess_LoadLibraryW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RemoteProcess_LoadLibraryW');
+ @RealBoxedAppSDK_EnumVirtualRegKeysA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_EnumVirtualRegKeysA');
+ @RealBoxedAppSDK_EnumVirtualRegKeysW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_EnumVirtualRegKeysW');
+ @RealBoxedAppSDK_SharedMem_CreateStreamOnSharedMem := Internal_GetProcAddress(hLib, 'BoxedAppSDK_SharedMem_CreateStreamOnSharedMem');
+ @RealBoxedAppSDK_IsAttachedProcessId := Internal_GetProcAddress(hLib, 'BoxedAppSDK_IsAttachedProcessId');
+ @RealBoxedAppSDK_AddStubCandidateA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_AddStubCandidateA');
+ @RealBoxedAppSDK_AddStubCandidateW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_AddStubCandidateW');
+ @RealBoxedAppSDK_RemoveStubCandidateA := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RemoveStubCandidateA');
+ @RealBoxedAppSDK_RemoveStubCandidateW := Internal_GetProcAddress(hLib, 'BoxedAppSDK_RemoveStubCandidateW');
+ @RealBoxedAppSDK_SetBxSdkRawData := Internal_GetProcAddress(hLib, 'BoxedAppSDK_SetBxSdkRawData');
+
+ RealBoxedAppSDK_SetBxSdkRawData(Pointer(@dll[0]), sizeof(dll));
+ end;
+
+ Result := TRUE;
+end;
+
+procedure BoxedAppSDK_EnableDebugLog(bEnable: BOOL); stdcall
+begin
+ RealBoxedAppSDK_EnableDebugLog(bEnable);
+end;
+
+procedure BoxedAppSDK_SetLogFile(szLogFilePath: PChar); stdcall;
+begin
+ {$IFDEF UNICODE}
+ RealBoxedAppSDK_SetLogFileW(szLogFilePath);
+ {$ELSE}
+ RealBoxedAppSDK_SetLogFileA(szLogFilePath);
+ {$ENDIF}
+end;
+
+procedure BoxedAppSDK_SetLogFileA(szLogFilePath: PAnsiChar); stdcall;
+begin
+ RealBoxedAppSDK_SetLogFileA(szLogFilePath);
+end;
+
+procedure BoxedAppSDK_SetLogFileW(szLogFilePath: PWideChar); stdcall;
+begin
+ RealBoxedAppSDK_SetLogFileW(szLogFilePath);
+end;
+
+function BoxedAppSDK_CreateVirtualFile(
+ lpFileName: PChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle): THandle; stdcall;
+begin
+
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_CreateVirtualFileW(lpFileName,dwDesiredAccess,dwShareMode,
+ lpSecurityAttributes,dwCreationDisposition,
+ dwFlagsAndAttributes,hTemplateFile);
+ {$ELSE}
+ Result := RealBoxedAppSDK_CreateVirtualFileA(lpFileName,dwDesiredAccess,dwShareMode,
+ lpSecurityAttributes,dwCreationDisposition,
+ dwFlagsAndAttributes,hTemplateFile);
+ {$ENDIF}
+
+end;
+
+function BoxedAppSDK_CreateVirtualFileA(
+ lpFileName: PAnsiChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle): THandle; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateVirtualFileA(lpFileName,dwDesiredAccess,dwShareMode,
+ lpSecurityAttributes,dwCreationDisposition,
+ dwFlagsAndAttributes,hTemplateFile);
+end;
+
+function BoxedAppSDK_CreateVirtualFileW(
+ lpFileName: PWideChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle): THandle; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateVirtualFileW(lpFileName,dwDesiredAccess,dwShareMode,
+ lpSecurityAttributes,dwCreationDisposition,
+ dwFlagsAndAttributes,hTemplateFile);
+end;
+
+function BoxedAppSDK_CreateVirtualDirectory(
+ lpPathName: PChar;
+ lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_CreateVirtualDirectoryW(lpPathName,lpSecurityAttributes);
+ {$ELSE}
+ Result := RealBoxedAppSDK_CreateVirtualDirectoryA(lpPathName,lpSecurityAttributes);
+ {$ENDIF}
+
+end;
+
+function BoxedAppSDK_CreateVirtualDirectoryA(
+ lpPathName: PAnsiChar;
+ lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateVirtualDirectoryA(lpPathName,lpSecurityAttributes);
+end;
+
+function BoxedAppSDK_CreateVirtualDirectoryW(
+ lpPathName: PWideChar;
+ lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateVirtualDirectoryW(lpPathName,lpSecurityAttributes);
+end;
+
+
+function BoxedAppSDK_CreateVirtualFileBasedOnIStream(
+ lpFileName: PChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pStream: IStream): THandle; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_CreateVirtualFileBasedOnIStreamW(lpFileName,dwDesiredAccess,
+ dwShareMode, lpSecurityAttributes, dwCreationDisposition, dwFlagsAndAttributes,
+ hTemplateFile, pStream);
+ {$ELSE}
+ Result := RealBoxedAppSDK_CreateVirtualFileBasedOnIStreamA(lpFileName,dwDesiredAccess,
+ dwShareMode, lpSecurityAttributes, dwCreationDisposition, dwFlagsAndAttributes,
+ hTemplateFile, pStream);
+ {$ENDIF}
+
+end;
+
+function BoxedAppSDK_CreateVirtualFileBasedOnIStreamA(
+ lpFileName: PAnsiChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pStream: IStream): THandle; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateVirtualFileBasedOnIStreamA(lpFileName,dwDesiredAccess,
+ dwShareMode, lpSecurityAttributes, dwCreationDisposition, dwFlagsAndAttributes,
+ hTemplateFile, pStream);
+end;
+
+function BoxedAppSDK_CreateVirtualFileBasedOnIStreamW(
+ lpFileName: PWideChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pStream: IStream): THandle; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateVirtualFileBasedOnIStreamW(lpFileName,dwDesiredAccess,
+ dwShareMode, lpSecurityAttributes, dwCreationDisposition, dwFlagsAndAttributes,
+ hTemplateFile, pStream);
+end;
+
+function BoxedAppSDK_CreateVirtualFileBasedOnBuffer(
+ lpFileName: PChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pData: Pointer;
+ dwSize: DWORD): THandle; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_CreateVirtualFileBasedOnBufferW(lpFileName,
+ dwDesiredAccess, dwShareMode, lpSecurityAttributes, dwCreationDisposition,
+ dwFlagsAndAttributes, hTemplateFile, pData, dwSize);
+ {$ELSE}
+ Result := RealBoxedAppSDK_CreateVirtualFileBasedOnBufferA(lpFileName,
+ dwDesiredAccess, dwShareMode, lpSecurityAttributes, dwCreationDisposition,
+ dwFlagsAndAttributes, hTemplateFile, pData, dwSize);
+ {$ENDIF}
+
+end;
+
+function BoxedAppSDK_CreateVirtualFileBasedOnBufferA(
+ lpFileName: PAnsiChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pData: Pointer;
+ dwSize: DWORD): THandle; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateVirtualFileBasedOnBufferA(lpFileName,
+ dwDesiredAccess, dwShareMode, lpSecurityAttributes, dwCreationDisposition,
+ dwFlagsAndAttributes, hTemplateFile, pData, dwSize);
+end;
+
+function BoxedAppSDK_CreateVirtualFileBasedOnBufferW(
+ lpFileName: PWideChar;
+ dwDesiredAccess, dwShareMode: Integer;
+ lpSecurityAttributes: PSecurityAttributes;
+ dwCreationDisposition, dwFlagsAndAttributes: DWORD;
+ hTemplateFile: THandle;
+ pData: Pointer;
+ dwSize: DWORD): THandle; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateVirtualFileBasedOnBufferW(lpFileName,
+ dwDesiredAccess, dwShareMode, lpSecurityAttributes, dwCreationDisposition,
+ dwFlagsAndAttributes, hTemplateFile, pData, dwSize);
+end;
+
+function BoxedAppSDK_IsVirtualFile(szPath: PChar): BOOL; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_IsVirtualFileW(szPath);
+ {$ELSE}
+ Result := RealBoxedAppSDK_IsVirtualFileA(szPath);
+ {$ENDIF}
+end;
+
+function BoxedAppSDK_IsVirtualFileA(szPath: PAnsiChar): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_IsVirtualFileA(szPath);
+end;
+
+function BoxedAppSDK_IsVirtualFileW(szPath: PWideChar): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_IsVirtualFileW(szPath);
+end;
+
+function BoxedAppSDK_CreateVirtualRegKey(
+ hKey: HKEY;
+ lpSubKey: PChar;
+ Reserved: DWORD;
+ lpClass: pChar;
+ dwOptions: DWORD;
+ samDesired: REGSAM;
+ lpSecurityAttributes: PSecurityAttributes;
+ var phkResult: HKEY;
+ lpdwDisposition: PDWORD): Longint; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_CreateVirtualRegKeyW(hKey, lpSubKey,
+ Reserved, lpClass, dwOptions, samDesired, lpSecurityAttributes,
+ phkResult, lpdwDisposition);
+ {$ELSE}
+ Result := RealBoxedAppSDK_CreateVirtualRegKeyA(hKey, lpSubKey,
+ Reserved, lpClass, dwOptions, samDesired, lpSecurityAttributes,
+ phkResult, lpdwDisposition);
+ {$ENDIF}
+
+end;
+
+function BoxedAppSDK_CreateVirtualRegKeyA(
+ hKey: HKEY;
+ lpSubKey: PAnsiChar;
+ Reserved: DWORD;
+ lpClass: PAnsiChar;
+ dwOptions: DWORD;
+ samDesired: REGSAM;
+ lpSecurityAttributes: PSecurityAttributes;
+ var phkResult: HKEY;
+ lpdwDisposition: PDWORD): Longint; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateVirtualRegKeyA(hKey, lpSubKey,
+ Reserved, lpClass, dwOptions, samDesired, lpSecurityAttributes,
+ phkResult, lpdwDisposition);
+end;
+
+function BoxedAppSDK_CreateVirtualRegKeyW(
+ hKey: HKEY;
+ lpSubKey: PWideChar;
+ Reserved: DWORD;
+ lpClass: PWideChar;
+ dwOptions: DWORD;
+ samDesired: REGSAM;
+ lpSecurityAttributes: PSecurityAttributes;
+ var phkResult: HKEY;
+ lpdwDisposition: PDWORD): Longint; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateVirtualRegKeyW(hKey, lpSubKey,
+ Reserved, lpClass, dwOptions, samDesired, lpSecurityAttributes,
+ phkResult, lpdwDisposition);
+end;
+
+function BoxedAppSDK_RegisterCOMLibraryInVirtualRegistry(szPath: PChar): Longint; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW(szPath);
+ {$ELSE}
+ Result := RealBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA(szPath);
+ {$ENDIF}
+
+end;
+function BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA(szPath: PAnsiChar): Longint; stdcall;
+begin
+ Result := RealBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryA(szPath);
+end;
+function BoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW(szPath: PWideChar): Longint; stdcall;
+begin
+ Result := RealBoxedAppSDK_RegisterCOMLibraryInVirtualRegistryW(szPath);
+end;
+
+function BoxedAppSDK_RegisterCOMServerInVirtualRegistry(szCommandLine: PChar): Longint; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_RegisterCOMServerInVirtualRegistryW(szCommandLine);
+ {$ELSE}
+ Result := RealBoxedAppSDK_RegisterCOMServerInVirtualRegistryA(szCommandLine);
+ {$ENDIF}
+
+end;
+function BoxedAppSDK_RegisterCOMServerInVirtualRegistryA(szCommandLine: PAnsiChar): Longint; stdcall;
+begin
+ Result := RealBoxedAppSDK_RegisterCOMServerInVirtualRegistryA(szCommandLine);
+end;
+function BoxedAppSDK_RegisterCOMServerInVirtualRegistryW(szCommandLine: PWideChar): Longint; stdcall;
+begin
+ Result := RealBoxedAppSDK_RegisterCOMServerInVirtualRegistryW(szCommandLine);
+end;
+
+function BoxedAppSDK_SetContext(szContext: PAnsiChar): Longint; stdcall;
+begin
+ BoxedAppSDK_LoadDLL;
+
+ Result := RealBoxedAppSDK_SetContext(szContext);
+end;
+
+function BoxedAppSDK_AddHandler(pHandler: TBoxedAppHandler; Param: Pointer): DWORD; stdcall;
+begin
+ Result := RealBoxedAppSDK_AddHandler(pHandler, Param);
+end;
+function BoxedAppSDK_RemoveHandler(dwHandlerId: DWORD): DWORD; stdcall;
+begin
+ Result := RealBoxedAppSDK_RemoveHandler(dwHandlerId);
+end;
+
+function BoxedAppSDK_Alloc(dwSize: DWORD): Pointer; stdcall;
+begin
+ Result := RealBoxedAppSDK_Alloc(dwSize);
+end;
+function BoxedAppSDK_Free(pData: Pointer): DWORD; stdcall;
+begin
+ Result := RealBoxedAppSDK_Free(pData);
+end;
+
+function BoxedAppSDK_SharedMem_Alloc(dwSize: DWORD): BOXEDAPP_SHARED_PTR; stdcall;
+begin
+ Result := RealBoxedAppSDK_SharedMem_Alloc(dwSize);
+end;
+procedure BoxedAppSDK_SharedMem_Free(shared_ptr: BOXEDAPP_SHARED_PTR); stdcall;
+begin
+ RealBoxedAppSDK_SharedMem_Free(shared_ptr);
+end;
+function BoxedAppSDK_SharedMem_Lock(shared_ptr: DWORD): Pointer; stdcall;
+begin
+ Result := RealBoxedAppSDK_SharedMem_Lock(shared_ptr);
+end;
+function BoxedAppSDK_SharedMem_Unlock(shared_ptr: DWORD): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_SharedMem_Unlock(shared_ptr);
+end;
+
+procedure BoxedAppSDK_EnableOption(dwOptionIndex: DWORD; bEnable: BOOL); stdcall;
+begin
+ RealBoxedAppSDK_EnableOption(dwOptionIndex, bEnable);
+end;
+function BoxedAppSDK_IsOptionEnabled(dwOptionIndex: DWORD): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_IsOptionEnabled(dwOptionIndex);
+end;
+
+procedure BoxedAppSDK_RemoteProcess_EnableOption(dwProcessId: DWORD; dwOptionIndex: DWORD; bEnable: BOOL); stdcall;
+begin
+ RealBoxedAppSDK_RemoteProcess_EnableOption(dwProcessId, dwOptionIndex, bEnable);
+end;
+function BoxedAppSDK_RemoteProcess_IsOptionEnabled(dwProcessId: DWORD; dwOptionIndex: DWORD): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_RemoteProcess_IsOptionEnabled(dwProcessId, dwOptionIndex);
+end;
+
+procedure BoxedAppSDK_SetStartupFlags(dwFlags: DWORD); stdcall;
+begin
+ RealBoxedAppSDK_SetStartupFlags(dwFlags);
+end;
+
+function BoxedAppSDK_DeleteFileFromVirtualFileSystem(szPath: PChar): Longint; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_DeleteFileFromVirtualFileSystemW(szPath);
+ {$ELSE}
+ Result := RealBoxedAppSDK_DeleteFileFromVirtualFileSystemA(szPath);
+ {$ENDIF}
+end;
+function BoxedAppSDK_DeleteFileFromVirtualFileSystemA(szPath: PAnsiChar): Longint; stdcall;
+begin
+ Result := RealBoxedAppSDK_DeleteFileFromVirtualFileSystemA(szPath)
+end;
+function BoxedAppSDK_DeleteFileFromVirtualFileSystemW(szPath: PWideChar): Longint; stdcall;
+begin
+ Result := RealBoxedAppSDK_DeleteFileFromVirtualFileSystemW(szPath)
+end;
+
+function BoxedAppSDK_CreateProcessFromMemoryA(
+ pBuffer: Pointer;
+ dwSize: DWORD;
+
+ lpApplicationName: PAnsiChar;
+ lpCommandLine: PAnsiChar;
+ lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
+ bInheritHandles: BOOL;
+ dwCreationFlags: DWORD;
+ lpEnvironment: Pointer;
+ lpCurrentDirectory: PAnsiChar;
+ const lpStartupInfo: TStartupInfo;
+ var lpProcessInformation: TProcessInformation): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateProcessFromMemoryA(pBuffer, dwSize, lpApplicationName,
+ lpCommandLine, lpProcessAttributes, lpThreadAttributes, bInheritHandles,
+ dwCreationFlags, lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
+end;
+function BoxedAppSDK_CreateProcessFromMemoryW(
+ pBuffer: Pointer;
+ dwSize: DWORD;
+
+ lpApplicationName: PWideChar;
+ lpCommandLine: PWideChar;
+ lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
+ bInheritHandles: BOOL;
+ dwCreationFlags: DWORD;
+ lpEnvironment: Pointer;
+ lpCurrentDirectory: PWideChar;
+ const lpStartupInfo: TStartupInfo;
+ var lpProcessInformation: TProcessInformation): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_CreateProcessFromMemoryW(pBuffer, dwSize, lpApplicationName,
+ lpCommandLine, lpProcessAttributes, lpThreadAttributes, bInheritHandles,
+ dwCreationFlags, lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
+end;
+
+function BoxedAppSDK_CreateProcessFromMemory(
+ pBuffer: Pointer;
+ dwSize: DWORD;
+
+ lpApplicationName: PChar;
+ lpCommandLine: PChar;
+ lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
+ bInheritHandles: BOOL;
+ dwCreationFlags: DWORD;
+ lpEnvironment: Pointer;
+ lpCurrentDirectory: PChar;
+ const lpStartupInfo: TStartupInfo;
+ var lpProcessInformation: TProcessInformation): BOOL; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_CreateProcessFromMemoryW(pBuffer, dwSize, lpApplicationName,
+ lpCommandLine, lpProcessAttributes, lpThreadAttributes, bInheritHandles,
+ dwCreationFlags, lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
+ {$ELSE}
+ Result := RealBoxedAppSDK_CreateProcessFromMemoryA(pBuffer, dwSize, lpApplicationName,
+ lpCommandLine, lpProcessAttributes, lpThreadAttributes, bInheritHandles,
+ dwCreationFlags, lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
+ {$ENDIF}
+end;
+
+function BoxedAppSDK_AttachToProcess(hProcess: THandle): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_AttachToProcess(hProcess);
+end;
+function BoxedAppSDK_DetachFromProcess(hProcess: THandle): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_DetachFromProcess(hProcess);
+end;
+
+// Internal; don't use
+function BoxedAppSDK_GetInternalValue(nValueId: DWORD; buf: Pointer; dwSize: DWORD): DWORD; stdcall;
+begin
+ Result := RealBoxedAppSDK_GetInternalValue(nValueId, buf, dwSize);
+end;
+
+function BoxedAppSDK_ExecuteDotNetApplication(szPath: PChar; szArgs: PChar): DWORD; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_ExecuteDotNetApplicationW(szPath, szArgs);
+ {$ELSE}
+ Result := RealBoxedAppSDK_ExecuteDotNetApplicationA(szPath, szArgs);
+ {$ENDIF}
+end;
+function BoxedAppSDK_ExecuteDotNetApplicationA(szPath: PAnsiChar; szArgs: PAnsiChar): DWORD; stdcall;
+begin
+ Result := RealBoxedAppSDK_ExecuteDotNetApplicationA(szPath, szArgs);
+end;
+function BoxedAppSDK_ExecuteDotNetApplicationW(szPath: PWideChar; szArgs: PWideChar): DWORD; stdcall;
+begin
+ Result := RealBoxedAppSDK_ExecuteDotNetApplicationW(szPath, szArgs);
+end;
+
+function BoxedAppSDK_HookFunction(pFunction: Pointer; pHook: Pointer; bEnable: BOOL): THandle; stdcall;
+begin
+ Result := RealBoxedAppSDK_HookFunction(pFunction, pHook, bEnable);
+end;
+
+function BoxedAppSDK_GetOriginalFunction(hHook: THandle): Pointer; stdcall;
+begin
+ Result := RealBoxedAppSDK_GetOriginalFunction(hHook);
+end;
+
+function BoxedAppSDK_EnableHook(hHook: THandle; bEnable: BOOL): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_EnableHook(hHook, bEnable);
+end;
+function BoxedAppSDK_UnhookFunction(hHook: THandle): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_UnhookFunction(hHook);
+end;
+
+function BoxedAppSDK_RemoteProcess_LoadLibrary(dwProcessId: DWORD; szPath: PChar): HMODULE; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_RemoteProcess_LoadLibraryW(dwProcessId, szPath);
+ {$ELSE}
+ Result := RealBoxedAppSDK_RemoteProcess_LoadLibraryA(dwProcessId, szPath);
+ {$ENDIF}
+end;
+function BoxedAppSDK_RemoteProcess_LoadLibraryA(dwProcessId: DWORD; szPath: PAnsiChar): HMODULE; stdcall;
+begin
+ Result := RealBoxedAppSDK_RemoteProcess_LoadLibraryA(dwProcessId, szPath);
+end;
+function BoxedAppSDK_RemoteProcess_LoadLibraryW(dwProcessId: DWORD; szPath: PWideChar): HMODULE; stdcall;
+begin
+ Result := RealBoxedAppSDK_RemoteProcess_LoadLibraryW(dwProcessId, szPath);
+end;
+
+function BoxedAppSDK_EnumVirtualRegKeys(pEnumFunc: TBoxedAppSDK_EnumVirtualRegKeysCallback; lParam: Cardinal): Boolean; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_EnumVirtualRegKeysW(pEnumFunc,lParam);
+ {$ELSE}
+ Result := RealBoxedAppSDK_EnumVirtualRegKeysA(pEnumFunc,lParam);
+ {$ENDIF}
+end;
+function BoxedAppSDK_EnumVirtualRegKeysA(pEnumFunc: TBoxedAppSDK_EnumVirtualRegKeysCallbackA; lParam: Cardinal): Boolean; stdcall;
+begin
+ Result := RealBoxedAppSDK_EnumVirtualRegKeysA(pEnumFunc,lParam);
+end;
+function BoxedAppSDK_EnumVirtualRegKeysW(pEnumFunc: TBoxedAppSDK_EnumVirtualRegKeysCallbackW; lParam: Cardinal): Boolean; stdcall;
+begin
+ Result := RealBoxedAppSDK_EnumVirtualRegKeysW(pEnumFunc,lParam);
+end;
+
+function BoxedAppSDK_SharedMem_CreateStreamOnSharedMem(var stm: IStream): HResult; stdcall;
+begin
+ Result := RealBoxedAppSDK_SharedMem_CreateStreamOnSharedMem(stm);
+end;
+
+function BoxedAppSDK_IsAttachedProcessId(dwProcessId: DWORD): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_IsAttachedProcessId(dwProcessId);
+end;
+
+function BoxedAppSDK_AddStubCandidate(lpStubPath: PChar): BOOL; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_AddStubCandidateW(lpStubPath);
+ {$ELSE}
+ Result := RealBoxedAppSDK_AddStubCandidateA(lpStubPath);
+ {$ENDIF}
+end;
+function BoxedAppSDK_AddStubCandidateA(lpStubPath: PAnsiChar): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_AddStubCandidateA(lpStubPath);
+end;
+function BoxedAppSDK_AddStubCandidateW(lpStubPath: PWideChar): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_AddStubCandidateW(lpStubPath);
+end;
+
+function BoxedAppSDK_RemoveStubCandidate(lpStubPath: PChar): BOOL; stdcall;
+begin
+ {$IFDEF UNICODE}
+ Result := RealBoxedAppSDK_RemoveStubCandidateW(lpStubPath);
+ {$ELSE}
+ Result := RealBoxedAppSDK_RemoveStubCandidateA(lpStubPath);
+ {$ENDIF}
+end;
+function BoxedAppSDK_RemoveStubCandidateA(lpStubPath: PAnsiChar): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_RemoveStubCandidateA(lpStubPath);
+end;
+function BoxedAppSDK_RemoveStubCandidateW(lpStubPath: PWideChar): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_RemoveStubCandidateW(lpStubPath);
+end;
+
+function BoxedAppSDK_SetBxSdkRawData(pData: Pointer; dwSize: DWORD): BOOL; stdcall;
+begin
+ Result := RealBoxedAppSDK_SetBxSdkRawData(pData, dwSize);
+end;
+
+function BoxedAppSDK_Init;
+begin
+ BoxedAppSDK_LoadDLL;
+
+ Result := RealBoxedAppSDK_Init();
+end;
+
+function BoxedAppSDK_Exit;
+begin
+ //call original function
+ Result := RealBoxedAppSDK_Exit();
+ if hLib <