查询网络状态

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;

使用方法：

procedure TForm1.Button10Click(Sender: TObject);begin  if not GetOnlineStatus then  begin    showmessage('网络连接失败');  end  else begin    lblmsg.Caption :='网络连接正常。。。';  end;end;

InternetGetConnedctedState 百度百科解释：http://baike.baidu.com/view/3151464.htm