Главная страница
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.013 c
14-81938
McSimm
2003-08-05 18:11
2003.08.25
Объявление! Проблемы с почтовым ящиком сайта.


1-81651
3APA3A
2003-08-14 00:14
2003.08.25
Rave Report


1-81644
Islander
2003-08-12 12:30
2003.08.25
Защита от клавиатурных шпионов


1-81750
zzet
2003-08-09 11:58
2003.08.25
RxGIFAnimator


1-81749
Goast
2003-08-09 17:16
2003.08.25
Файлы