Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вызвать стандартый дилог подключения к Интернет [D7]


Бобров Илья ©   (2005-09-12 16:38:00) 

Мастера! Подскажите, как средствами  Delphi вызвать стандартный диалог подключения к Интернет.
За ранее благодарен.


Карелин Артем   (2005-09-12 18:34:00) [1]

Поброди по ссылке:
http://torry.net/pages.php?id=200
Поищи в инете и MSDN функцию RasDial, рядом с ней должна быть функция показа диалога этого. Я уже давно не занимался этим, уже не помню как показать диалог.


Бобров Илья   (2005-09-12 18:28:00) [2]

Почему-то ничего не происходит ...
А есть ли другой способ вызова этого диалога?


Карелин Артем   (2005-09-12 17:57:00) [3]

Не оно, но альтернатива:
uses
 ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
 case OSVer of
   VER_PLATFORM_WIN32_NT:
   // Win NT, 2000, XP:
       {connection_name = the name of the connection in "Network and
       DialUp Connections", logon = logon string, password = password string.
       All are separated by spaces.}
       ShellExecute(Handle, 'open', 'rasdial.exe', 'connection_name logon password', nil, SW_HIDE);
       // disconnect:
       // ShellExecute(Handle, 'open', 'rasdial.exe', ' /disconnect', nil, SW_HIDE);
   VER_PLATFORM_WIN32_WINDOWS:
   // VERSION = 95, 98
      (*
     Dial Up Networking (DUN)

       module:
               RNAUI.DLL

     command:
               rundll32.exe rnaui.dll,RnaDial {name of connection to establish}
         result:
               displays the Connect To dialog for the passed connection
     *)

     ShellExecute(Handle, PChar('open'), PChar('rundll32.exe'),
       PChar('rnaui.dll,RnaDial exact name of dialer entry TRACERT -h 1 -w 1'),nil, SW_NORMAL);
 end;
end;


Бобров Илья   (2005-09-12 17:40:00) [4]

Модуль Ras у меня есть, но видимо моих мозгов недостаточно, для его переваривания. Можешь дать информацию по подробнее(функцию и параметры).


Digitman   (2005-09-12 17:18:00) [5]

см. RAS API в MSDN


Бобров Илья   (2005-09-12 17:15:00) [6]

Да, именно это мне и нужно. Стандартный диалог, такой-же как появляется у Internet Explorer.


Digitman   (2005-09-12 16:54:00) [7]

никак.

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо