Вывести на экран основной шлюз (IP)

#include <winsock.h>
#include <stdio.h>
void __fastcall TForm1::Button1Click(TObject *Sender)
{    WORD wVersionRequested;  
  WSADATA wsaData; 
   wVersionRequested = MAKEWORD(1, 0); 
   int err = WSAStartup(wVersionRequested, &wsaData);
    if(err == 0)  
  {        char hn[1024];
        struct hostent *adr;
        if(gethostname((char *)&hn, 1024))        
 {            int err = WSAGetLastError();
            Beep();
        };
        adr = gethostbyname(hn); 
       if(adr)        {          char *LocalIp = new char[15];
          sprintf(LocalIp,"%d.%d.%d.%d",  
        (unsigned char)adr->h_addr_list[0][0],   
       (unsigned char)adr->h_addr_list[0][1],    
      (unsigned char)adr->h_addr_list[0][2],    
      (unsigned char)adr->h_addr_list[0][3]); 
         Label1->Caption=LocalIp; //Выводим IP адрес      
      }   
   } 
}

ShellExecute(Handle, "open",AnsiString("http://gscan.cgi?freg=" + ComboBox1->Items->Strings[ComboBox1->ItemIndex]).c_str(),0 , 0, SW_SHOWNORMAL); 
 
// либо либо
 
ShellExecute(Handle, "open",AnsiString("http://gscan.cgi?freg=" + ComboBox1->Text).c_str(),0 , 0, SW_SHOWNORMAL);

String Downstream=ComboBox4->Items->Strings[ComboBox4->ItemIndex];

 Downstream= RouterAddress.Insert("http://",0);
ShellExecute(Handle, "open", Downstream.c_str() ,0 , 0, SW_SHOWNORMAL);

void __fastcall TForm1::Label15Click(TObject *Sender)
{
 AnsiString filename = "default.txt"; // куда выводить ipconfig  
    system("nslookup /q > default.txt");
    if(FileExists(filename)) // проверяем наличие файла
    {
        TStringList *list = new TStringList;
        list->LoadFromFile(filename);
        AnsiString temp;
        for(int i = 0; i < list->Count; i++)
        {
            temp = list->Strings[i];
            if(temp.Length() < 10)
            {
                list->Delete(i--); // удаляем пустые строки
            }
          
            else
            {
  list->Strings[i] = temp.SubString(temp.Pos(":") + 1, temp.Length());
          // тут мы имеем строку текст....:000.000.000.000
 // за разделитель разумеется применяем ":", и у нас остается 000.000.000.000
            }
        }
         // удаляем все пробелы в тексте
 list->Text = StringReplace(list->Text, " ", "", TReplaceFlags() << rfReplaceAll);
      
      String RouterAddress = list->Strings[1];
      RouterAddress = RouterAddress.Insert("http://",0);
       ShellExecute(Handle, "open", RouterAddress.c_str() ,0 , 0, SW_SHOWNORMAL);
      }
}
//*****************************************************************************

system(" route print> sss.txt");

system("route print > sss.txt");

AnsiString cmd_text = "route print";
cmd_text += " > \"" + ExtractFilePath(Application->ExeName);
cmd_text += "filename.txt\"";
system(cmd_text.c_str());