procedure TForm1.Button1Click(Sender: TObject); begin if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then ShowMessage('Machine is attached to network') else ShowMessage('Machine is not attached to network'); end;
来晚了, Naughtyboy 说的对!
我就怎么不行呀, 我拨掉网线,它也执行ShowMessage('Machine is attached to network') 这句!为什么?
{================================================================= 功 能: 检测计算机是否上网 参 数: 无 返回值: 成功: True 失败: False; 备 注: uses Wininet 版 本: 1.0 2002/10/07 13:33:00 =================================================================} function InternetConnected: Boolean; const // local system uses a modem to connect to the Internet. INTERNET_CONNECTION_MODEM = 1; // local system uses a local area network to connect to the Internet. INTERNET_CONNECTION_LAN = 2; // local system uses a proxy server to connect to the Internet. INTERNET_CONNECTION_PROXY = 4; // local system's modem is busy with a non-Internet connection. INTERNET_CONNECTION_MODEM_BUSY = 8; var dwConnectionTypes : DWORD; begin dwConnectionTypes := INTERNET_CONNECTION_MODEM+ INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; Result := InternetGetConnectedState(@dwConnectionTypes, 0); end; ————————————————————————————————— ┏━★━━◆━━★━┓ ♂欢|◢CSDN◣|使♂ ┃迎|◥论坛助手◤|用┃ ┗━☆━━◇━━━☆┛ 让你更快,更爽,更方便地上CSDN... http://www.chinaok.net/csdn/csdn.zip
GZGZGZGZ GZGZGZGZ GZGZGZGZGZGZGZGZGZGZ
GZGZGZ GZGZ GZGZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ GZGZGZGZ
GZGZGZ GZGZ GZGZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ GZGZGZGZ
GZGZGZ GZGZ GZGZGZGZGZGZGZGZGZ
GZGZGZ GZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ
GZGZ GZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ
GZGZGZ GZGZ GZGZGZ
GZGZGZGZGZGZ GZGZGZGZGZGZGZ
begin
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
ShowMessage('Machine is attached to network') else
ShowMessage('Machine is not attached to network');
end;
Naughtyboy 说的对!
我拨掉网线,它也执行ShowMessage('Machine is attached to network') 这句!为什么?
功 能: 检测计算机是否上网
参 数: 无
返回值: 成功: True 失败: False;
备 注: uses Wininet
版 本:
1.0 2002/10/07 13:33:00
=================================================================}
function InternetConnected: Boolean;
const
// local system uses a modem to connect to the Internet.
INTERNET_CONNECTION_MODEM = 1;
// local system uses a local area network to connect to the Internet.
INTERNET_CONNECTION_LAN = 2;
// local system uses a proxy server to connect to the Internet.
INTERNET_CONNECTION_PROXY = 4;
// local system's modem is busy with a non-Internet connection.
INTERNET_CONNECTION_MODEM_BUSY = 8;
var
dwConnectionTypes : DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM+ INTERNET_CONNECTION_LAN
+ INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
—————————————————————————————————
┏━★━━◆━━★━┓
♂欢|◢CSDN◣|使♂
┃迎|◥论坛助手◤|用┃
┗━☆━━◇━━━☆┛
让你更快,更爽,更方便地上CSDN...
http://www.chinaok.net/csdn/csdn.zip