Переустановить соединение через rasdial.exe

[malcevanrei]

Здравствуйте! Имеется интернет webstream (GPON), подключение настроено мостом. Необходимо периодически дисконнектить соединение, через небольшую паузу снова соединить. Вот хотелось бы узнать, такая процедура будет выполнять эти действия:

procedure reconnect();
begin
WinExec('rasdial.exe GPON /disconnect',sw_hide);
sleep(10000);
WinExec('rasdial.exe GPON user password',sw_hide);
end;

Проверить нет возможности, потому как на удаленном компе настроен RDP и если коннект снова не произойдет, то соответственно к нему уже не подключишься, а бежать, точнее ехать до него очень далеко
Подскажите знающие плиз
Спасибо!

[Человек_Борща]

Если предположить что программа будет работать пака не выполнит условие:

rasdial.exe GPON /disconnect

то можно через CreateProcess и WaitForSingleObject проверить WAIT_TIMEOUT и есть WAIT_TIMEOUT то, sleep(2000); и снова создавать connect.
Примерно так:

procedure TForm1.sButton1Click(Sender: TObject);
var
  si:TStartupInfo;
  Pinf:TProcessInformation;
  Ch:DWORD;
begin
  try
  ZeroMemory(@SI,SizeOf(SI));
  ZeroMemory(@PInf,SizeOf(Pinf));
  Si.cb:=SizeOf(SI);

  if not CreateProcess(PansiChar('rasdial.exe'),PansiChar('rasdial.exe GPON /disconnect'),nil,nil,false,0,nil,nil,si,Pinf) then
  begin
  RaiseLastOSError;
  end;

  ch:=WaitForSingleObject(Pinf.hProcess,infinite);
  If Ch <> WAIT_TIMEOUT then
  begin
    Sleep(2000);
  //Подключаемся
  end;
  finally
   CloseHandle(Pinf.hThread);
   CloseHandle(Pinf.hProcess);
  end;
end;