Проверка подключения к сети

← →
evgeniy55 (2004-01-21 07:37) [0]

Здравствуйте!
Как в Win 2000 узнать подключен сетевой кабель или нет,
Пример этого кода показывает что подключение к сети есть но на самом деле его нет т.к. кабель отключен

procedure TForm1.Button1Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
ShowMessage("Computer is attached to a network!")
else
ShowMessage("Computer is not attached to a network!");
end;

может будут другие идеи? готов выслушать.
Огромное всем спасибо.

← →
Verg © (2004-01-21 09:59) [1]

GetIfTable из iphlpapi.dll

Поле dwOperStatus в записи для каждого ин-фейса (сетевой карты), полученой таблицы, отображает оперативный статус:

#define MIB_IF_OPER_STATUS_NON_OPERATIONAL 0 #define MIB_IF_OPER_STATUS_UNREACHABLE 1 #define MIB_IF_OPER_STATUS_DISCONNECTED 2 #define MIB_IF_OPER_STATUS_CONNECTING 3 #define MIB_IF_OPER_STATUS_CONNECTED 4 #define MIB_IF_OPER_STATUS_OPERATIONAL 5

← →
S@shka © (2004-01-21 10:46) [2]

Послыаешь PING
PIng проходит - значит компутер подключен к сети

← →
evgeniy55 (2004-01-22 05:35) [3]

Извините а примерчик моно?

> evgeniy55 (22.01.04 05:35) [3]
> Извините а примерчик моно?

На С сойдет?

http://www.delphimaster.ru/articles/netmon/index.html

В предпоследней главе примерчик...

Проверка подключения к сети Найти похожие ветки