Subnetmask bzw. Broadcastadresse ermitteln

[Poolspieler]

Hallo,
ich will mit einem TIdUDPClient an die Broadcastadresse (NICHT Multicast) aller Netzwerk-Interfaces des PCs Daten verschicken.

Mit

Delphi-Quellcode:

uses
  WinSock;

function GetLocalIPs: string;
type
  PPInAddr = ^PInAddr;
var
  wsadata : TWSAData;
  hostinfo : PHostEnt;
  addr : PPInAddr;
begin
  Result := '';

  if(WSAStartUp(MAKEWORD(1,1),wsadata) = 0) then
  try
    hostinfo := gethostbyname(nil);
    if(hostinfo <> nil) then begin
      addr := pointer(hostinfo^.h_addr_list);

      while(addr^ <> nil) do begin
        Result := Result + inet_ntoa(addr^^) + ^M^J;
        inc(addr);
      end;
    end;
  finally
    WSACleanUp;
  end;
end;

(aus Thread http://www.delphipraxis.net/2651-lok...ermitteln.html)

--> kann man alle lokalen IPs ermitteln. Wenn ich jetzt dazu jeweils noch die Subnetmask bekäme, dann wäre ich glücklich. Dann könnte ich nämlich die Broadcastadressen berechnen...

Kann mir jemand helfen?

Gruß,

Poolspieler