Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Delphi - Comunicação e Internet

Como verificar se o computador está conectado à Internet?

Banner
A função abaixo retorna true se estiver conectado e false 
caso contrário.

function RemoteConnection: boolean;
const
  Key = '\System\CurrentControlSet\Services\RemoteAccess';
  Value = 'Remote Connection';
var
  Reg: TRegistry;
  Buffer: DWord;
begin
  Result := false;

  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey(Key, false) then
    begin
      Reg.ReadBinaryData(Value, Buffer, SizeOf(Buffer));
      Result := Buffer = 1;
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;

Exemplo de uso

Para testar a função coloquei um Timer e um Label no 
formulário. No evento OnTimer do Timer escrevi o 
código abaixo.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if RemoteConnection() then
    Label1.Caption := 'Conectado'
  else
    Label1.Caption := 'Desconectado';
end;

Observações

Encontrei outras dicas com o mesmo propósito na Internet, no entanto apenas esta funcionou corretamente nos testes que realizei.

O conteúdo desta página pode ajudar alguém? Compartilhe!