Подключение к сети

← →
Lavrenty © (2007-08-12 15:47) [0]

Здравствуйте все! Нашёл функцию для проверки подключения к сети, но почему-то она не срабатывает. Подскажите пожалуйста, в чём дело.
if not GetSystemMetrics(SM_NETWORK) AND $01 = $01 then begin Application.MessageBox("Computer is not attached to network !", "Error", MB_OK+MB_ICONASTERISK); exit; end;

← →
DrPass © (2007-08-12 16:03) [1]

not (GetSystemMetrics(SM_NETWORK) AND $01 = $01)

← →
Lavrenty © (2007-08-12 16:06) [2]

> not (GetSystemMetrics(SM_NETWORK) AND $01 = $01)

проверил. Не помогает.

← →
Anatoly Podgoretsky © (2007-08-12 16:31) [3]

> Lavrenty (12.08.2007 16:06:02) [2]

Что возвращает функция?

← →
Lavrenty © (2007-08-12 16:34) [4]

> Что возвращает функция?

Ничего. Никакой реакции. Просто обходится (F8) и всё

← →
Anatoly Podgoretsky © (2007-08-12 17:06) [5]

> Lavrenty (12.08.2007 16:34:04) [4]

Хочешь побить лавры железного орла?

>Lavrenty ©

function IsNetworkAlive(var aFlags: DWord): Bool; stdcall; external "Sensapi.dll"; procedure TForm33.Button3Click(Sender: TObject); var dwFlags: DWord; begin if IsNetworkAlive(dwFlags) then ShowMessage("OK") else ShowMessage("Fail") end;

← →
WASM (2007-08-12 18:18) [7]

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