delphi中一段可以判断网络连接的代码


function isConnectNet: Boolean;
var
Types : Integer;
begin
Types := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@types, 0);
end;
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678