|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
подключение к интернету
нашел данный метод
http://www.delphisources.ru/pages/fa...t_connect.html Код:
procedure TForm1.Button1Click(Sender: TObject); var cmd, par, fil, dir: PChar; begin // establish the connection // die Verbindung aufbauen // rasdial.exe entryname username password cmd := 'open'; fil := 'rasdial.exe'; par := PChar('MefaFon Internet'+ '' + '' + '' + ''); dir := 'C:'; // call rasdial.exe with Shellexecute // rasdial mit Shellexecute aufrufen ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE); end; procedure TForm1.Button2Click(Sender: TObject); var cmd, par, fil, dir: PChar; begin // disconnect the connection to the Internet // Verbindung zum Internet abbrechen cmd := 'open'; fil := 'rasdial.exe'; par := PChar('MefaFon Internet' + ' /DISCONNECT'); dir := 'C:'; ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE); end; ни подключение ни отключение не работает, он рабочий? или как еще можно попробовать? |
#2
|
||||
|
||||
Let Me Show You...
конечно рабочий. Цитата:
у меня например так: Цитата:
Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 11.08.2011 в 13:24. |
#3
|
||||
|
||||
Код:
rasdial "MegaFon Internet" /DISCONNECT Последний раз редактировалось ALexandr555, 11.08.2011 в 14:45. |
#4
|
||||
|
||||
"MegaFon Internet" - это имя сетевого подключения?
Пишу программы за еду. __________________ |
#5
|
||||
|
||||
да, нужно было взять в кавычки
|