====== Как проверить соединение с интернетом ? ======

**Автор**: //Vitaly Zayko//

Часто приложению, которое работает в интернете, требуется знать, подключён пользователь к интернету или нет. Предлагаю Вам довольно гибкое решение этого вопроса.

Совместимость: Delphi 3.x (или выше)

Для работы Вам необходимо импортировать функцию //InetIsOffline// из URL.DLL:

<code delphi>function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';</code>

а затем поместить в программу простой вызов функции для проверки статуса соединения:
<code delphi>
if InetIsOffline(0) then
   ShowMessage('This computer is not connected to Internet!')
else
   ShowMessage(You are connected to Internet!');
</code>

Эта функция возвращает TRUE если соединение с интернетов отсутствует, или FALSE если соединение установлено.

== Замечание: ==

параметр Flag игнорируется, соответственно используем ноль.
Эта DLL обычно проинсталлирована на большинстве компьютеров. Она также существует в Win98 либо поставляется с Internet Explorer 4 или выше, Office 97 и т.д..

Более подробно можно прочитать в MSDN. Оригинал: [[http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/inetisoffline.asp|InetIsOffline Function]]