Набор dialup соединения по умолчанию

Code:

procedure TForm1.Button1Click(Sender: TObject);

var cmd, par, fil, dir: PChar;

begin

Cmd := 'open';

Fil := 'rasdial.exe';

Par := PChar(edtEntry.Text + ' ' + EdtUser.Text + ' ' + EdtPass.Text);

Dir := 'C:';

ShellExecute(Handle, Cmd, Fil, Par, Dir, SW_SHOWMINNOACTIVE);

end;

procedure TForm1.Button2Click(Sender: TObject);

var Cmd, Par, Fil, Dir: PChar;

begin

Cmd := 'open';

Fil := 'rasdial.exe';

Par := PChar(EdtEntry.Text + ' /DISCONNECT');

Dir := 'C:';

ShellExecute(Handle, Cmd, Fil, Par, Dir, SW_SHOWMINNOACTIVE);

end;