Desconectar da Internet

Question

Eai Pessoal, blz?<BR>Estou come�ando agora a mexer com delphi e tenho uma d�vida. queria saber como fa�o para desconectar da internet atrav�s de

Cebikyn · Answer

N�o testei, mas este c�digo deve funcionar:

procedure TForm1.Button2Click(Sender: TObject);
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then
    InternetAutodialHangup(0);
end;

Declare WinInet na cl�usula Uses de sua unit.