Testar Conectividade com a Internet
2 participantes
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Testar Conectividade com a Internet
Declare WinInet na Uses
Adcione 1 Button (Aba Standard) e Adcione o Code:
Código:
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- Membro
- Mensagens : 37
Agradecimentos : 18
Data de inscrição : 08/01/2011
Idade : 33
Localização : aloka
Humor : Furioso
Re: Testar Conectividade com a Internet
caramba mano como sempre inovanto ^^ , parabéns cara ... Ta levando meu + denovo ^^
-Apple.- 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
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|