Обращение к DNS - серверу

int get_addr(char *host_name)
{
    int res = -1;
 
    HOSTENT *phe = gethostbyname(host_name);
    if (phe)
        for (int i = 0; i < 4; i++)
            ((BYTE *)&res)[i] = phe->h_addr_list[0][i];
 
    return res;
}
 
    in_addr addr;
    addr.S_un.S_addr = get_addr(host_name);
    char *ip = inet_ntoa(addr);

#include <Windns.h>
#pragma comment (lib, "Dnsapi.lib")
 
        DNS_STATUS Status;
        PIP4_ARRAY SrvList = NULL;
        PDNS_RECORD DnsRecord;
        IN_ADDR ipaddr;
 
        SrvList = (PIP4_ARRAY) LocalAlloc(LPTR,sizeof(IP4_ARRAY));
        SrvList->AddrCount = 1;
        SrvList->AddrArray[0] = inet_addr("000.000.000.000"); // Тут задаем IP - адрес DNS - сервера
 
        Status = DnsQuery(L"google.ru", // Тут задаем адрес хоста, который надо преобразовать
                          DNS_TYPE_A,
                          DNS_QUERY_BYPASS_CACHE,
                          SrvList,
                          &DnsRecord,
                          NULL);
 
        if (Status){
            Form1->Memo1->Lines->Add("Error dns");
        } else {
            ipaddr.S_un.S_addr = (DnsRecord->Data.A.IpAddress);
            Form1->Memo1->Lines->Add(inet_ntoa(ipaddr));
            DnsRecordListFree(DnsRecord, freetype);
        }
        LocalFree(SrvList);