[Medio]Testar conectividade com internet

Declare WinInet na Uses

Adcione 1 Button (Aba Standard) e Adcione o Code:

Código:

---

var
  flags : DWORD;
begin
  // verifica se está conectado a internet usando a API do Windows, é preciso declarar a uses WinInet.
  if not InternetGetConnectedState(@flags, 0) then
        MessageBox(handle, 'Você não está conectado a internet! ', 'Atenção', mb_Ok + mb_IconWarning);
end;

---

Creditos: Saulo Challout
Fonte: Active Delphi