terça-feira, 29 de setembro de 2009

Tipo de conexão com a internet

//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;

Nenhum comentário:

Postar um comentário