02.11.2006, 11:16
|
|
Banned
Регистрация: 01.08.2006
Сообщений: 725
Провел на форуме:
7681825
Репутация:
4451
|
|
Код:
InternetGetConnectedState(@flags,0);
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN
Зачем так усложнять
Код:
var Flag :DWord; isLan:Boolean;
begin
Flag := INTERNET_CONNECTION_LAN;
isLan := InternetGetConnectedState(@Flag,0);
case isLan of
true : ShowMessage('Connected');
false : ShowMessage('disConnected');
Код:
if GetSystemMetrics(SM_NETWORK) and $01 = $01 then MessageBoxA(0,'LAN Connection','lan',0);
Вообще непонятная функция,вернет true если подключено любое сетевое устройство,справка тоже ничего хорошего нам не говорит
Можно еще так
Код:
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL'
Но это уже к интернету %) |
|
|