紧急求解,如何判断本机处于上网状态!!!(几个函数用过均无法判断),救救我:((200分)

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
ShowMessage('Machine is attached to network')
else
ShowMessage('Machine is not attached to network');
end;

下面的知识值得你去研究：

检测计算机是否联网比较简单的做法可以通过一个 Win32 Internet(WinInet) 函数
InternetCheckConnection来实现；

这个函数的功能是检查是否能够建立 Internet 连接。

它的实现是在 %SystemRoot%/System32/wininet.dll 中，Delphi 调用声明在 WinInet.pas 中，

其 API 声明如下：

BOOL InternetCheckConnection(

IN LPCSTR lpszUrl,

IN DWORD dwFlags,

IN DWORD dwReserved

);

参数的意义是：

lpszUrl： 需要测试能否建立连接的 URL 地址，可以为空；

dwFlags： 目前只能是 FLAG_ICC_FORCE_CONNECTION（这个常量 Delphi 中没有声明，其值为 $00000001）；

dwReserved： 目前只能为 0。

调用的说明：

如果 lpszUrl 是非空的，Windows 从中解析出 Host 名然后 Ping 这个指定的 Host。

如果 lpszUrl 是空的，并且 WinInet 内部服务器的 database 中有一个关于最近的 Server 的纪录，
Windows 就从这条纪录中解析出 Host 名然后 Ping 它。

如果能够成功的连接返回 True，否则返回 False；

以下是一个判断当前计算机是否联网的例子：

procedure TForm1.Button1Click(Sender: TObject);

begin

if InternetCheckConnection('http://www.yahoo.com/', 1, 0) then

edit1.text:= 'Connected'

else

edit1.text:= 'Disconnected';

end;

通过上述的方法只能检测出当前计算机是否物理联网，即网线是否接好，网卡是否能顺利工作，
不能确定是否能够实现获得 Internet 服务，即是否能和 ISP 进行 Internet 连接。

这时可以通过另一个 Win32 Internet(WinInet) 函数 InternetQueryOption 来检测；

这个函数的功能是查询指定 Internet 句柄的状态、选项。

其 API 声明如下：

BOOL InternetQueryOption(

IN HINTERNET hInternet,

IN DWORD dwOption,

OUT LPVOID lpBuffer,

IN OUT LPDWORD lpdwBufferLength

);

参数的意义是：

hInternet：查询对象的 Internet 句柄（全局查询时为 nil），

dwOption：查询的项目；

lpBuffer：返回的查询结果；

lpdwBufferLength：查询结果的字节长度（包括 IN 和 OUT）；

查询成功返回 True，否则返回 False;

我们要查询当前计算机的 Internet 连接状态时可以使用查询项目 INTERNET_OPTION_CONNECTED_STATE，

得到的 ConnectState 返回值可能是以下值的一个或几个值之和：

INTERNET_STATE_CONNECTED ：$00000001 连接状态；

INTERNET_STATE_DISCONNECTED ：$00000002 非连接状态（和 INTERNET_STATE_CONNECTED 对应）；

INTERNET_STATE_DISCONNECTED_BY_USER ：$00000010 用户请求的非连接状态

INTERNET_STATE_IDLE ：$00000100 连接状态，并且空闲

INTERNET_STATE_BUSY ：$00000200 连接状态，正在响应连接请求

以下是一个判断当前计算机是否可以获得 Internet 服务的例子：

function TForm1.CheckOffline: boolean;

var

ConnectState: DWORD;

StateSize: DWORD;

begin

ConnectState:= 0;

StateSize:= SizeOf(ConnectState);

result:= false;

if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize) then

if (ConnectState and INTERNET_STATE_DISCONNECTED) <> 2 then result:= true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if CheckOffline then

edit1.text:= 'Connect To ISP'

else

edit1.text:= 'Disconnect To ISP';

end;

需要说明的是 InternetQueryOption 函数的检测结果只能表明当前的 Internet 设置是可用的，

并不能表示计算机一定能访问 Internet，例如网线掉了，网卡突然坏了之类的错误就没法检测出来，

要想检测当前计算机是否能够获得 Internet 服务了必须两个函数结合起来使用。

最简单的办法，Ping网络上的某一台主机
如果你觉得一台不够保险，可以PING多台嘛，只要任一台PING通就说明能上网了！
至于PING的源码，在论坛上找找吧，我就不贴了。

if not InternetGetConnectedState(@types, 0) then
begin
showmessage('本电脑没有联网!');
end;

Windows中，如果安装了拨号网络，那么在系统目录下，就有两个拨号网络管理程序库
RasApi32.dll和RasApi16.dll，可以利用其中的函数获取拨号信息
function RasenumConnections;externa;'reasapi32.dll' nameRasEnumconnectionsA'
function RasenumConnections(var lprasconn:RASCONN;var lpcbWORD;
var lpcConnectionsWORD//有效的连接数
)WORD;stdcall;
返回0时表示成功，不然就为错误代码；
可以用得到已经建立的连接信息，包括连接设备名称，数量，类型，连接句柄
Type
RASCON=record
dwsizeWORD;
hrasconnWORD;//活动连接句柄
szEntryName:array[0..256]of char;//....名称
szDerviceType:array[0..16]of char;//....设备类型
szDerviceName:array[0..128]of char;//....设备名称
end;
var
connections[0..4]of RASCON;
//拨号连接数组，假设最多为5个。
ConIndex:Integer;
longsize,intAvailabelConnectionsWORD;
TmpStr:String;
begin
connections[0].dwsize:=sizeof(RASCONN);
longsize:=5*connections[0].dwsize; //接收缓冲区大小
intAvailabelConnections:=0;
dwResult:=RasEnumConnections(connections[0].longSize,intAvailabelConnections);
//获取活动的拨号连接信息
if dwResult<>0 then
ShowMessage('Error'+inttostr(dwResult))
else
begin
tmpstr:='活动连接：'+inttostr(intAvailabelConnections);
for ConIndex:=0 to intAvailabelConnections then
begin
tmpstr:=tmpstr+'连接名称：'+StrPas(connections[].szEntryName)
+#13+'设备类型：'+StrPas(connections[].szDerviceType)
+#13+设备名称：''+StrPas(connections[].szDerviceName)；
end;
ShowMessage(TmpStr);
end;
end;

大家的方法我以前大部分均已用过，liuql188和xianjun的方法后来试了，也不成功。
不是说大家的方法错误，而是这些方法无法判断ADSL的拨号上网，因为用该设备上网
是无须去Windows的拨号设置里建立连接的。
用ping的方法的话，当我使用代理服务器的时候，可以浏览网址，但却是PING不到该网址
的。
再次请大家注意我的机器环境，ADSL上网，处于NT局域网内，并设置了代理服务器。
但是大家的建议我都表示感谢。另外我发现有一控件webcopy，有一事件onURLNotFound
不知道如何使用，如果当触发该事件时提示没有上网不知效果如何，但不知怎么写该事件
有那位大侠用过，还请指点一二[red][/red]

看来是没人能解答了,算了
放分了
第一次的问题无疾而终

不知道你有没有订阅邮件，我没有订阅，所以 碰碰运气啦。
不知道你解决没有，尝试从注册表得到点什么吧，因为为软的东西，很多在发生变化
的时候都都去动注册表的。
我没有用宽带，但是，如果你找不到，建议你找个软件：
可以对注册表进行“照相”你首先短开连接，然后获得照相，在连上，在照一次，
然后比较，多做几次就知道在什么位置了，我估计这样可以解决。
祝你好运了~！（这也算你的20分没百拿）