С++ Builder. Как проверить из программы интернет

[isPolin]

Здравствуйте!

VCL С++ Builder
Как сделать проверку из программы есть ли интеренет или нет в данный момент

[EducatedFool]

Пропингуйте несколько хостов, вероятность доступности которых очень высока.

Мой код Вам, конечно, не подойдёт (он на VB), но я проверяю так:

Function InternetConnectionAvailable() As Boolean
    ' возвращает TRUE, если доступно соединение с Интернетом (пингуются несколько хостов)
    InternetConnectionAvailable = False
    If PingB("93.158.134.11") Then InternetConnectionAvailable = True: Exit Function    ' yandex.ru
    If PingB("213.180.204.8") Then InternetConnectionAvailable = True: Exit Function    ' www.ya.ru
    If PingB("194.67.57.26") Then InternetConnectionAvailable = True: Exit Function    ' www.mail.ru
    If PingB("81.19.70.1") Then InternetConnectionAvailable = True: Exit Function    ' www.rambler.ru
End Function

[isPolin]

А точнее gethostbyname()

Спасибо!