{*******************************************************}
{                                                       }
{       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<PPointer>;
    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<PPointer>.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.