Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
shilovec5377
29 / 54 / 12
Регистрация: 26.05.2011
Сообщений: 755
1

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

15.04.2012, 19:50. Просмотров 516. Ответов 2
Метки нет (Все метки)

привет всем. есть функция для проверки находится ли комп в сети или нет, но у меня чего-то ругается на переменную ( dwConnectionTypes ), подскажите где ее необходимо объявить и каким типом.

Delphi
1
2
3
4
5
6
// Функция для проверки - в сети ли компьютер ----------------------------------
function IsConnectedToInternet: Boolean;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState (@dwConnectionTypes, 0);
end;
или может у кого есть такие функции или процедуры.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2012, 19:50
Ответы с готовыми решениями:

Как определить папку, в которой находится ехешник сервиса?
Как определить папку, в которой находится ехешник сервиса? При старте сервиса текущая директория...

Как определить номер строки, на которой находится выделенный текст?
Текст выделяется программно так: Memo1.SetFocus(); Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;...

Как определить находится ли TTable в данный момент в режиме Edit Insert?
Привет всем! Возможно ли определить с помощью свойств методов TTable находится ли она в данный...

Как определить, есть ли подключение к сети?
Как определить, есть ли у пользователя подключение к сети Интернет?

Компьютер находится в сети, но не пингуется
ОС: Windows XP Брандмауэр: выкл (других сетевых фильтров нету) Проблема такова что компьютер...

2
19vitek
726 / 402 / 95
Регистрация: 19.12.2010
Сообщений: 756
16.04.2012, 09:53 2
как вариант.
Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
 if GetSystemMetrics(SM_NETWORK) and $01 = $01 then 
    ShowMessage('Подключен к Интернет!!!')
  else
    ShowMessage('Не подключен к Интернет!!!');
end;
1
shilovec5377
29 / 54 / 12
Регистрация: 26.05.2011
Сообщений: 755
16.04.2012, 22:08  [ТС] 3
у меня всегда выводит "('Подключен к Интернет!!!')", ничего другого.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2012, 22:08

Выключить компьютер, который находится в сети
Как программно выключить компьютер который находиться в сети? Зная его мак адрес.

Зная IP компа, как определить, находится ли он в сети
Есть необходимость определить, в сети-ли машина, заня его IP (для локальной сети). Если возможно,...

Определить верхнюю границу цикла, т.е. максимальный номер IP-адреса заданной сети, если компьютер, с которого
Определить верхнюю границу цикла, т.е. максимальный номер IP-адреса заданной сети, если компьютер,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru