我也只知道InternetCheckConnection, 如果是電腦沒有連到InterNet 的話,一般要3--5秒鐘才會知道,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;上面函數也能判斷自已的電腦是否連到網絡,是局域網也返為真.速度極快
InternetCheckConnection
如果是電腦沒有連到InterNet 的話,一般要3--5秒鐘才會知道,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;上面函數也能判斷自已的電腦是否連到網絡,是局域網也返為真.速度極快