Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.02;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
15-1185953843
Bless
2007-08-01 11:37
2007.09.02
задачка об обходе шахматной доски конем.


8-1164454425
Vulix
2006-11-25 14:33
2007.09.02
Наложение прозрачного изображения с помощью маски


15-1186046187
ISP
2007-08-02 13:16
2007.09.02
Google


8-1164713466
Tar I
2006-11-28 14:31
2007.09.02
Вывод графики поверх видео


15-1186155796
@!!ex
2007-08-03 19:43
2007.09.02
Как считать блик?