Delphi World - Как законнектиться через Dial-Up соединение по умолчанию
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как законнектиться через Dial-Up соединение по умолчанию


Интернетчик орёт на жену:
-Ты изменяла?
Жена:
-Нет, что ты! Как ты мог подумать такое
И:- Нет, лучше сразу скажи, Ты изменяла?
Ж:- Да перестань, и в мыслях не было!
И: - Если я узнаю, что ты изменила, убью!
Ж: - Скажи мне, что случилось?
И: Что-что! В Интернет войти не могу, сервер выдаёт "Ваш пароль неверный"! Не мог-же он сам измениться!(орёт) Ты изменяла?


uses
  Registry, windows;

// Показать или скрыть диалог dial-up
function DUNDialDefault(Hide: Boolean): Boolean;
var
  Reg: TRegistry;
  TempResult: Boolean;
  name, con: string;
  ASW: Integer;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKey('\RemoteAccess', False) then
  begin
    TempResult := True;
    name := Reg.ReadString('Default');
  end
  else
    tempresult := False;

  Reg.Free;
  if TempResult = True then
  begin
    if Hide = True then
      ASW := SW_HIDE
    else
      ASW := SW_SHOWDEFAULT;

    con := 'rnaui.dll,RnaDial ' + name;
    ShellExecute(0, nil, 'rundll32.exe' , PChar(con), 'C:\windows\', ASW);
  end;
  Result := tempResult;
end;

В Win2000 и WinXP можно воспользоваться WinInet:

Для этого добавьте WinInet в секцию uses.
Затем используйте следующую команду:


InternetAutoDial (INTERNET_AUTODIAL_FORCE_ONLINE, handle); 

handle = родительское окно

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования