Detecta se o pc ta net?

[webrodex 0]

Como faço para vereficar se o pc esta conectado na net , com conexao discada ou adsl entre outras?

[Vinicius Callegaro 0]

Declare na uses WIninet

 

procedure TForm1.Button1Click(Sender: TObject);var  estado : Dword;begin  //Declare na uses WIninet  if not InternetGetConnectedState(@estado, 0) then	ShowMessage('Você não está conectado à Internet.')  else  begin	if estado and INTERNET_CONNECTION_LAN <> 0 then	  ShowMessage(':: Connection :: Você está conectado à Internet através de LAN ::');	if estado and INTERNET_CONNECTION_MODEM <> 0 then	  ShowMessage(':: Connection :: Você está conectado à Internet através de MODEM ::');	if estado and INTERNET_CONNECTION_PROXY <> 0 then	  ShowMessage(':: Connection :: Você está conectado à Internet através de proxy ::');  end;end;