Siga-nos em...
Follow us on Twitter Follow us on Facebook Watch us on YouTube
Registro


Alpha Servers
Resultados 1 a 1 de 1
  1. #1

    Avatar de FusioN
    Data de Ingresso
    Jul 2010
    Localização
    Rio de Janeiro - Brasil
    Idade
    23
    Posts
    434
    Agradecido
    17
    Agradeceu
    13
    Peso da Avaliação
    17

    Padrão [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
    Última edição por FusioN; 17-08-2010 às 11:11 PM.

 

 

Informações de Tópico

Usuários Navegando neste Tópico

Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)

Tópicos Similares

  1. |Tutorial| [Medio]Status de um Servidor
    Por FusioN no fórum Delphi
    Respostas: 0
    Último Post: 17-08-2010, 09:39 PM
  2. |Tutorial| [Medio]Criando um Cronômetro
    Por FusioN no fórum Delphi
    Respostas: 0
    Último Post: 25-07-2010, 06:27 PM
  3. |Tutorial| [Medio]Criando Renovador de IP
    Por FusioN no fórum Delphi
    Respostas: 4
    Último Post: 23-07-2010, 09:34 PM

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •