局域网扫描问题

Question

var
  WSAData:TWSADATA;
  Addr:DWORD;
begin
  WSAStartup(2,   WSAData);
  Addr:=inet_addr(PChar(IP));
    if  gethostbyaddr(@Addr,sizeof(Addr),PF_INET)<>nil   then
        ShowMessage(ip);
        WSACleanup();
      ShowMessage('P'+ip);
end;我在网上copy了一个扫描局域网的程序假如说，扫描到IP在线的话，很快就通过了但如果不在线的话，会卡在那边很久，有什么办法可以很快的扫描下一个呢

Answer 1

+个时间检测.如果在,某个IP检测超时10秒后自动next

Answer 2

代码有问题,我也有个测试“网络扫描”程序，获取IP，电脑名称，MACID
若电脑在网络中，就显示，不存在网络中，就不显示

Answer 3

代码有问题,我也有个测试“网络扫描”程序，获取IP，电脑名称，MACID
若电脑在网络中，就显示，不存在网络中，就不显示