fix #689

Utils/ProgrammRunner/ProgrammRunner.pas

@@ -1,19 +1,22 @@
-// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
+// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
 // This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
 begin
   var args := System.Environment.GetCommandLineArgs();
-  var args2 := new string[args.Length > 2?args.Length-2:0];
-  for var i := 2 to args.Length - 1 do
-    args2[i-2] := args[i];
+  var args2 := new string[args.Length > 3?args.Length-3:0];
+  for var i := 3 to args.Length - 1 do
+    args2[i-3] := args[i];
   var psi := new System.Diagnostics.ProcessStartInfo();
   psi.FileName := args[1];
-  psi.Arguments := string.Join(' ',args2);
+  psi.Arguments := string.Join(' ', args2);
   //psi.CreateNoWindow := true;
   psi.UseShellExecute := false;
   var p := new System.Diagnostics.Process();
   p.StartInfo := psi;
   p.Start();
   p.WaitForExit();
-  System.Console.WriteLine('Программа завершена, нажмите любую клавишу . . .');
+  var msg := 'Программа завершена, нажмите любую клавишу . . .';
+  if args[2] = 'en-US' then
+    msg := 'Program is finished, press any key to continue . . .';
+  System.Console.WriteLine(msg);
   System.Console.ReadKey(true);
 end.

VisualPascalABCNET/DS/Utils/ProcessRunner.cs

@@ -223,7 +223,7 @@ namespace VisualPascalABC.Utils
                 //process.StartInfo.UseShellExecute = false;
                 process.StartInfo.FileName = BatFile;
                 process.StartInfo.WorkingDirectory = workingDirectory;
-                process.StartInfo.Arguments = command.Replace(" ","\" \"") + " " + arguments;
+                process.StartInfo.Arguments = command.Replace(" ","\" \"") + " " + PascalABCCompiler.StringResourcesLanguage.CurrentLCID + " " + arguments;
             }
             else
             {