Определить, занят ли порт сокета

Материал из DRKB


var
  SockAddrIn: TSockAddrIn;
  FSocket: TSocket;
begin
  if bind(FSocket, SockAddrIn, SizeOf(SockAddrIn)) <> 0 then
  begin
    // обрабатываем WSAGetLastError
  end;
end;


Source: Взято с http://delphiworld.narod.ru
ID: 03554