diff --git a/Utils/ProgrammRunner/ProgrammRunner.pas b/Utils/ProgrammRunner/ProgrammRunner.pas index b2497363b..2ae20db21 100644 --- a/Utils/ProgrammRunner/ProgrammRunner.pas +++ b/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. \ No newline at end of file diff --git a/VisualPascalABCNET/DS/Utils/ProcessRunner.cs b/VisualPascalABCNET/DS/Utils/ProcessRunner.cs index 8082c6c5b..e1ef6ad3a 100644 --- a/VisualPascalABCNET/DS/Utils/ProcessRunner.cs +++ b/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 { diff --git a/bin/ProgrammRunner.exe b/bin/ProgrammRunner.exe index 11384bd80..7628867e8 100644 Binary files a/bin/ProgrammRunner.exe and b/bin/ProgrammRunner.exe differ