Форум: "Сети";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
ВнизКак узнать тип соединения с Интернетом: сеть или модем Найти похожие ветки
← →
-= Demon =- (2003-06-18 17:29) [0]Можно ли различить, какое в данный момент подключение к Интернету: по локальной сети или модемное? Функции InternetGetConnectedState абсолютно все равно, какое оно, гланое что есть.
← →
k$v (2003-06-18 19:43) [1]Вот ... наверное можно приспособить... кажется где-то на этом сервере брал...
unit connectinet;
interface
uses Windows;{ Flags for InternetGetConnectedState }
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
const
winetdll = "wininet.dll";
function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL;
stdcall;
external winetdll name "InternetGetConnectedState";
function InternetConnected: Boolean;
implementation
function InternetConnected: Boolean;
var dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
( @dwConnectionTypes, 0)Вот ... наверное можно приспособить... кажется где-то на этом сервере брал...
unit connectinet;
interface
uses Windows;{ Flags for InternetGetConnectedState }
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
const
winetdll = "wininet.dll";
function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL;
stdcall;
external winetdll name "InternetGetConnectedState";
function InternetConnected: Boolean;
implementation
function InternetConnected: Boolean;
var dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
end.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.015 c