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

Вниз

Как узнать тип соединения с Интернетом: сеть или модем   Найти похожие ветки 

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

Наверх




Память: 0.47 MB
Время: 0.026 c
1-81752
Yanis
2003-08-09 17:18
2003.08.25
Hint


7-81970
Фагот
2003-06-09 19:59
2003.08.25
CD-ROM


6-81855
BJValentine
2003-06-17 16:28
2003.08.25
Сокеты Windows


14-81889
Шишкин Илья
2003-08-01 09:59
2003.08.25
Вопрос по BASS


14-81945
Nucl
2003-08-06 23:57
2003.08.25
Обновления на Delphi 7