delphi 中madcodehook怎样安装？

[Zee_Mars]

我下了一个例子引用了madcodehook这个库，我安装例子给的地址下载了madcodehook，并且已经将madCodeHook，madBasic都复制到libs里面了，可编译的时候还是提示说：
[Fatal Error] Unit1.pas(7): Unit madCodeHook was compiled with a different version of madDisAsm.KernelProc

有没有人能够帮忙指点下？

[kye_jufei]

致命错误]Unit1.pas(7):单位madCodeHook编纂与不同版本的madDisAsm.KernelProc。。。

uses
  SysUtils, classes, windows, madCodeHook, winsock2;

var
  oldWSARecv: function(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD;
    var lpNumberOfBytesRecvd: DWORD; var lpFlags: DWORD; lpOverlapped: LPWSAOVERLAPPED;
    lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;

  function SetHook: Boolean;

implementation

procedure myRecv(buf: PChar; len: integer);
var
  ss: string;
  //PacketDispose: TPacketDispose;
begin
  //PacketDispose := TPacketDispose.Create(buf, len);  // 通过其它线程输出以免阻塞

  ss := strPas(buf);
  Form1.Memo1.Lines.Add(IntToStr(lpNumberOfBytesRecvd) + '------------- >' + #13#10 + ss);
end;

function myWSARecv(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD;
  var lpNumberOfBytesRecvd: DWORD; var lpFlags: DWORD; lpOverlapped: LPWSAOVERLAPPED;
  lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
begin
  myWSARecv := oldWSARecv(s, lpBuffers, dwBufferCount, lpNumberOfBytesRecvd, lpFlags, lpOverlapped, lpCompletionROUTINE);
  myRecv(lpBuffers.buf, lpNumberOfBytesRecvd); 
end;

function SetHook: Boolean;
begin  // 由于我是Hook程序本身(程序里面有TWebBrowser控件)，所以没有做DLL
  HookAPI('ws2_32.dll', 'WSARecv', @myWSARecv, @oldWSARecv);
end;

[Zee_Mars]

[Quote=引用 1 楼 kye_jufei 的回复:]

致命错误]Unit1.pas(7):单位madCodeHook编纂与不同版本的madDisAsm.KernelProc。。。


Delphi(Pascal) code
uses
SysUtils, classes, windows, madCodeHook, winsock2;

var
oldWSARecv: function(s: TSocket; lpBuffers: L……
[/Quote]

我知道这个提示的汉语意思。。。关键是怎样解决？

[Zee_Mars]

没有没有人能够帮我解答一下？？？