Понедельник, 20.05.2024, 09:36
Приветствую Вас Гость

LabSoft

Главная | Каталог статей | Регистрация | Вход | RSS
Меню сайта
Категории каталога
Статьи по кодингу [24]
Материалы по кодингу
КреатиFF [144]
Рассказы, истории, анекдоты...
Разное [8]
Советы, трюки, полезные рекомендации, статьи о новом и забытом старом...
Наш опрос
Оцените сайт:
Результаты | Архив опросов
Всего ответов: 19
Главная » Статьи » Статьи по кодингу
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
Просмотров: 569 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Имя *:
Email *:
Код *:
Форма входа
Поиск
Друзья сайта
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0