Fórum Como detectar se o pc está conectado a internet? #323536

function TfFrmDcErro.RasConnectionCount: Boolean;
var
  Flags: dword;
  X: dword;
begin
  X := 0; // este valor deve ser zero senão falha
  if InternetGetConnectedState(@Flags, X) then
  begin
    if (Flags and INTERNET_CONNECTION_MODEM) <> 0 then
      ShowMessage(´discada/banda larga´)
    else if (Flags and INTERNET_CONNECTION_LAN) <> 0 then
      ShowMessage(´rede local)´
    else if (Flags and INTERNET_CONNECTION_PROXY) <> 0 then
      ShowMessage(´proxy´);

    Result := True;
  end
  else
    Result := False;
end;

if RasConnectionCount then
  //faz o que precisar.