Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.25;
Скачать: CL | DM;

Вниз

Как вызвать стандартый дилог подключения к Интернет   Найти похожие ветки 

 
Бобров Илья   (2005-09-12 16:38) [0]

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


 
Digitman ©   (2005-09-12 16:54) [1]

никак.

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


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

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


 
Digitman ©   (2005-09-12 17:18) [3]

см. RAS API в MSDN


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

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


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

Не оно, но альтернатива:
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 18:28) [6]

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2005.12.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.042 c
5-1117545320
Санек
2005-05-31 17:15
2005.12.25
Создание компонента в Design-Time(аналог Field из DataSet)


2-1134139169
Zilog
2005-12-09 17:39
2005.12.25
ShellExecute


2-1133880654
Максим
2005-12-06 17:50
2005.12.25
Помогите перевести код из Turbo Pascal в Delphi.


14-1133525165
vrem
2005-12-02 15:06
2005.12.25
xp ругается на размер и показывает знак :)


1-1133199265
Erick
2005-11-28 20:34
2005.12.25
Работа с ListBox из другой формы