if GetSystemMetrics(SM_NETWORK) AND $01 = $01
then Result:= True
else Result:= False;
Использование функции GetSystemMetrics
Привет!
Сразу к делу.
Я использую функцию GetSystemMetrics для проверки подключения к локальной сети.
Т.е. пытаюсь обнаружить наличие подключения к сети (локалке)
Имеется такой код:
Здесь проверяю параметры системы, если есть сеть то True нет False.
Дело в том, что GetSystemMetrics(SM_NETWORK) у меня возвращает значение равное 3 и данное условие по любому будет равно 1 (True). (В Help'e ничего толкового не нашел). Везде где не спросишь про подключение к локалке указывают на один и тот же код (приведенный выше). Так вот, как же все-таки работает функция GetSystemMetrics и как с ее помощью проверить наличие сети.
Можно конечно и другими способами проверить наличие подключения к сети, но хотелось бы пойти более коротким путем.
Сразу к делу.
Я использую функцию GetSystemMetrics для проверки подключения к локальной сети.
Т.е. пытаюсь обнаружить наличие подключения к сети (локалке)
Имеется такой код:
Код:
Здесь проверяю параметры системы, если есть сеть то True нет False.
Дело в том, что GetSystemMetrics(SM_NETWORK) у меня возвращает значение равное 3 и данное условие по любому будет равно 1 (True). (В Help'e ничего толкового не нашел). Везде где не спросишь про подключение к локалке указывают на один и тот же код (приведенный выше). Так вот, как же все-таки работает функция GetSystemMetrics и как с ее помощью проверить наличие сети.
Можно конечно и другими способами проверить наличие подключения к сети, но хотелось бы пойти более коротким путем.
Так и работает.Читай по ссылке у меня в подписи про эту функцию,там найдёшь описание к константе
Не понимаю,чем тебя не устраивает эта функция…Ну если не устраивает,используй IsNetworkAlive(описание там же)
Не понимаю,чем тебя не устраивает эта функция…Ну если не устраивает,используй IsNetworkAlive(описание там же)
GetSystemNetwork возвращает истину, если присутствует сетевой адаптер и он включен. Т.е. неважно есть ли соединение или нет.
И еще... Лучше избавиться от конструкции if, если в ней простая установка значения булевой переменной:
И еще... Лучше избавиться от конструкции if, если в ней простая установка значения булевой переменной:
Код:
Result := GetSystemMetrics(SM_NETWORK) and $01 = $01;