请各位高手指教：怎样用程序的方法判断本地计算机是否在上网？

Question

我的思路是获取Windows的上网的进程(小猫或ADSL)，但不知道那个是(名称)？Win98和Win2000和WinXP的进程名都一样么？那位高手可以给出一个实例程序？

Answer 1

if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then //如何判断拨号网络是开还是关
showmessage('在线!')
else showmessage('不在线!');

Answer 2

判断机器是否网络状态
uses WinInet;
procedure TForm1.Button1Click(Sender: TObject);
  function GetOnlineStatus : Boolean;
  var ConTypes : Integer;
  begin
    ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
    if (InternetGetConnectedState(@ConTypes, 0) = False)
     then Result := False
     else Result := True;
  end;
begin
 if not GetOnlineStatus then ShowMessage('Not Connected');
end;