Как программно вызвать Dial Up

[Helg]

Подскажите, пожалуйста такую простую вещь. Надо программно вызвать Dial-Up соединение с интернетом. Как это сделать?
Заранее премного благодарен.

[Fox]

пишем под виндой али нет????
если под линухом то не стоит даже время тратить у меня ниче не вышло а под виндой даже писать не нада там заадминистрировать можно без проблем!!!

[Helg]

под виндой. под ней родимой. суть в том, что я хочу по сетке включать и выключать соединение через свою программулину. подскажи, как его запустить. рыться в описаниях некогда.

[Кутасевич Юра]

З описями лутше запомниш

[u961]

пяток лет назад написал такой код под 2000-ю винду
работал на ура
ещё была проц-ра удаления кэша ie

unit Unit2;

interface

  uses WinInet;

  procedure i_connect;
  procedure i_disconnect;
  //procedure DeleteIECache;

implementation

//automatically dial the default Internet connection.
procedure i_connect;
var
  dwConnectionTypes: integer;
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;


// hangup the default Internet connection.
procedure i_disconnect;
var
  dwConnectionTypes: integer;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then
    // connected
    InternetAutodialHangup(0);
end;

end.