Определить, есть ли активное соединение с Интернетом

Советы » Интернет » Определить, есть ли активное соединение с Интернетом

{Static linking. }
 uses


   WinInet;

 {...}
 function

IsConnectedToInternet: Boolean;  var


   dwConnectionTypes: DWORD;  begin


   dwConnectionTypes :=      INTERNET_CONNECTION_MODEM +      INTERNET_CONNECTION_LAN +      INTERNET_CONNECTION_PROXY;    Result := InternetGetConnectedState(@dwConnectionTypes, 0);  end

;

 procedure

TForm1.Button1Click(Sender: TObject);  begin


   if

IsConnectedToInternet then

     ShowMessage('Connected.')    else

     ShowMessage('Not Connected.')  end

;
 

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com