SoloCodigo

Programación General => Delphi => Mensaje iniciado por: ishela en Sábado 14 de Diciembre de 2002, 12:56

Título: Re: Como activar una conexión de Internet
Publicado por: ishela en Sábado 14 de Diciembre de 2002, 12:56

Hola a todos,
 alguien sabe como se puede activar desde código una conexión a Internet ya existente en un PC con W2000 ?

Probé:
Winexec('rundll rnaui.dll,RnaDial Conexion',SW_NORMAL);

pero no me funciona.

Grácias y saludos

Título: Re: Como activar una conexión de Internet
Publicado por: LordRayman en Sábado 14 de Diciembre de 2002, 23:10

probastes asi ?

procedure TForm1.Button1Click(Sender: TObject);
var  
  cmd, par, fil, dir: PChar;
begin
  cmd := 'open';
  fil := 'rasdial.exe';
  par := PChar(edtEntry.Text + ' ' + edtUser.Text + ' ' + edtPass.Text);
  dir := 'C:';
  ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
end;

Título: Re: Como activar una conexión de Internet
Publicado por: LordRayman en Sábado 14 de Diciembre de 2002, 23:12

o asi ?


procedure TForm1.Button1Click(Sender: TObject);
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if not InternetGetConnectedState(@dwConnectionTypes, 0) then
    // not connected
    if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
      INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
    begin
      // error
    end;
end;

Título: Como activar una conexión de Internet
Publicado por: LordRayman en Sábado 14 de Diciembre de 2002, 23:13

algunos casos vas a necesitar
agregar a   WinInet en uses