Определение состояние подключения к интернету

function CheckConnected(hInet: HINTERNET; bModem: Boolean): Boolean; var

dwFlags: DWORD;
begin

dwFlags := INTERNET_CONNECTION_MODEM; if not bModem then
dwFlags := dwFlags or INTERNET_CONNECTION_LAN; // <--по вкусу if Assigned(InternetGetConnectedStateProc) then Result := InternetGetConnectedStateProc(@dwFlags, 0) else
Result := True;
end

;

Другое по теме:

• Вызов номеронабирателя
• Автоматически дозвониться по интернет соединению по умолчанию
• Безопастность Dial-up пользователям