扫描端口问题

Question

这个函数只对本机扫描，我想对其它机子扫描，这个IP在哪里写啊。。哪个属性啊
function TFrmChk.IsPortUsed(const aPort: Integer): Boolean;
var
  _vSock : TSocket;
  _vWSAData : TWSAData;
  _vAddrIn : TSockAddrIn;
begin
  Result := False;  if WSAStartup(MAKEWORD(2, 2), _vWSAData) = 0 then
  begin
    _vSock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  try
    if _vSock <> SOCKET_ERROR then
    begin
      _vAddrIn.sin_family := AF_INET;
      _vAddrIn.sin_addr.S_addr := htonl(INADDR_ANY);
      _vAddrIn.sin_port := htons(APort);
      if Bind(_vSock, _vAddrIn, SizeOf(_vAddrIn)) <> 0 then
      if WSAGetLastError = WSAEADDRINUSE then
          Result := True;
    end;
  finally
    CloseSocket(_vSock);
    WSACleanup();
  end;
  end;
end;

Answer 1

这里可以设置IP地址！
 
_vAddrIn.sin_addr.S_addr := inet_addr('192.168.0.1');

Answer 2

建议你跟踪测试一下,再用
showmessage('这是个返回的结果:');