[MULTILENGUAJE] Obtener la dirección Broadcast de una red

uses
  Windows, WinSock...;
 
type
TMIB_IPADDRROW = packed record
  dwAddr: DWORD;
  dwIndex: DWORD;
  dwMask: DWORD;
  dwBCastAddr: DWORD;
  dwReasmSize: DWORD;
  unused1: SmallInt;
  wType: SmallInt;
end;
 
TMIB_IPADDRTABLE = record
  dwNumEntries: DWORD;
  table: array[0..0] of TMIB_IPADDRROW;
end;
PMIB_IPADDRTABLE = ^TMIB_IPADDRTABLE;
 
function GetIpAddrTable(IpAddrTable: PMIB_IPADDRTABLE; pdwSize: PULONG;
  Order: BOOL): DWORD; stdcall; external 'iphlpapi.dll' name 'GetIpAddrTable';
 
implementation
 
function GetCurrentIP: DWORD;
var
  Wsa: WSADATA;
  Name: array[0..255] of char;
  hostinfo: PHOSTENT;
begin
  Result:= 0;
  FillChar(Wsa, SizeOf(WSAData), 0);
  if WSAStartup(MAKEWORD(2, 2), Wsa) = 0 then
  begin
    if gethostname(Name, SizeOf(Name)) = 0 then
    begin
      hostinfo:= gethostbyname(Name);
      if hostinfo <> nil then
        Result:= PDWORD(hostinfo^.h_addr_list^)^;
    WSACleanup;
    end;
  end;
end; 
 
function GetBrodcastAddress: String;
var
  pIPAddrTable: PMIB_IPADDRTABLE;
  dwSize: DWORD;
  i: integer;
  BroadCastInAddr: IN_ADDR;
begin
  BroadCastInAddr.S_addr:= 0;
  dwSize:= 0;
  GetIpAddrTable(nil, @dwSize, true);
  GetMem(pIPAddrTable, dwSize);
  if pIPAddrTable<>nil then
  begin
    if GetIpAddrTable(pIPAddrTable, @dwSize, true) = NO_ERROR then
      for i:=0 to  pIPAddrTable^.dwNumEntries-1 do
      begin
        if GetCurrentIP = pIPAddrTable^.table[i].dwAddr then
        begin
          BroadCastInAddr.S_addr:= pIPAddrTable^.table[i].dwAddr or not pIPAddrTable^.table[i].dwMask;
          break;
        end;
      end;
    FreeMem(pIPAddrTable);
  end;
  Result:= inet_ntoa(BroadCastInAddr);
end;

#include <windows.h>
#include <winsock2.h>
#include <iphlpapi.h>
 
#pragma comment(lib, "iphlpapi.lib")
 
String GetBroadcastAddressString()
{
  IN_ADDR BroadCastInAddr;
  PMIB_IPADDRTABLE pIPAddrTable;
  DWORD dwSize = 0;
  WSADATA Wsa;
  PHOSTENT hostinfo;
  DWORD CurrentIP = 0;
  char Name[MAX_PATH];
 
  BroadCastInAddr.S_un.S_addr = 0;
 
  if(WSAStartup(MAKEWORD(2,2),&Wsa) == 0){
    if(gethostname(Name, MAX_PATH) == 0){
      if((hostinfo = gethostbyname(Name)) != NULL)
        CurrentIP = *(DWORD*)*hostinfo->h_addr_list;
    }
    WSACleanup( );
  }
  GetIpAddrTable(0, &dwSize, 0);
  pIPAddrTable = (MIB_IPADDRTABLE*)malloc(dwSize);
  if(pIPAddrTable){
    if(GetIpAddrTable(pIPAddrTable, &dwSize, 0) == NO_ERROR){
      for(int i=0; i < (int)pIPAddrTable->dwNumEntries; i++){
        if(CurrentIP == pIPAddrTable->table[i].dwAddr)
          BroadCastInAddr.S_un.S_addr = pIPAddrTable->table[i].dwAddr | ~pIPAddrTable->table[i].dwMask;
      }
    }
    free(pIPAddrTable);
  }
  return inet_ntoa(BroadCastInAddr);
}