подключение к интернету, есть ли? Опции

[kuzyara]

я нашел три способа как проверить подключение к интернету, но все они говорят неправду!!! почему?? может есть какой-нибудь другой способ??


№1

function InetIsOffline(flag: integer): WordBool; stdcall; external 'url.dll';
-------------------------------------------------------------
if InetIsOffline(0)
      then  ShowMessage('This computer is not connected to Internet!')
      else  ShowMessage('You are connected to Internet!');

№2

uses ..., WinInet;
-------------------------------------------------------------
if InternetCheckConnection(nil,$00000001,0)
       then showmessage('est inet')  
       else showmessage('net ineta');

№3

if GetSystemMetrics(SM_NETWORK) and $01 = $01
       then  ShowMessage('Computer is attached to a network!')
       else   ShowMessage('Computer is not attached to a network!');

[мисс_граффити]

Можно же по-простому пинговать несколько сайтов. Если хоть один пакет вернется - все ок.

Я такую штуку делала с помощью компонента Ping библиотеки Internet Component Suite....
Рассказать подробнее?