Воскресенье, 23.09.2018, 03:28
Приветствую Вас Гость

LabSoft

Меню сайта
Категории каталога
Статьи по кодингу [24]
Материалы по кодингу
КреатиFF [144]
Рассказы, истории, анекдоты...
Разное [8]
Советы, трюки, полезные рекомендации, статьи о новом и забытом старом...
Наш опрос
Чего не хватает на сайте?
Всего ответов: 8
Главная » Статьи » Статьи по кодингу

Online/Offline
//Проверка на наличие соединения с интернетом
function IsOnline: Boolean;
Var
dlvFlag : DWord;
begin
Result:=False;
dlvFlag := Internet_Connection_Modem + Internet_Connection_Lan + Internet_Connection_Proxy;
If InternetGetConnectedState ( @dlvFlag, 0 ) = True Then
Result:=dlvFlag = 81;
End;

//вот собственно и вызов функции
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsOnline=true then showmessage('Есть контакт!') else
showmessage('Связь отсутствует!')
end;

Категория: Статьи по кодингу | Добавил: Jimmy (31.01.2008) | Автор: Unknown
Просмотров: 328 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Имя *:
Email *:
Код *:
Форма входа
Поиск
Друзья сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0