Форум: "Сети";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
ВнизКак узнать подключон компютер к интернету в данный момент Найти похожие ветки
← →
Dabus (2001-11-04 20:46) [5]Я попробовал всякие там внешние процедуры из URL.DLL и WININET.DLL -
Скажем URL работать не захотела, а в WININET листинга лишнего много.
Ну полез в реестр. Там ключ есть, он указывает на наличе соединения
Dial-Up. (Если это конечно кому-то поможет. Лично мне помогло!)
var:
i_connected: byte;
r0: TRegistry;
...
...
r0 := TRegistry.Create;
r0.RootKey := HKEY_LOCAL_MACHINE;
r0.OpenKey("System\CurrentControlSet\Services\RemoteAccess", False);
r0.ReadBinaryData("Remote Connection",i_connected,SizeOf(i_connected));
r0.Free;
// i_connected=0 нет связи /=1 есть связь
Кстати. Сайты бывает молчат, особенно популярные. Так-что Ping не выход.
Успехов.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c