Changeset 151 for trunk/Target.pas

Timestamp:

Jun 5, 2024, 10:24:47 PM (5 months ago)

Author:

chronos

Message:

• Added: Execute compiled program with targets without executor inside console window to see its output.

File:

• trunk/Target.pas (modified) (4 diffs)

trunk/Target.pas

@@ -154 +154 @@
   end;
 
-
 resourcestring
   SCompilerNotFound = 'Compiler "%s" not found';
@@ -182 +181 @@
 
 implementation
+
+uses
+  FormConsole;
 
 procedure UpdateTranslation;
@@ -531 +533 @@
 procedure TTarget.RunFromFile;
 var
-  Process: TProcess;
   CompiledFile: string;
   RunFile: string;
-begin
-  if ExecutorPath = '' then Exit;
-
+  FormConsole: TFormConsole;
+begin
   CompiledFile := ExtractFilePath(ProjectFileName) +
     CompiledDir + DirectorySeparator + Name + DirectorySeparator +
@@ -543 +543 @@
     CompiledDir + DirectorySeparator + Name + DirectorySeparator +
     ExtractFileNameOnly(ProjectFileName) + RunExtension;
-  if not FileExists(ExecutorPath) then
-    raise Exception.Create(Format(SExecutorNotFound, [ExecutorPath]));
   if FileExists(CompiledFile) then
   try
-    Process := TProcess.Create(nil);
+    FormConsole := TFormConsole.Create(nil);
     if ExecutorPath <> '' then begin
-      Process.Executable := LongFileName(ExecutorPath);
-      Process.Parameters.Add(LongFileName(RunFile));
-    end else Process.Executable := LongFileName(RunFile);
-    Process.ShowWindow := swoShow;
-    Process.Options := [poWaitOnExit, poNewConsole];
-    Process.Execute;
+      if not FileExists(ExecutorPath) then
+        raise Exception.Create(Format(SExecutorNotFound, [ExecutorPath]));
+      FormConsole.Executable := LongFileName(ExecutorPath);
+      FormConsole.Parameters.Add(LongFileName(RunFile));
+    end else
+      FormConsole.Executable := LongFileName(RunFile);
+    FormConsole.ShowModal;
   finally
-    Process.Free;
-  end else raise Exception.Create(Format(SCompiledFileNotFound, [CompiledFile]));
+    FormConsole.Free;
+  end
+  else raise Exception.Create(Format(SCompiledFileNotFound, [CompiledFile]));
 end;