Модератор: Модераторы
Function InternetConnected: Boolean;
Var
      dwConnectionTypes : DWORD;
Begin
      dwConnectionTypes :=
      INTERNET_CONNECTION_MODEM +
      INTERNET_CONNECTION_LAN +
      INTERNET_CONNECTION_PROXY;
      Result := InternetGetConnectedState(@dwConnectionTypes,0);
End; 
ViruZ писал(а):подключение по ADSL
ViruZ писал(а):если нет то подключать


Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1