Existe conexión a Internet?

[jorch_yr]

si trabaja en modem y lan
pero lo del e-mail ni idea

y no se si trabaj en todos los win

[[Lepe]]

Esto me funciona con mi supermodem 56k en windows 98 y XP
Ojalá te pueda servir de algo.

uses wininet;

procedure TForm1.Button1Click(Sender: TObject);
var conectado:boolean;
begin
conectado:= internetgetconnectedstate(0,0);
label1.Visible:=true;

if conectado then
begin
  label1.Caption:='SI';
end
else
begin
  label1.Caption:='NO';
end;

end; // button1click


procedure TForm1.Button2Click(Sender: TObject);
begin
InternetAutodialHangup(INTERNET_STATE_DISCONNECTED_BY_USER);
//  internethangup(0,0);
end;

procedure TForm1.Button3Click(Sender: TObject);
var c:boolean;
begin
c:=internetgetconnectedstate(lpdword(INTERNET_CONNECTION_MODEM),0);
label2.Visible:=true;

if c then
begin
  label2.Caption:='SI';
end
else
begin
  label2.Caption:='NO';
end;


end;

procedure TForm1.Button4Click(Sender: TObject);
var c:boolean;
begin
c:=internetgetconnectedstate(lpdword(INTERNET_CONNECTION_MODEM_BUSY),0);
label3.Visible:=true;

if c then
  label3.Caption:='SI'
else
  label3.Caption:='NO';
end;

[[Delphius]]

Para que funcione correctamente lo de lepe debes incluir en uses la unidad WinInet.


InternetGetConnectedState(@Estado, 0) // Estado: Cardinal
Esta función puede dar False, o True

Pero si se realiza la operación: Trunc(Log2(Estado)) se puede saber el estado:
// para que funcione Log2 hay que agregar en uses "Math".

-- 0 -- INTERNET_CONNECTION_MODEM => Hay conexión mediante módem
-- 1 -- INTERNET_CONNECTION_LAN => Hay una conexión mediante red local
-- 2 -- INTERNET_CONNECTION_PROXY => Hay una conexión a través de proxy
-- 3 -- INTERNET_CONNECTION_MODEM_BUSY => El módem está ocupado
-- 4 -- INTERNET_CONNECTION_OFFLINE => No hay conexión activa