Question

我有一个coclass检查注册表以确定是否安装了一个应用程序，但它做得很差并且没有找到该应用程序的更新版本。如果已安装竞争应用程序，它将尝试打开该应用程序。如果已卸载竞争应用程序，程序将崩溃。这个coclass是在DLL文件中定义的，我没有库的源代码，所以我不能只改变它。我一直在研究使用钩子来替换有效的功能，但是当我查看使用SetWindowsHookEx的MSDN文档时，它似乎很复杂。有人可以提供一个如何使用SetWindowsHookEx或其他挂钩方法的例子吗？

谢谢

编辑：我想说明我接受了我的答案，因为它对我有用。在提出问题的时候，我无法使用其他答案，但它看起来一样好。

Answer 1

这是我自己的代码库中的一个简短示例，它显示了最基本的挂钩技术：

unit MethodHooker;

interface

implementation

uses
  SysUtils, Windows, Classes;

procedure Patch(Address: Pointer; const NewCode; Size: Integer);
var
  NumberOfBytes: DWORD;
begin
  WriteProcessMemory(GetCurrentProcess, Address, @NewCode, Size, NumberOfBytes);
end;

type
  PInstruction = ^TInstruction;
  TInstruction = packed record
    Opcode: Byte;
    Offset: Integer;
  end;

procedure Redirect(OldAddress, NewAddress: Pointer);
var
  NewCode: TInstruction;
begin
  NewCode.Opcode := $E9;//jump relative
  NewCode.Offset := Integer(NewAddress)-Integer(OldAddress)-SizeOf(NewCode);
  Patch(OldAddress, NewCode, SizeOf(NewCode));
end;

function GetCursorPos(var lpPoint: TPoint): BOOL; stdcall;
(* The GetCursorPos API in user32 fails if it is passed a memory address >2GB which
   breaks LARGEADDRESSAWARE apps.  We counter this by calling GetCursorInfo instead
   which does not suffer from the same problem. *)
var
  CursorInfo: TCursorInfo;
begin
  CursorInfo.cbSize := SizeOf(CursorInfo);
  Result := GetCursorInfo(CursorInfo);
  if Result then begin
    lpPoint := CursorInfo.ptScreenPos;
  end else begin
    lpPoint := Point(0, 0);
  end;
end;

initialization
  if not ModuleIsPackage then begin
    if not CheckWin32Version(6, 1) then begin
      //this bug was fixed in Windows 7
      Redirect(@Windows.GetCursorPos, @MethodHooker.GetCursorPos);
    end;

end.

Answer 2

对于一个非常好的绕行/挂钩单元（可以检查跳跃并应用新的偏移！）我建议KOLdetours.pas

我在很多项目中使用它，例如我的AsmProfiler。

顺便说一下：绕道而行，你会得到一个“蹦床”，所以你也可以调用原来的功能！

Answer 3

我是koldetours的作者。许可证对所有人免费：即使用您喜欢的商业计划。基本上它是真正的开源，不会因任何许可而瘫痪。就像它派生的代码一样。它在标题中清楚地说明了这一点。

在Delphi中挂钩DLL函数

3 个答案: