Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Participe do fórum, é rápido e fácil

Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Testar Conectividade com a Internet

2 participantes

Ir para baixo

Testar Conectividade com a Internet Empty Testar Conectividade com a Internet

Mensagem por korpses Ter Jan 11, 2011 3:42 pm

Declare WinInet na Uses

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

Código:
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;


korpses
korpses
Membro
Membro

Mensagens : 37
Agradecimentos : 18
Data de inscrição : 08/01/2011
Idade : 33
Localização : aloka
Humor : Furioso
Testar Conectividade com a Internet Left_bar_bleue0 / 1000 / 100Testar Conectividade com a Internet Right_bar_bleue



Ir para o topo Ir para baixo

Testar Conectividade com a Internet Empty Re: Testar Conectividade com a Internet

Mensagem por -Apple. Ter Jan 11, 2011 4:51 pm

caramba mano como sempre inovanto ^^ , parabéns cara ... Ta levando meu + denovo ^^
-Apple.
-Apple.
Bronze Member
Bronze Member

Mensagens : 186
Agradecimentos : 73
Data de inscrição : 07/01/2011
Idade : 27
Localização : Combat-Arms e Grand Chase Zone !
Humor : Riiir
Testar Conectividade com a Internet Left_bar_bleue10 / 10010 / 100Testar Conectividade com a Internet Right_bar_bleue



Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos