• Jueves 13 de Mayo de 2021, 08:39

Autor Tema:  Re: Como activar una conexión de Internet  (Leído 1879 veces)

ishela

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Re: Como activar una conexión de Internet
« en: Sábado 14 de Diciembre de 2002, 12:56 »
0
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

LordRayman

  • Nuevo Miembro
  • *
  • Mensajes: 15
    • Ver Perfil
    • http://127.0.0.1
Re: Como activar una conexión de Internet
« Respuesta #1 en: Sábado 14 de Diciembre de 2002, 23:10 »
0
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;

LordRayman

  • Nuevo Miembro
  • *
  • Mensajes: 15
    • Ver Perfil
    • http://127.0.0.1
Re: Como activar una conexión de Internet
« Respuesta #2 en: Sábado 14 de Diciembre de 2002, 23:12 »
0
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;

LordRayman

  • Nuevo Miembro
  • *
  • Mensajes: 15
    • Ver Perfil
    • http://127.0.0.1
Como activar una conexión de Internet
« Respuesta #3 en: Sábado 14 de Diciembre de 2002, 23:13 »
0
algunos casos vas a necesitar
agregar a   WinInet en uses