| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
| |  | | | | ПРОВЕРЯЕМ ПОДКЛЮЧЕНИЕ К СЕТИ ИНТЕРНЕТ | | | | | | В USES необходимо включить модуль Wininet | | | Функция: | | | function isconnected : Boolean ;
var
connectiontype: DWORD ;
begin
connectiontype:=INTERNET_CONNECTION_MODEM // тип соединения
+INTERNET_CONNECTION_LAN
+INTERNET_CONNECTION_PROXY ;
Result:=InternetGetConnectedState(@connectiontype,0);
end; | | | | | | Использование. Поместим на форму TButton и в OnClick запишем следующее: | | | procedure TForm1.Button1Click(Sender: TObject);
begin
if isconnected=true then showmessage('Connected')
else showmessage('No Connection');
end; |
|
