Есть ли связь с Интернет?

Тема в разделе "Delphi", создана пользователем WinHack, 2 дек 2016.

  1. WinHack
    Для того, чтобы проверить, подключен ли Интернет, используйте следующий код:

    Код:
    procedure TForm1.Button1Click(Sender: TObject) ;
    
      function FuncAvail(_dllname, _funcname: string;
                         var _p: pointer): boolean;
      { возвращает True, если _funcname существует в _dllname }
      var _lib: tHandle;
      begin
       Result := false;
       if LoadLibrary(PChar(_dllname)) = 0 then exit;
       _lib := GetModuleHandle(PChar(_dllname)) ;
       if _lib <> 0 then begin
        _p := GetProcAddress(_lib, PChar(_funcname)) ;
        if _p <> NIL then Result := true;
       end;
      end;
    
      {
       Вызываем SHELL32.DLL для Win < Win98
       иначе вызываем URL.dll
      }
      { код кнопки: }
      var
       InetIsOffline : function(dwFlags: DWORD):
                       BOOL; stdcall;
      begin
       if FuncAvail('URL.DLL', 'InetIsOffline',
                    @InetIsOffline) then
        if InetIsOffLine(0) = true
         then ShowMessage('Not connected')
         else ShowMessage('Connected!') ;
      end;