[ALexandr555]

нашел данный метод

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; 

ни подключение ни отключение не работает, он рабочий? или как еще можно попробовать?

[NumLock]

Let Me Show You...
конечно рабочий.

c:\>rasdial /?
Вызов:
rasdial элемент [пользователь [пароль|*]] [/DOMAIN:домен]
[/PHONE:номерТелефона] [/CALLBACK:ответныйНомер]
[/PHONEBOOK:файлАдреснойКниги] [/PREFIXSUFFIX]

rasdial [элемент] /DISCONNECT

rasdial

Команда успешно завершена.

c:\>

у меня например так:

c:\>rasdial vpn domain\myname mypass

[ALexandr555]

Код:

rasdial  "MegaFon Internet" /DISCONNECT

так в принципе работает поже проверю остальное

[NumLock]

"MegaFon Internet" - это имя сетевого подключения?

[ALexandr555]

да, нужно было взять в кавычки