试试吧:)Uses WinInet;
function isOnline():boolean;
var ConTypes: longint;
begin
ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN ;
result := InternetGetConnectedState(@ConTypes,0);
end;
function isOnline():boolean;
var ConTypes: longint;
begin
ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN ;
result := InternetGetConnectedState(@ConTypes,0);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货