n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/ProgStarter.pas

27 строк779 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses System, System.IO;
procedure ClearLine;
begin
   Console.CursorLeft := 0;
   Console.Write('                                                        ');
   Console.CursorLeft := 0;
end;

begin
  Console.WriteLine('Program starter');
  var dirs := Directory.GetFiles(Directory.GetParent(Environment.CurrentDirectory).FullName);
  for var i := 0 to dirs.Length-1 do
  if Path.GetExtension(dirs[i]) = '.exe' then
  begin
    var psi := new System.Diagnostics.ProcessStartInfo(dirs[i]);
    psi.CreateNoWindow := true;
		psi.UseShellExecute := false;
	  Console.Write(psi.FileName);
		var p := System.Diagnostics.Process.Start(psi);
		while not p.HasExited do;
		ClearLine;
  end;
  Console.WriteLine;
	Console.Write('Press any key to exit . . . ');
	Console.ReadKey(true);

end.