//--------------------------------------------------
DWORD GetNetMask(DWORD &ip, DWORD &mask){
// возвращает диагностику (NO_ERROR - без ошибок)
AnsiString s;
MIB_IPADDRTABLE  *pIPAddrTable;
DWORD            dwSize = 0;
DWORD            dwRetVal=NO_ERROR;

pIPAddrTable = (MIB_IPADDRTABLE*) malloc( sizeof(MIB_IPADDRTABLE) );
if (GetIpAddrTable(pIPAddrTable, &dwSize, 0) == ERROR_INSUFFICIENT_BUFFER) {
	free( pIPAddrTable );
	pIPAddrTable = (MIB_IPADDRTABLE *) malloc ( dwSize );
}
if ( (dwRetVal = GetIpAddrTable( pIPAddrTable, &dwSize, 0 )) != NO_ERROR ) {
	return dwRetVal;
}
if (pIPAddrTable)
		free(pIPAddrTable);
mask=pIPAddrTable->table[0].dwMask;
ip=pIPAddrTable->table[0].dwAddr;
return dwRetVal;
}