//Declare na uses WIninet,
var estado : Dword;
begin
if not InternetGetConnectedState(@estado, 0) then
ShowMessage('Você não está conectado à Internet.')
else
begin
if estado and INTERNET_CONNECTION_LAN <> 0 then
label1.Caption := (':: Connection :: Você está conectado à Internet através de LAN ::');
if estado and INTERNET_CONNECTION_MODEM <> 0 then
label1.Caption := (':: Connection :: Você está conectado à Internet através de MODEM ::');
if estado and INTERNET_CONNECTION_PROXY <> 0 then
label1.Caption := (':: Connection :: Você está conectado à Internet através de proxy ::');
end;
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário