怎样判断当前是否连在Internet上？

Question

怎样判断当前是否连在Internet上？

Answer 1

Function ConnectionKind :String;
var
  flags: dword;
  Text:string;
  Re:boolean;
begin
  Re := InternetGetConnectedState(@flags, 0);
  if Re then
  begin
    if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
    begin
      Text:='Modem';
    end;
    if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
    begin
      Text:='LAN';
    end;
    if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
    begin
      Text:='Proxy';
    end;
    if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
    begin
      Text:='Modem Busy';
    end;
    Result:=Text;
  end;
end;
你试试看

Answer 2

发错了，这是判断何种方式上网的，应该是这样
function InternetConnected: Boolean;
var
  dwConnectionTypes : DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM+ INTERNET_CONNECTION_LAN
  + INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;