SoloCodigo

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

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;