[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; 

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