Como saber se estou conectado na internet?

ai meu rei, faz o seguinte, adiciona em um form um botao(qualquer) e uma barra de status.

no evento onlick do botao adicione a seguinte rotina.
:arrow:

var
Flags: DWORD;
begin
StatusBar1.Panels[1].Text := ´Verificando ...´;
StatusBar1.Refresh;
Sleep(2000);
if not InternetGetConnectedState(@Flags, 0) then
StatusBar1.Panels[1].Text := ´Você não está conectado à Internet.´
else
begin
if Flags and INTERNET_CONNECTION_LAN <> 0 then
StatusBar1.Panels[0].text := ´Você está conectado à Internet através de LAN´;
if Flags and INTERNET_CONNECTION_MODEM <> 0 then
StatusBar1.Panels[1].Text := ´Você está conectado à Internet através de MODEM´;
if Flags and INTERNET_CONNECTION_PROXY <> 0 then
StatusBar1.Panels[1].Text := ´Você está conectado à Internet através de proxy.´;
end;
end;



:arrow:
essa rotina informa na statusbar1 se vc esta conectado (como(lan,moden,proxy) ou nao)).. flw, espero ter te ajudado. :shock:

nao, faz um favorm organiza os panel´s ai, é que fiz na pressa, fico desorganizado..

flw

oa eu denovo:
é o seguinte, as informações do saber ou nao se esta conectado, fica no Panels[1], pq no Panels[0].text fica o seguinte:

Panels[0].text := ´Estatus da Conexão: ´;

saca?/

flw...

Valeu...