如何使用ＤＥＬＰＨＩ编程得知机器能否上网？(50分)

如何使用ＤＥＬＰＨＩ编程得知机器能否上网？

我也有个相同的问题 和他类似但我只需要判定能不能ping上代理或者能不能连接到代理就可以了。能不能给个最简单的判定方法 比如像dos下的
IF EXIST "//192.168.0.9/z$/dferror.bat"
IF Errorlevel 1 goto 有这个文件跳至

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;