请问什么函数可以判断无线3g已经接入internet
本人之前一直用WININET.DLL提供的InternetCheckConnection或InternetGetConnectedState来判断，但是用这个来判断无线3g就永远失败。请问是否还有别的方法。
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: Integer;
begin
try
dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
// if InternetCheckConnection('http://www.sina.com.cn',1,0) then
if InternetGetConnectedState(@dwConnectionTypes, 0) then
Result := true
else
begin
if InternetCheckConnection('http://www.qq.com',1,0) then
Result := true
else
Result := false;
end;
except
Result := false;
end;
end;

这个是我用的函数，用于判断普通的网络连接没问题，但是3g就不行


[解决办法]
ping www.google.com，检测是否有正确的回应报文。
[解决办法]
ping baidu.com

google有时会被和谐~你懂得~