是否可以挂钩 EnumWindowsProc 回调函数？

Question

我想知道是否可以像 EnumWindowsProc() using inline hook 方法那样挂接回调函数？如果是，能否提供一个代码片段（示例）？

谢谢。

版本：

EnumWindowsProc是在其他应用中实现的回调。我没有在我的应用程序中调用它。

我想通过 dll 注入在另一个应用程序中挂钩 EnumWindowsProc。

Answer 1

你必须首先处理 EnumWindows，然后你必须将指向原始 EnumWindowsProc 的指针替换为你自己。

我的示例适用于 win32

unit Patch;

interface

procedure PatchEnumWindows(Patch: Boolean);

implementation
uses SysUtils, SyncObjs, Windows;

const
  INSTR_SIZE = 6;

var
  OldEnumWindows: array [0..INSTR_SIZE-1] of Byte;
  EnumWindowsPatched: Boolean = False;

function PatchedEnumWindows(EnumWindowsProc: Pointer; Param: Pointer); stdcall;
begin
  // You have to replace original EnumWindowsProc to yourself
end;


procedure ApiRedirect(OrigFunction, NewFunction: Pointer; var Old);
const
  TEMP_JMP: array[0..INSTR_SIZE-1] of Byte = ($E9,,,,,$C3);
var
  JmpSize: DWORD;
  JMP: array [0..INSTR_SIZE-1] of Byte;
  OldProtect: DWORD;
begin
  Move(TEMP_JMP, JMP, INSTR_SIZE);
  JmpSize := DWORD(NewFunction) - DWORD(OrigFunction) - 5;
  if not VirtualProtect(LPVOID(OrigFunction), INSTR_SIZE, PAGE_EXECUTE_READWRITE,         OldProtect) then
    raise Exception.CreateFmt('%s', [SysErrorMessage(GetLastError)]);
  Move(OrigFunction^, Old, INSTR_SIZE);
  Move(JmpSize, JMP[1], 4);
  Move(JMP, OrigFunction^, INSTR_SIZE);
  VirtualProtect(LPVOID(OrigFunction), INSTR_SIZE, OldProtect, nil);
end;

procedure PatchEnumWindows(Patch: Boolean);
var
  OrigEnumWindows: Pointer;
begin
  if Patch <> EnumWindowsProcPatched then begin
    OrigEnumWindows := GetProcAddress(GetModuleHandle('user32.dll'), 'EnumWindows');
    if Patch then begin
      ApiRedirect(OrigEnumWindows, @PatchedEnumWindows, OldEnumWindows);
    end
    else begin
      Move(OldEnumWindows, OrigEnumWindows, INSTR_SIZE);
    end;
    EnumWindowsPatched := Patch;
  end;
end;


end.

是否可以挂钩 EnumWindowsProc 回调函数？

Is possible hook EnumWindowsProc callback function?

delphi

callback

delphi-10-seattle

api-hook