|
|
Регистрация | << Правила форума >> | 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; ни подключение ни отключение не работает, он рабочий? или как еще можно попробовать? |