请问为什么我这样调用hook API接收封包时出错了？

Question

我是按这里原文做的：
http://dev.csdn.net/develop/article/22/22765.shtm我调用方法如下:procedure TForm1.Button1Click(Sender: TObject);
var
ModuleHandle: THandle;
TmpWndHandle: THandle;
s:TSOCKET;//创建Socket对象
Info:string;
BufSend,BufRecv:pchar;
Re:Integer;
begin
TmpWndHandle := 0;
  TmpWndHandle := FindWindow(nil, 'flashfxp');
  if not isWindow(TmpWndHandle) then
  begin
    MessageBox(self.Handle, '没有找到窗口', '!!!', MB_OK);
    exit;
  end;
  ModuleHandle := LoadLibrary('Hook.dll');
  @InstallHook := GetProcAddress(ModuleHandle, 'InstallHook');
  @UnHook := GetProcAddress(ModuleHandle, 'UnHook');
  if InstallHook(FindWindow(nil, 'Untitled')) then
    ShowMessage('Hook OK');
    GetMem(BufRecv,1024);
    ZeroMemory(bufRecv,1024);
    re := MyRecv(s, BufRecv^, 1024, 0); //执行到这里出错~~
    if re>0 then
    begin
    Info:=StrPas(bufRecv);
     memo1.Text:=info;
     end;
end;请问怎样解决了？

Answer 1

re := MyRecv(s, BufRecv^, 1024, 0); //执行到这里出错~~
改成
re := MyRecv(s, BufRecv, 1024, 0); 
如何