Как в PascalABC использовать batch команды?

Question

[voproser45654]

Как в PascalABC использовать batch команды? Вариант с записью в файл и запуск через exec не подходит.

Comments

[Василий Банников]

А какие именно команды?

[voproser45654]

Василий Банников, tracert.

Answer 1

[Василий Банников]

begin
  var start := new System.Diagnostics.ProcessStartInfo('tracert.exe', 'ya.ru');
  start.RedirectStandardOutput := true;
  start.UseShellExecute := false;
  var process := System.Diagnostics.Process.Start(start);
  process.OutputDataReceived += (sender, args) -> Println(args);
  process.BeginOutputReadLine;
  process.WaitForExit;
end.

Не вариант?

Comments

[voproser45654]

Спасибо, с таким количеством кода лучше на сях напишу.

[Василий Банников]

voproser45654, ну чтобы запустить какое-то приложение, нужно просто Process.Start написать.
А остальное нужно только чтобы получить результат.
Ну и ещё у меня полные имена неймспейсов, ибо я хз как тут юзинг написать.
На C# было бы так:

using System.Diagnostics;

var process = Process.Start(new ProcessStartInfo("tracert.exe", "ya.ru")
  {
    RedirectStandardOutput = true,
    UseShellExecute = false
  });
process.OutputDataReceived += (_, line) => Console.WriteLine(line);
process.BeginOutputReadLine();
process.WaitForExit();

Answer 2

[Hemul GM]

Никак, вызывай выполнение конечных команд через winexec или shellexecute или через createprocces