Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

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


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;

 

Добавить комментарий


Защитный код
Обновить