在delphi中打补丁例程调用

Question

我想修补例行调用，以便自己进行一些修改即可处理它。我正在写一个资源加载器。我想用我的来修补Delphi的LoadResourceModule和InitInheritedComponent例程。我已经检查了MadExcept.pas单元中的PatchAPI调用，但无法确定是否可以将其用于我的项目。我想要类似的东西我的exe在运行时调用-> LoadResourceModule->跳至-> MyCustomResourceModule ...关于此的任何指示将非常有帮助。

Answer 1

我使用以下代码：

procedure PatchCode(Address: Pointer; const NewCode; Size: Integer);

var

  OldProtect: DWORD;

begin

  if VirtualProtect(Address, Size, PAGE_EXECUTE_READWRITE, OldProtect) then 

  begin

    Move(NewCode, Address^, Size);

    FlushInstructionCache(GetCurrentProcess, Address, Size);

    VirtualProtect(Address, Size, OldProtect, @OldProtect);

  end;

end;

type

  PInstruction = ^TInstruction;

  TInstruction = packed record

    Opcode: Byte;

    Offset: Integer;

  end;

procedure RedirectProcedure(OldAddress, NewAddress: Pointer);

var

  NewCode: TInstruction;

begin

  NewCode.Opcode := $E9;//jump relative

  NewCode.Offset := NativeInt(NewAddress)-NativeInt(OldAddress)-SizeOf(NewCode);

  PatchCode(OldAddress, NewCode, SizeOf(NewCode));

end;

您可以通过调用来实现钩子/补丁/绕行RedirectProcedure：

RedirectProcedure(@LoadResourceModule, @MyLoadResourceModule);

这将适用于32位代码。如果旧功能和新功能都位于同一可执行模块中，则它也适用于64位代码。否则，跳转距离可能会超出32位整数的范围。

如果有人可以提供一种适用于64位地址