[Drongo]

ganselo, Да, с этим скомпилировалось без ошибок. Но в любом случае, хоть есть подключение, хоть его нету, функция показывает сообщение - Инет работает. Прочитал MSDN с переводчиком, но вроде бы всё сделал как рекомендовалось.

Код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if(!CheckConnection()) {
      MessageBox(0, "Отсутствует соединение с интернетом", "Внимание", MB_OK + MB_ICONWARNING);
     }
   else
      Label1->Caption = "Инет работает!!!";
}