Conectar y desconectar a Internet por moden
 

Hola amigos. Estoy casi como loco ya que tengo que terminar un programa que es para resolver un problema muy importante de un amigo mio, y resulta ser que ya tengo todo cuadrado, pero no he logrado hacer lo siguiente.

Hay un Applet del Panel de Control que he creado para que el usuario configure la conexion a Internet, similar a como se hace por windows, dando un Nombre de Usuario, Una Contraseña y un Numero de telefono.

Ahora bien, cuando el usuario configura todos estos datos, lo que hace el applet es que se lo envia a un servicio que esta corriendo en la PC, y de ahi es el servicio el que a una hora dada tiene que mandar a la PC a conectarse a internet, pasandole ese nombre de usuario, la contraseña y el numero telefonico, pero aun sin que este configurado por el windows normal.

Creo que se hace con DialUp no??
O bueno no se, si me ayudan, de verdad que sere el programador mas feliz del mundo. Help me!

Me encontre aqui un ejemplo que hace justo eso que quiero, pero usa una DLL que tiene un inconveniente, y es que cada ves que ejecutas el programita, te lase un incomodo mensaje. Parece que es para que les pagues esa cosa.

Este es el link.
http://3d2f.com/tags/delphi/dialup/

rasdial ;)

Muchas gracias a todos. Lo he solucionado con un pequeño componente que hay en internet y se llama DialUp. Esta muy bueno y te permite establecer una conexion a internet que este previamente configurada desde windows, y te permite establecer la contraseña y el usuario de la conexion aunque no esten configuradas en windows.

Aqui les pongo el adjunto con el componente.

Y mas o menos como se usa, seria asi.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin

  DialUp1.Username := 'NombreUsuarioDeConexion';
  DialUp1.Password := 'ContraseñaDeConexion';

  DialUp1.ConnectTo := 'NombreConexionConfigurada';
  // El componente tiene una propiedad de tipo TString donde estan registradas todas las conexiones creadas en windows

  if  DialUp1.GoOnline then // Para conectarte con GoOffline te desconectas
    Memo1.Lines.Add('Se ha establecido la conexion')
  else
    Memo1.Lines.Add('NO se ha podido CONECTAR!!!');

  //Ademas tiene un procedimiento para comprobar si estas conectado.

end;