Решил я написать прожку, что б она постоянно мониторила соединение с интернет. А то, соединяет Админ когда захочет, а я вхожу уже через локалку. Каждый раз браузер запускать для проверки как-то надоело, вот и хочу такую вещь сделать, что б спокойно в трее сидела и мигала когда появляется доступ в инет. Так вот, вопрос, через, что и как проверять соединение с интернетом через локальную сеть?
PS Miranda, например, если напрямую (дома я соединяюсь без локалки) четко отслеживает соединение, а вот через локалку не хочет (всегда онлайн).

вот пример из MSDN, есесно на C++:

Код

if (InternetGetConnectedState(...) == FALSE) {    // Don't attempt connection or it will bring up the dialog    ... } else {    //Attempt connection    if (InternetOpenURL(...) == NULL)    {        // Call failed        err = GetLastError();        if ((err == ERROR_INTERNET_NAME_NOT_RESOLVED) ||            (err == ERROR_INTERNET_CANNOT_CONNECT) ||            (err == ERROR_INTERNET_TIMEOUT))        {            // probably not connected...handle appropriately            ...        }    }    // We're connected!!!    .... }

можно просто через сокет пытаться законнектится, скажем, к mail.ru

cully, thinks. Только теперь, может кто укажет мне аналоги приведенных сишных ф-ций на дельфях (ну, или, на худой кОнец, неполенится реализовать в виде ф-ции и скинуть в виде DLL)?

Код

uses WinInet; function CheckHTTPConnect(host: String): Boolean; var  hinet: Pointer;  hhost: Pointer;  hreq: Pointer; begin  Result := False;  hinet := InternetOpen('connection checker', 0, nil, nil, 0);  if hinet <> nil then begin    hhost := InternetConnect(hinet, PChar(host), 80, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);    if hhost <> nil then begin      hreq := HttpOpenRequest(hhost, 'HEAD', nil, nil, nil, nil, INTERNET_FLAG_RELOAD or INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_DONT_CACHE, 1);      if hreq <> nil then begin        Result := HttpSendRequest(hreq, nil, 0, nil, 0);        InternetCloseHandle(hreq);      end;      InternetCloseHandle(hhost);    end;    InternetCloseHandle(hinet);  end; end; procedure TForm1.Button1Click(Sender: TObject); begin  if CheckHTTPConnect('mail.ru') then    ShowMessage('Yeahh!'); end;

это скорее проверка работоспособности HTTP протокола, чем просто наличия интернета

Класс, работает, только тормознуто. Так то же сойдет, но просто хотелось бы узнать, а можно отловить собственно событие коннекта с провайдером на другом компьютере локальной сети (там XP стоит)?

Для этого, наверно, придется писать небольшую прогу и вешать на каждый комп, что бы за коннектом следила и посылала уведомления.

Хе-хе, щас, даст мне админ на свой компьютер резидента поставить, который будет у него инфу собирать и мне отсылать. В том-то и фишка, что это надо делать тихо и незаметно (а то и по шеям получить можно )