局域网扫描问题
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在线的话，很快就通过了

但如果不在线的话，会卡在那边很久，有什么办法可以很快的扫描下一个呢

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