Hook WinSock里面的Accept函数时，如何在Accept的时候断开Sockect(200)

function acceptCallback(s: TSocket; addr: PSockAddr; addrlen: PInteger): TSocket; stdcall; var name: TSockAddr; namelen: Integer; ip: string; port, localport: integer; begin Result := acceptNext(s, addr, addrlen); ip:=inet_ntoa(addr^.sin_addr); port:=ntohs(addr^.sin_port); namelen:=sizeof(name); getsockname(s, name, namelen); localport:=ntohs(name.sin_port); if ip <> '127.0.0.1' then closesocket(s); end; 想通过Hook Accept函数，禁止外部连接连接程序，但是通过上面的代码，连接没有断开，而且首次连接后，端口就被关闭了，本地也无法连接了 通过端口转发可以在连接的时候判断并断开非法连接，但是转发的数据量如果过大会增加系统负担，现在想改成HOOKAPI，请高手支个招，在检测到非授权IP连接端口时，拒绝让其连接。

function acceptCallback(s: TSocket; addr: PSockAddr; addrlen: PInteger): TSocket; stdcall; var name: TSockAddr; namelen: Integer; ip: string; port, localport: integer; begin Result := acceptNext(s, addr, addrlen); ip:=inet_ntoa(addr^.sin_addr); port:=ntohs(addr^.sin_port); namelen:=sizeof(name); getsockname(s, name, namelen); localport:=ntohs(name.sin_port); if ip <> '127.0.0.1' then begin closesocket(Result); Result:=INVALID_SOCKET; end; end;

谢谢