Синхронизация определенного файла программы с другима запущеными в сети.

[Квэнди]

для этого вам надо узнать ip и маску вашего интерфейса, исходя из маски высчитать все допустимые Ip адреса в сети, затем циклом идти по этим адресам и пытаться "стучаться" на договоренный порт. В вкладке Indy Misc есть возможность получить ip адреса и маски интерфейсов.

[xVitaliyx]

Но это все равно получается банальный перебор по IP адресам.
Это я сделал уже только не могу понять как прикрутить таймаут к проверке неактивного адресса.
Я имел ввиду получить адресса всех компов из сетевого окружения. (Это реализовано в программе NetLook)
А не перебирать по маске.

[Квэнди]

если реализовывали через Indy то выставление Timeout там присутствует во всех компонентах

[xVitaliyx]

Нет через WinSock
Вот такая функция:

function PingPort(host:String;port:integer):boolean;
var
WSAData:TWSAData;
FSocket:TSocket;
addr:TSockAddr;
begin
addr.sin_family:=AF_INET;
addr.sin_addr.S_addr:=inet_addr(pansichar(host));
 if WSAStartup($101,WSAData)=0 then
   begin
   FSocket:=socket(AF_INET,SOCK_STREAM,0);
     if FSocket<>INVALID_SOCKET then
        begin
        addr.sin_port:=htons(port);
          if connect(FSocket,addr,sizeof(addr))=0 then
            begin
            result:=true;
            CloseSocket(FSocket);
            end;
        end;
   end;
 WSACleanup;
end;