[lesha]

Скажие, пожалуйста, как это чудо реализовать? Проссмотрел кучу вариантов, понял, что самый простой - с помощью RAS, причём модуль RasUnit.dcu - никто не знает где взять! Нужна форма, кнопочка 1, нажимаем - появляется стандартный диалог дозвона по соединению по умолчанию. Кнопочка 2 - разрыв. Казалось бы - ничего хитрого! Спасибо.

[LSK]

Сперва создаешь само соединение (в Windows ' е) затем:

Код:

Procedure DialUp(Connect:boolean);
var par: PChar;
begin
  If Connect then par := PChar('Имя соединения} {Логин} {Пароль}') else
  par := PChar('{Имя соединения} /DISCONNECT');
  ShellExecute(Frm1.Handle, 'open', 'rasdial.exe', par, 'C:', SW_SHOWMINNOACTIVE);
end;