anchor.diff:     p.StartInfo.UseShellExecute <- false
      configProcessStartInfoF p.StartInfo
      p.Start() |> ignore
  +   startedProcesses.Add p.Id |> ignore
   
   /// Sends a command to a windows service.
   let RunService command serviceName =
  
positive.code:     p.StartInfo.RedirectStandardOutput <- true
      p.StartInfo.UseShellExecute <- false
      p.Start() |> ignore
  
  /// Stops a windows service
  let StopService serviceName = 
  
negative.code:   
      try
          p.Start() |> ignore
          startedProcesses.Add p.Id |> ignore
      with
      | exn -> failwithf "Start of process %s failed. %s" p.StartInfo.FileName exn.Message
    
  