Форум: "Начинающим";
Текущий архив: 2007.09.02;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

← →
Lacmus ©   (2007-08-12 18:11) [6]

>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]

> Lavrenty ©   (12.08.07 15:47)  


Воспользуйтесь лучше функцией InternetGetConnectedState

uses
 WinInet;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.09.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.045 c