[DELPHI] VERIFICAR SE ESTÁ CONECTADO À INTERNET

//uses WinInet e Windows

procedure TForm1.Button1Click(Sender: TObject); 

var

  dwConnectionTypes: DWORD;

begin

  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;

  if (InternetGetConnectedState(@dwConnectionTypes, 0)) then

    ShowMessage('Conectado!')

  else

    ShowMessage('Desconectado!');

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】